Michael Walker
New Member
- Joined
- Jan 13, 2005
- Messages
- 8
Hi, I need some help getting this timer to work properly.
What it does is just delay the start of a procedure, though while it is counting down my toolbars become inactive. Is there maby a better way to do this? Thanks.
Private Sub Time()
Dim PauseTime, Start
PauseTime = 6
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
NextSub
End Sub
What it does is just delay the start of a procedure, though while it is counting down my toolbars become inactive. Is there maby a better way to do this? Thanks.
Private Sub Time()
Dim PauseTime, Start
PauseTime = 6
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
NextSub
End Sub