Private Declare Function GetTickCount Lib "kernel32" () As Long



Sub Wait(ByVal cTime As Long)
Dim sTime As Long


sTime = GetTickCount + cTime


Do While sTime >= GetTickCount
Application.DoEvents()
Loop
End Sub