Выполнить через Х секунд

Public Function TimeOUT(HesitateTime)
Dim Hesitator As Long

Hesitator& = Timer
Do While Timer - Hesitator& < Val(HesitateTime)
DoEvents
Loop
End Function

TimeOUT (10)

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Выполнить через Х секунд", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!