Originally posted by Serge:
Oops, you're right.....stupid typo (thats what happens when you type directly into the post)
Code:
Private Sub TimeOut(pInterval As Single)
Dim sngTimer As Single
sngTimer = Timer
Do While Timer < sngTimer + pInterval
DoEvents
Loop
End Sub
Private Sub Lump()
Do
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
Loop
End Sub