Sub Main()
Dim Timer As New Timers.Timer(1000) '1000 ms
Timer.AutoReset = True
AddHandler Timer.Elapsed, AddressOf TimerElapsedHandler
Timer.Start()
End Sub
Private Sub TimerElapsedHandler(ByVal sender As Object, ByVal e As Timers.ElapsedEventArgs)
'do stuff here
End Sub
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
1321 次 |
| 最近记录: |