问:如何让语句中断?

Question

VB中如何使用延时函数？
声明：
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
调用：
'延时1秒
Call Sleep(1000)

Answer 1

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

Answer 2

dim StartTimeStartTime=Now
While DateDiff("s",StartTime,Now)<3     '延时三秒
   DoEvents
Wend

Answer 3

有三种方法：
1. beforetime=timer
   do 
   loop until timer>beforetime+10
2.声明GetTickCount
   beforetime=gettickcount
   do
   loop until gettickcount>beforetime+10*1000
3.声明Sleep
  call sleep(10＊1000）