Help Please I posted a question earlier and got some answers but I still cant get it to work.
I want to call commands 2 to 3 minuits apart. Also I would like them to start over after the last one is done. Here is some of my code if any one could help. Also I need to use other timers.
Private Sub TimeOut(pInterval As Single)
Dim sngTimer As Single
Do While Timer < sngTimer + pInterval
DoEvents

Loop

End SubPrivate Sub Lump()
Call One
TimeOut 120
Call Two
TimeOut 120
Call Three
TimeOut 120
Call Four
TimeOut 120
Call Five
TimeOut 120
Call Six
TimeOut 120
Call Seven
TimeOut 120
Call Eight
TimeOut 120
Call Nine
TimeOut 120
Call Ten
TimeOut 120

End Sub