Option Explicit
 
Private Declare Function WaitMessage Lib "user32.dll" () As Long
 
Private Declare Function CreateTimerQueue Lib "kernel32.dll" () As Long
 
Private Declare Function CreateTimerQueueTimer Lib "kernel32.dll" ( _
    ByRef hTimerQ As Long, _
    ByVal hQueue As Long, _
    ByVal pCallBack As Long, _
    ByVal lParam As Long, _
    ByVal nDuration As Long, _
    ByVal nPeriod As Long, _
    ByVal nFlags As Long) As Long
 
Private Declare Function DeleteTimerQueue Lib "kernel32.dll" ( _
     ByVal TimerQueue As Long) As Long
 
Private Declare Function DeleteTimerQueueTimer Lib "kernel32.dll" ( _
     ByVal TimerQueue As Long, _
     ByVal Timer As Long, _
     ByVal CompletionEvent As Long) As Long
 
Private hQueue As Long
Private hTimerQ As Long
Private doBreak As Boolean
 
Private Function WaitForTimer(lParam As Long, ByVal nWhat As Long) As Long
    DeleteTimerQueueTimer hQueue, hTimerQ, 0
    DeleteTimerQueue hQueue
    doBreak = True
End Function
 
Public Sub WaitforMyTime(ByVal nMilliseconds As Long)
 
    hQueue = CreateTimerQueue
    CreateTimerQueueTimer hTimerQ, hQueue, AddressOf WaitForTimer, 0, _
      nMilliseconds, 0, 0
    doBreak = False
 
    Do While doBreak = False
       WaitMessage
       DoEvents
    Loop
 
End Sub