一个例子,或许有帮助。
Imports System
Imports System.Threading
Imports System.Timers
Namespace Timer
Module Timer
Public Sub Main()
Dim aTimer As System.Timers.Timer
aTimer = New System.Timers.Timer
AddHandler aTimer.Elapsed, AddressOf OnTimer
aTimer.Interval = 1000
aTimer.Enabled = True
Console.WriteLine("按""q""退出该示例")
While (Console.Read() <> 113)
End While
End Sub
Public Sub OnTimer(ByVal source As Object, ByVal e As ElapsedEventArgs)
Console.WriteLine("Hello World!")
End Sub
End Module
End Namespace