Timer Question

[lintz]

I'm trying to get my app to wait 60 seconds before moving on to the next set of code. I tryed the below but it doens't wait 60 seconds as it should. Can someone help me out.

Option Explicit
Dim Counter As Integer
 
Private Sub Form_Load()
Timer1.Interval = 10000
Timer1.Enabled = True
Counter = "0"
Do Until Counter = 6
Timer1_Timer
Loop
 
MsgBox "60 seconds has passed"
End Sub
 
Private Sub Timer1_Timer()
Counter = Counter + 1
End Sub

[BrianS]

Its the code in the Timer sub that will fire in the Timer Interval.

Search for Sleep, that may work better for you.

[BrianS]

Or this

http://www.vbforums.com/showthread.p...hreadid=231183

[MartinLiss]

Option Explicit
Dim Counter As Integer
 
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 10000
Counter = "0"
 
End Sub
 
Private Sub Timer1_Timer()
Counter = Counter + 1
If Counter = 6 Then
    MsgBox "60 seconds has passed"
    Call MyNextSub
End If
 
End Sub

But here is a better way that doesn't use the Timer control.

Dim dblClock As Double
    
    dblClock = Timer
    While Timer < dblClock + 60
        DoEvents
    Wend
    MsgBox "60 seconds has passed"

[lintz]

Thanks MartinLiss

[MartinLiss]

You're welcome. I have a softspot for people who use my old avatar.

[lintz]

don't worry, i won't start using your current avatar as well