' *********************************************************
' *
' *                     Modul Delay
' * 
' *********************************************************
Option Explicit
 
' API Declaration
Public Declare Function GetTickCount Lib "kernel32" () As Long
 
 
Public Sub Delay(nSekunden As Long)
  Dim TimeOut As Long
 
  ' Abbruchbedingung für die Do Loop Schleife ermitteln
  TimeOut = (GetTickCount / 1000) + nSekunden
 
  Do
    ' Systemevents zulassen
    DoEvents
 
    ' TimeOut erreicht?
  Loop Until TimeOut < (GetTickCount / 1000)
End Sub

' 5 Sekunden warten
Delay 5