有没有让系统休眠几秒的函数

[zyg0]

有没有让系统休眠几秒的函数
我记得好像是个api 那位给写出来，在给引用一下好不

[daisy8675]

sleep

[zyg0]

关键是怎么引用，我是菜鸟

[online]

'This project needs a button
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [e-mail]
Me.Caption = "Your system will sleep 5 sec."
'Sleep for 5000 milliseconds
Sleep 5000
Me.Caption = ""
End Sub
Private Sub Form_Load()
Me.Caption = ""
Command1.Caption = "Sleep ..."
End Sub

[lxxldd]

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

[熊孩子开学喽]

私有引用：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
全局引用：
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

调用方法：SLEEP 300　　'停顿300毫秒

[daisy8675]

'This project needs a button
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [e-mail]
Me.Caption = "Your system will sleep 5 sec."
'Sleep for 5000 milliseconds
Sleep 5000
Me.Caption = ""
End Sub
Private Sub Form_Load()
Me.Caption = ""
Command1.Caption = "Sleep ..."
End Sub

[zyg0]

这么多人 只能平均分了