This routine allows you to put a fairly accurate time delay, very
useful for I/O routines and nice, graphic-delayed drawing routines
in your code:
Sub Delay (milliseconds As Integer)
' This Routine uses a Timer to trigger
' a fixed Time Delay.
'======================================
Dim Temp As Integer
If (milliseconds > 0 and milliseconds _
< 32767) Then
TimeExpired = False
Main.Delay.Interval = milliseconds
Main.Delay.Enabled = True
While (TimeExpired = False)
Temp = DoEvents()
Wend
End If
End Sub
Sub Delay_Timer ()
' This Routine is the Timer Event. That is, when
' the timer expires, it is disabled and the global
' variable TimeExpired = set to True.
TimeExpired = True
Delay.Enabled = False
End Sub