Code:
Private Sub TimeOut(HowLong)
Dim TheBeginning
Dim NoFreeze As Integer
TheBeginning = Timer
Do
If Timer - TheBeginning >= HowLong Then Exit Sub
NoFreeze% = DoEvents()
Loop
End Subuse
TimeOut 4
use
TimeOut 4