Code: A Seconds Delay with DoEvents; basDelaySec()

Public Sub basDelaySec(ByVal Seconds As Long)

Dim dtmDate as Date

dtmDate = DateAdd(&quot;s&quot;, Seconds, Now)

Do
    DoEvents
Loop Until Now &gt; dtmDate

End Sub

mod date: 1998-10-29T20:39:10.000Z