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