Procedura Sleep

Procedura:
Public Sub Sleep(Seconds As Single, EventEnable As Boolean)

    On Error GoTo ErrHndl
    Dim OldTimer As Single
    
    OldTimer = Timer
    Do While (Timer - OldTimer) < Seconds
        If EventEnable Then DoEvents
    Loop

    Exit Sub
ErrHndl:
    Err.Clear

End Sub

Zp∞t

Autor: The Bozena