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 |
Autor: The Bozena |