Procedura Sleep
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
|
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 |
