Аргументы: sngSec - время задержки в секундах, blnEvent - разрешает-запрещает выполнять какие нибудь действия во время выполнения функции
Назначение: Позволяет задержать выполнение следующего действия на указанное время
Возвращает:
Public Function Delay(sngSec As Single, Optional blnEvent As Boolean = False)
Dim sngTimer As Single
sngTimer = Timer + sngSec
Do While Timer < sngTimer
If blnEvent Then DoEvents
Loop
End Function
Вариант 2 (но не поддерживает выполнение других операций во время задержки)
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
' Пауза продолжительностью в 500 миллисекуд (1/2 секунды)
Sleep 500