Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Sub cSleep()
MsgBox "Следующее сообщение появится через 2 секунды.", vbOKOnly + vbInformation
Sleep 2000
MsgBox "The sleep function can be used as a delay command.", vbOKOnly + vbInformation
End Sub |
|