Imports System
 
Module Main
    Dim ended As New System.Threading.ManualResetEvent(False)
    Dim timer As New System.Threading.Timer(New System.Threading.TimerCallback( _
      AddressOf TimerCallback), Nothing, 10000, 10000)
 
    Dim count As Integer
 
    Public Sub TimerCallback(ByVal state As Object)
        count += 1
        Console.WriteLine("Running " & count.ToString())
        If count = 10 Then
            timer.Dispose()
            Console.WriteLine("End reached")
            ended.Set()
        End If
    End Sub
 
    Sub Main()
        Console.WriteLine("Started")
        ended.WaitOne()
        Console.WriteLine("Timer ended. Press any key to end application.")
        Console.Read()
    End Sub
End Module

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist