doevents vba

Ответ от Олег Евтушевский[гуру]
В добавок к комментарию:
Public Sub Wait(seconds)
‘ Включение таймера
Timer1.Enabled = True
‘ Установка интервала
Me.Timer1.Interval = 1000 * seconds
While Me.Timer1.Interval > 0
DoEvents
Wend
’ Выключение таймера
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 0
End Sub
Реализация:
Private Sub Command1_Click()
Label1.Caption = Now
Wait (5)
Label2.Caption = Now
End Sub
З. Ы. Можешь не умножать на 1000. Тогда получишь время задержки в миллисекундах.
Главное окно "замораживаться" не будет.
Вызов процедуры Wait можешь смело вставлять в цикл. ))
Удачи!