Help with Timer?

[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