
Private Declare Sub Sleep Lib "kernel32" _ (ByVal dwMilliseconds As Long) Public Sub Wait(Seconds As Single) Dim lMilliSeconds As Long lMilliSeconds = Seconds * 1000 Sleep lMilliSeconds End Sub
Sub Delay(dblSecs As Double) Const OneSec As Double = 1# / (1440# * 60#) Dim dblWaitTil As Date dblWaitTil = Now + OneSec * dblSecs Do Until Now > dblWaitTil DoEvents ' Allow windows messages to be processed Loop
