codice:
Module Module1
Public Function Main() As Integer
' Crea il timer, specificando il callback, l'oggetto da passarci, il tempo di ritardo e il periodo tra due chiamate
Using t As New System.Threading.Timer(AddressOf TimerCallback, Nothing, 0, 2000)
Console.Write("Premere Invio per uscire...")
' Attende la pressione di Invio per l'uscita
Console.ReadLine()
End Using ' qui il timer viene distrutto
Return 0
End Function
' Callback del timer
Public Sub TimerCallback(ByVal State As Object)
' Effettivamente chiama Vel()
Vel()
End Sub
Public Sub Vel()
'...
End Sub
End Module