Как приостановить выполнение программы , на определённое время

[D[u]fa]

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Call Sleep(Число в мс)

В одной секунде 1000 мс.

Можно и без API:

Public Sub Delay(p As Single)
Dim Start As Single
Start = Timer
    Do While Timer < Start + p
        DoEvents
    Loop
End Sub

Сообщение отредактировано: SCINER - 17.01.08, 10:39

[DVS]

второй способ менее приемлем, жрёт ресурсов много