Dim mlngStartTime As Long
 
Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
    mlngStartTime = Timer
End Sub
 
Private Sub Timer1_Timer()
    If Timer - mlngStartTime < 10 Then Exit Sub
    mlngStartTime = Timer
    'Hier tue was
    MsgBox "5 Min. sind um"
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1