Option Explicit
Private nMin As Integer
 
Private Sub Form_Load()
  ' Timer initialisieren
  Timer1.Interval = 60000
 
  ' Countdown
  nMin = 10
  Label1.Caption = CStr(nMin)
End Sub
 
Private Sub Timer1_Timer()
  ' und wieder eine Minute vorbei
  nMin = nMin - 1
  Label1.Caption = CStr(nMin)
 
  ' Falls 10 Minuten erreicht, Timer deaktivieren
  If nMin < 1 Then Timer1.Enabled = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de