Dim TimerMove As System.Timers.Timer
TimerMove = New System.Timers.Timer
With TimerMove
AddHandler TimerMove.Tick, AddressOf TimerMove_Tick
TimerMove.Interval = 1000
TimerMove.Start()
End With
Private Sub TimerMove_Tick(ByVal sender As Object, ByVal e As EventArgs)
Label2.Left = Label2.Left - 20
If Label2.Left = -200 Then
Label2.Left = 1000
End If
End Sub
http://blog.csdn.net/xiaocuner/archive/2009/01/16/3793557.aspx
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024