vb,怎样延迟执行下一段代码?

（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