Chequeate este codigo a ver si te sirve:
Código:
Dim i As New Timers.Timer
Sub Main()
AddHandler i.Elapsed, AddressOf ontime
Console.WriteLine("Press 'q' to quit")
i.Interval = 5000
i.Enabled = True
If Console.ReadLine = "q" Then
Return
End If
End Sub
Sub ontime(ByVal source As Object, ByVal e As Timers.ElapsedEventArgs)
Console.WriteLine("Hello World")
End Sub