Description

app sleeps for a given time

Author

Programmershelp

Code

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub Pause(ByVal seconds As Single)
Call Sleep(Int(seconds * 1000#))
End Sub

Information

tested using VB 6

Download