by Stephen Glauser (3 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: 
(6 Votes)
This is a neat little Sub that will Cause a Pause or "Time Out" in your program.
Inputs
Duration (1 equals 1 Second, .5 equals a Half Second)
Side Effects
This will cause the program to wait the specified duration before continueing.
VBcodersSub TimeOut (duration)
StartTime = Timer
Do While Timer - StartTime < duration
X = DoEvents()
Loop
End Sub