Private Sub Form_Load()
  ' Timer initialisieren
  Timer1.Interval = 1000
  Timer1.Enabled = False
 
  ' Startwert für Label1
  Label1.Caption = "3"
End Sub
 
Private Sub Command1_Click()
  ' Timer starten und Label1 rückwärtszählen
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Label1.Caption = CStr(Val(Label1.Caption) - 1)
  If Val(Label1.Caption) = 1 Then Timer1.Enabled = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de