' Aufruf:
Verzoegerung 1  ' für eine Sekunde
 
' Modul:
Sub Verzoegerung(ByVal dauer)
 
            start = Timer
            Do             'Zeitverzögerung
              'Möglichkeit für das Programm auf andere Ereignisse zu reagieren
              DoEvents
              zeit = Timer - start
            Loop Until zeit >= dauer
 
End Sub