Dim minuten As Integer
Dim ende_der_zeit_minuten As Integer
Dim ende_der_zeit_sekunden As Integer
Dim sekunden As Integer
 
 
Private Sub Command1_Click()
 
 
  Timer1.Interval = 1000
  Timer1.Enabled = True
 
ende_der_zeit_minuten = 2
ende_der_zeit_sekunden = 0
End Sub
 
 
Private Sub Timer1_Timer()
 
Text1.Text = Format(minuten, "00") & ":" & Format(sekunden, "00")
 
 
 If sekunden = 59 Then minuten = minuten + 1: sekunden = 0
 
 If minuten = ende_der_zeit_minuten And sekunden = ende_der_zeit_sekunden Then _
   MsgBox "Zeit vergangen": minuten = 0: sekunden = 0
 
 
sekunden = sekunden + 1
 
 
 
 
 
End Sub

Interessante Lerntools auf
www.abc-braintools.de.vu