Wait state

[VSCM]

Hi all,

I want to add a "wait state" to an procedure. So something like

Procedure AAA

Do XYZ
Wait x seconds...

End Sub

How do i do this?

[RhinoBull]

Something as simple as this quick sample may work for you:

Option Explicit

Private Sub Command1_Click()
Dim t As Double
    
    t = Timer + 5 'wait 5 seconds
    
    Debug.Print Now
    Do While Timer < t
        DoEvents
    Loop
    Debug.Print Now

End Sub

[LegBone]

You could also add this statement to a module...

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

...and then call it using

Sleep 1000

or whatever number. Just note that it's in milliseconds.

[RhinoBull]

Sleep suspends execution of the entire current thread which in many cases might not acceptible.
SleepEx could be better choice, although it suspends the entire thread as well.

[Spoo]

VSCM

As a matter of clarification, note that in RhinoBull's post #2,
there is a difference:

• function - he is using the Timer function
• control - as distinct from a Timer control

Spoo