This routine allows you to put a fairly accurate time delay, veryuseful for I/O routines and nice, graphic-delayed drawing routinesin your code:

 Sub Delay (milliseconds As Integer)' This Routine uses a Timer to trigger' a fixed Time Delay.'======================================Dim Temp As IntegerIf (milliseconds > 0 and milliseconds _< 32767) Then        TimeExpired = False        Main.Delay.Interval = milliseconds        Main.Delay.Enabled = True        While (TimeExpired = False)                Temp = DoEvents()        WendEnd IfEnd SubSub 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 = FalseEnd Sub