dim ti as new timer
addhandler ti.Tick,addressof ti_Tick
Private Sub ti_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
'这里编写你的代码
End Sub
dim ti as new timer
addhandler ti.Tick,addressof ti_Tick
Private Sub ti_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
'这里编写你的代码
End Sub
本人博客的文章大部分来自网络转载，因为时间的关系，没有写明转载出处和作者。所以在些郑重的说明：文章只限交流，版权归作者。谢谢