（1）可以用api ，如以下程序：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Me.Caption ="Your system will sleep 5 sec."
Sleep 5000 'Sleep for 5000 milliseconds
Me.Caption = ""
End Sub
（2）,也可以不用api，自己可以定义一个延时
函数，调用它即可：
Private Sub Delay(HowLong As Date)
TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
DoEvents '让 windows 去处理其他事
Wend
End Sub
比如要某条语句后要延迟五秒，即加上语句：
Delay 5
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
