'===========================================================================
' Subject: HOW TO WRITE A WAIT COMMAND       Date: 02-11-99 (23:00)       
' Author:  Unknown Source                    Code: VBWIN                  
' Origin:  CapeCanaveral/Lab/1961/         Packet: VBWIN.ABC
'===========================================================================
Sub WaitSecs (secs)
    Dim sTart!, Temp%
    start! = Timer                    'initialize timer
    While Timer < start! + secs +1    'start loop until timer is the same
         Temp% = DoEvents()           'as the seconds you passed to it.
    Wend
End Sub