请问哪位有等待的函数，我想让程序等待几秒再执行下面的代码。

Question

请问哪位有等待的函数，我想让程序等待几秒再执行下面的代码。

Answer 1

aa=timer
do until timer-aa>5
doevents 
loop

Answer 2

Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)Sleep (2000)‘延时

Answer 3

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)不过这个api有个缺点 就是暂停时 是将整个程序暂停掉了 如果需要暂停的时间很长 最好用楼上的方法