'***************** Code Start *******************
Private Declare Sub sapiSleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Sub sSleep(lngMilliSec As Long)

If lngMilliSec > 0 Then
Call sapiSleep(lngMilliSec)
End If
End Sub

Sub sTestSleep()
Const Ctime = 1000 'in MilliSeconds
Call sSleep(Ctime)
MsgBox "Before this Msgbox, I was asleep for " _
& Ctime & " Milliseconds."
End Sub
 '***************** Code End *********************

Copyright By AccessVision