Здесь мы покажем, как можно реализовать функцию ожидания в VB.

Вначале поместите на форму таймер (Timer 1) и установите его свойство Interval= 0 и свойство Enabled = False.
Для тестирования процедуры добавьте две метки (Labell и Label2) и командную кнопку (Command 1) к форме. Напишите следующую подпрограмму и код события Timer для таймера:

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

Теперь можете использовать функцию wait везде, где требуется какая-либо задержка. Итак, сама реализация функции «ожидания»:

Private Sub Command1_Click()
Label1.Caption = Now
Wait (5)
Label2.Caption = Now
End Sub