Timer1.Enabled = False

Option Explicit
 
Dim tmpCount As Integer

Private Sub command1_Click()
     tmpCount = 3606 ' Countdown-Zeit in Sekunde angeben: 1h, 6 sec
     Timer1.Interval = 1000 ' Timer-Inteval auf 1 Sekunde Stellen
     Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
     tmpCount = tmpCount - 1
     Label1.Caption = _
          Int(tmpCount / 3600) & " Stunden, " & _
          Int(tmpCount / 60 - Int(tmpCount / 3600) * 60) & " Minuten und " & _
          tmpCount - Int(tmpCount / 60) * 60 & " Sekunden verbleibend." ' 
          ' Restliche Zeit berechnen und ausgeben
     If tmpCount = 0 Then ' Wenn die Zeit abgelaufen ist, 
          Timer1.Enabled = False ' Timer ausshalten
          msgBox "Die Zeit ist abgelaufen" ' Benutzer informieren
     End If
End Sub