Sleep Hangs and doesn't Return?

[lameid]

I have the following module for testing:

Option Compare Database
Option Explicit

Public Declare Sub Sleep Lib "kernel32" (ByValdwMilliseconds As Long)

Sub Tester()
    Debug.Print Now
    Sleep 500
    Debug.Print Now
End Sub

It hangs and never returns on the line Sleep 500. Any ideas? I can't seem to find any recent posts anywhere and this appears to have just started recently.

I tried changing 500 to one and still had no return from sleep.

 

[PHV]

Public Declare Sub Sleep Lib "kernel32" (ByVal[highlight] [/highlight]dwMilliseconds As Long)

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[lameid]

Thanks PHV.

I didn't even think about syntax since it seemed to just quit working. I guess I just have to keep in mind I'm not the only cook in the kitchen in this APP any more.