Sleep

'Sleep



Private Declare Sub Sleep
Lib "kernel32" (ByVal dwMilliseconds As Long)



Private Sub Form_Load()

'sleep for 10 second

Sleep 10000

End Sub



Private Declare Function SleepEx
Lib "kernel32" _

(ByVal dwMilliseconds As Long,
ByVal bAlertable As Long) As Long



Private Sub Form_Load()

'Sleep 3 seconds

SleepEx 3000, False

End Sub