Kernel32 library function Sleep

[Nightlytic]

I'm using MS Office 2010, 32 bit, looking at the below:
http://analystcave.com/vba-sleep-vs-wait/

Could anyone please explain to me in more plain English what I need to do to make this function work for me? I'm aware of the Wait function, but I need it down to milliseconds.

 

[NARAYANK991]

Hi ,

You don't need to do anything other than make the correct declaration.

#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 64 Bit Systems
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds as Long) 'For 32 Bit Systems
#End If

Sub SleepTest()
    MsgBox "Execution is started"
    Sleep 10000 'delay in milliseconds
    MsgBox "Execution Resumed"
End Sub

When you execute the SleepTest procedure , the system will freeze for 10 seconds between the two messages Execution is started and Execution Resumed.

Narayan

 

[Nightlytic]

Ah thank you both It's working !

 

[Debaser]

FYI, dwMilliseconds is just a Long integer value, not a pointer, so should remain as Long rather than LongPtr.

 

[NARAYANK991]

FYI, dwMilliseconds is just a Long integer value, not a pointer, so should remain as Long rather than LongPtr.

Hi ,

Thanks for the correction.

Have corrected the original.

Narayan