Option Explicit
 
[color=blue]Private Sub Command1_Click()
  If Text1.Text <> "" Then Timer1.Enabled = True
End Sub
 
Private Sub Form_Load()
  Timer1.Enabled = False
  Timer1.Interval = 1000
End Sub[/color]
 
Private Sub Timer1_Timer()
  If Text1.Text <> "00:00:00" Then
     Text1.Text = DateAdd("s", -1, Text1.Text)
  Else
     MsgBox "Zeit ist um !", vbInformation, "Meldung"
  End If
End Sub