Timer

Einen Timer nutzen:

Module Timertest
Sub main()
Dim t As New Timers.Timer()
AddHandler t.Elapsed, AddressOf ping
t.Interval = 2000
t.Start()
Threading.Thread.Sleep(10000)
t.Stop()
End Sub
Sub ping(ByVal src As Object, ByVal e As Timers.ElapsedEventArgs)
Console.WriteLine("PING: {0}", e.SignalTime)
End Sub
End Module