by Allan(Manels ICTS) (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Wed 8th March 2006
Date Added: Mon 8th February 2021
Rating: (1 Votes)
similar to clipper inkey() function
Dim StartTime As Long
Dim EndTime As Long
StartTime = 0
StartTime = Timer
EndTime = 0
Do While EndTime <> intDelayInSeconds
EndTime = (Timer - StartTime)
DoEvents
Loop
End Sub