' Controls: 1 * Timer-Control, 1 * Button, 1 * Label
 
Private Zeit&
 
Private Sub Form_Load()
  Timer1.Enabled = False ' Timer aus, zur Sicherheit
End Sub
 
Private Sub Command1_Click()
  Zeit = 800 ' Zeit
  Timer1.Interval = 100
  Timer1.Enabled = True ' Timer ein
  Me.Caption = "Timer wurde gestartet."
End Sub
 
Private Sub Timer1_Timer()
  Zeit = Zeit - 1
  Label1.Caption = Format$(Zeit / 1000000, "h:mm:ss") & " Min."
  If Zeit <= 0 Then
    Timer1.Enabled = False ' Timer aus
    ' Dein Code
    ' ...
    Me.BackColor = Rnd * &HFFFFFF
    Me.Caption = "Aktion ausgeführt."
  End If
End Sub

__________________________________________________________________________
wer rechtsschreib fehler findet darf sie behalten