What exactly does this do. I have found in some programs I needed it and in others if I do use it it crashes. Like for instance I can't get this code to work if I put in option Explicit

Sub Timeout(duration)
starttime = Timer
Do While Timer - starttime < duration: DoEvents
Loop
End Sub

Private Sub Command1_Click()
Timeout (10)
Label1.Caption = "hello"
End Sub


------------------
Sincerely,
Chris
:-) ;-)
Email [email protected]