• Home
 · 
• Miscellaneous
 · 
• This piece of code may be used to provide a time delay between two actions. The application waits f

This piece of code may be used to provide a time delay between two actions. The application waits f

This piece of code may be used to provide a time delay between two actions. The application waits for as many milliseconds as you pass to the

API Declarations


' You'd need to change dblDuration inside the Sub to dwDuration.
' But hey, you should've figured that out by now ;)
' So the sub should look like:



Rate This piece of code may be used to provide a time delay between two actions. The application waits f

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim dblStart As Double, dblEnd As Double, dblNow As Double

    dblStart = Timer
    dblEnd = Timer + (dwDuration / 1000)

    Do
        dblNow = Timer
        DoEvents
    Loop Until dblNow < dblStart Or dblNow > dblEnd
End Sub