如何让VB程序暂停？

[edwardzjq]

我在用VB程序控制仪器。因仪器没有响应的triger信号，当向仪器发出指令后需要等待一段时间让其执行操作。请问除使用timer控件外，还有什么函数或方法让程序暂停预先指定的时间间隔？可能为几百毫秒或几秒。敬请各位高手赐教！！！小弟不胜感激！！！多谢！！！

[lxqlogo0]

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

sleep 1000'1秒

[bydisplay]

sleep

[lihonggen0]

'This project needs a button
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()

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

[lwm1977]

退出或暂停程序。 DoEvents, End, Exit, Stop

[edwardzjq]

Thank you very much!!!