Private Const WM_TIMER As Long = &H113
 
Private Type MSG
	hwnd As Long
	message As Long
	wParam As Long
	lParam As Long
	time As Long
	ptX As Long
        ptY As Long
End Type
 
Private Declare Function GetMessage Lib "user32.dll" Alias "GetMessageA" (ByRef _
  lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal _
  wMsgFilterMax As Long) As Long
 
Private Declare Function TranslateMessage Lib "user32.dll" (ByRef lpMsg As MSG) _
  As Long
 
Private Declare Function DispatchMessage Lib "user32.dll" Alias _
  "DispatchMessageA" (ByRef lpMsg As MSG) As Long
 
Private Declare Function SetTimer Lib "user32.dll" (ByVal hWnd As Long, ByVal _
  nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
 
Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal _
  nIDEvent As Long) As Long
 
Public Sub WaitForMyTime(Byval nMilliseconds As Long)
   Dim hTimer As Long
   Dim mes As MSG
 
   hTimer = SetTimer(0, 0, nMilliseconds, 0)
 
   Do While GetMessage(mes, 0, 0, 0)
        If mes.message = WM_TIMER And mes.wParam = hTimer Then Exit Do
        TranslateMessage mes
        DispatchMessage mes
   Loop
 
   KillTimer 0, hTimer
End Sub