What can we use as an equivalent to "Sleep()" in vb?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

StargateFan - 17 Dec 2007 12:56 GMT

I searched through the archives and there were a few messages
discussing this but no actual syntax could be found (at least during 2
searches).

Is there any vb equivalent to "Sleep()"?

Thanks. :oD

Reply to this Message

RB Smissaert - 17 Dec 2007 13:14 GMT

Use the Sleep API:

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

Sub TestingSleep()

Sleep 2000
Cells(1) = 1

End Sub

RBS

>I searched through the archives and there were a few messages
> discussing this but no actual syntax could be found (at least during 2
[quoted text clipped - 3 lines]
>
> Thanks. :oD

Reply to this Message

Equiangular - 17 Dec 2007 13:17 GMT

Do you mean this?

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

Sub test()
Msgbox "Wait for 1 sec"
Sleep 1000
Msgbox "Done"
End Sub

> I searched through the archives and there were a few messages
> discussing this but no actual syntax could be found (at least during 2
[quoted text clipped - 3 lines]
>
> Thanks. :oD

Reply to this Message

Bob Phillips - 17 Dec 2007 13:21 GMT

Two ways

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

Sub WaitSeconds()
Sleep 1000 * 3 ' 3 seconds
End Sub

and

Sub WaitFor()
Application.Wait Now + TimeSerial(0, 0, 3) ' 3 seconds
End Sub

Signature

---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

>I searched through the archives and there were a few messages
> discussing this but no actual syntax could be found (at least during 2
[quoted text clipped - 3 lines]
>
> Thanks. :oD

Reply to this Message

StargateFanFromWork - 17 Dec 2007 18:04 GMT

> Two ways
>
[quoted text clipped - 9 lines]
> Application.Wait Now + TimeSerial(0, 0, 3) ' 3 seconds
> End Sub

Thanks to everyone for their responses! :oD

>>I searched through the archives and there were a few messages
>> discussing this but no actual syntax could be found (at least during 2
[quoted text clipped - 3 lines]
>>
>> Thanks. :oD

Reply to this Message