Help with Timer?

[paul]

Hi
I want a program to call a total of 8 commands. The commands need to be about 3 min apart.
How would I do this. Thanks Paul

[Serge]

You can do something like this:

Private Sub TimeOut(pInterval As Single)
    Dim sngTimer As Single
    
    sngTimer = Timer
    Do While Timer < sngTimer + pInterval
        DoEvents
    Loop
End Sub

Then use this TimeOut routine to pause between your commands, i.e:


Call Your Command
TimeOut 180 ' In seconds thats 3 min
Call Your Another command


An so on...

------------------

Serge

Programmer Analyst
[email protected]
[email protected]
ICQ#: 51055819

[bsmith]

This code will execute a DoWhile for the number of seconds that you set.

    Dim dtTimer As Date
    Dim lngWaitSeconds As Long
    
    ' lngWaitSeconds  defines the length of time to run the loop
    lngWaitSeconds = 120
    dtTimer = Timer
    Do While (Timer - dtTimer) < lngWaitSeconds
    Loop

Is this what you were looking for?