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

sleep 函数，必须先声明该函数
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) '-----Sleep函数

然后在循环体当中调用sleep函数

sleep(6000)

表示程序休息6秒钟

模块中代码
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

在你想要延迟的地方
sleep 1000 '就是延迟1秒