vba задержка времени

Ответ от Ev[гуру]
Язык программирования VB, но какой?
VB 6.0, VB .NET ?
Если VB .NET, то можно сделать так:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Усыпить текущий поток
System.Threading.Thread.Sleep(5000)
Me.Label1.Text = "Сам ты такой! "
End Sub
Если это VB 6.0 то есть два способа:
1. Через API-функцию
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Sleep 10000 ' Засыпаем на время
End Sub
2. Через цикл
Private Sub Command1_Click()
WBSleep (5)
MsgBox "Задержка выполнена! "
End Sub
Private Function WBSleep(TmpPause As Long)
Dim Ti As Single
Ti = Timer
Do
DoEvents
Loop While Ti + TmpPause >= Timer
End Function