Public Class frmCountdown
 
    Dim lblCountdown As New Label With
        {.Parent = Me, .Width = 200, .Left = 10, .Top = 10, .BackColor = _
          Color.White}
 
    'Starten und Stoppen des CountDown
    Dim WithEvents btnstart As New Button With
        {.Parent = Me, .Left = 210, .Width = 100, .Top = 10, .Text = "Start"}
    Dim running As Boolean = False
 
    'Delegate für das Setzen der Labelanzeige aus dem Hintergrund-Thread
    Delegate Sub DelIntInt(mm As Integer, ss As Integer)
 
    Private Sub btnstart_Click(sender As Object, e As EventArgs) Handles _
      btnstart.Click
        running = Not running
        If running Then
            'Hintergrund-Thread starten
            btnstart.Text = "Stop"
            Dim th As New Threading.Thread(AddressOf countdown)
            th.Start()
        Else
            btnstart.Text = "Start"
            lblCountdown.Text = ""
        End If
    End Sub
 
 
    Private Sub countdown()
 
        Do
            Dim mm, ss As Integer
            GetMMSS(mm, ss)
            lblCountdown.Invoke(New DelIntInt(AddressOf SetCountDown), mm, ss)
            'Hintergrund-Thread für eine Sekunde anhalten
            Threading.Thread.Sleep(1000)
        Loop While running 'Thread läuft bis zur Betätigung der Stop-Taste
 
    End Sub
 
 
    Private Sub SetCountDown(mm As Integer, ss As Integer)
 
        lblCountdown.Text = mm.ToString("00") & ":" & ss.ToString("00")
 
    End Sub
 
 
    Private Function GetMMSS(ByRef mm As Integer, ByRef ss As Integer)
 
        Dim dt As DateTime = DateTime.Now.AddHours(1)
        Dim dt2 As New DateTime(dt.Year, dt.Month, dt.Day, dt.Hour, 0, 0, 0) _
          'nächste volle Stunde
        Dim ts As TimeSpan = (dt2 - DateTime.Now) 'aktuelle Differenz zur 
        ' nächsten vollen Stunde
        mm = ts.Minutes : ss = ts.Seconds 'Rückgabe
    End Function
 
End Class