请问vb里有没有等到时间的函数

Question

比如说运行到某一行等待3秒之后再接着运行，应该有这样的函数吧？

Answer 1

Private Sub Wait(byval dtTime as Integer)
    dim NowTime as Date    NowTime = Time
    do while true
        if DateDiff("S",NowTime,Time) + 1 = dtTime then Exit do
    loop
End Sub

Answer 2

Private Declare Sub sleep Lib "kernel32" Alias "Sleep" (ByVal dwmilliseconds As Long)用法sleep 1500

Answer 3

Private Declare Sub Sleep Lib "kernel32.dll" ( _ 
 ByVal dwMilliseconds As Long)
Private Sub Wait(ByVal Interval As Long)
'---------------------Call Sleep(Interval)
'---------------------
End Sub

Answer 4

form_load()
timer.interval=3000
timer.enabled=false
end subsub mysub()
......
timer.enabled=true
timer.enabled=false
.......
end sub