ник: час
А вот и сам слип
' объявляем WinAPI функцию ожидания сообщения
Private Declare Function WaitMessage Lib "user32.dll" () As Long
Public Function SleepVB(Seconds)
' ожидание Seconds секунд
Dim Start
Start = Timer ' текущее время в секундах
Do While Timer < Start + Seconds
WaitMessage ' ждем сообщения
DoEvents ' обрабатываем
Loop
End Function
|
Всё проходит гладенько и аккуратненько