Help with Timer?/ Call Commands

[paul]

Thanks for all the help. I do have one more question though. For some reason my other timers don't work properly. could it be because of the TimeOut function? If so how would I fix this?
Thanks again

Originally posted by Serge:
Oops, you're right.....stupid typo (thats what happens when you type directly into the post)

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