Private Sub Form_Load ()
Timer1.Interval = 1000' Zeitgeberintervall setzen.   1000 = 1 Sekunde
End Sub
 
Dim Pausenlänge, Start, Ende, Gesamtdauer
If (MsgBox("5 Sekunden Pause?", 4)) = vbYes Then
   Pausenlänge = 5   ' Dauer festlegen.
   Start = Timer   ' Anfangszeit setzen.
   Do While Timer < Start + Pausenlänge
      DoEvents   ' Steuerung an andere Prozesse
         ' abgeben.
   Loop
   Ende = Timer   ' Ende festlegen.
   Gesamtdauer = Ende - Start   ' Gesamtdauer berechnen.
   MsgBox "Die Pause dauerte " & Gesamtdauer & " Sekunden"
Else
   End
End If