Option Explicit
 
Private nSek As Integer
Private nMin As Integer
 
Private Sub Form_Load()
 
  ' Timer initialisieren
  Timer1.Interval = 1000   ' entspricht einer Sekunde
 
  ' Countdown
  nSek = 12
  nMin = 7
  Label1.Caption = CStr(nSek)
  Label2.Caption = CStr(nMin)
 
End Sub
 
Private Sub Timer1_Timer()
 
  ' und wieder eine Sekunde vorbei
  nSek = nSek - 1
  Label1.Caption = Format(CStr(nSek), "00")
 
 
  ' Falls 60 Sekunden erreicht, Timer deaktivieren
  If nSek < 1 Then
        nMin = nMin - 1
        Label2.Caption = CStr(nMin)
        nSek = 59
        Label1.Caption = CStr(nSek)
  End If
 
  If nMin < 1 Then
        Timer1.Enabled = False
        MsgBox "Tee fertig gezogen !!"
  End If
 
End Sub