Dim Check as Date
 
Pirvate Sub Form_Load()
  Check = Now() + TimeSerial(0, 20, 0) [color=green]' jetzt + 20 Minuten
  Timer1.Interval = 60000
End Sub
 
Timer1_Timer
  If Now() >= Check Then
    Check = Now() + TimeSerial(0, 20, 0)
    [color=green]' restlicher Code
         ' (hier könnte z.B. Timer2 aktiviert werden, der nach
         ' ähnlichem Muster nach 2 Minuten den Rest erledigt)
  End If
End Sub

Gruß
Marcus