高手快请进，一个菜鸟问题，急急！！！回复必有分！！

Question

用Timer控件，但能够满足一般的定时要求，不过它无法实现很精确的定时。

Answer 1

延時seconds秒
sub delay(seconds as double)
     dim tTemp as double
     tTemp=Timer
     while Timer-tTemp<=seconds
        doevents
     wend
end sub

Answer 2

延時seconds秒,使用系統變量Timer
sub delay(seconds as double)
     dim tTemp as double
     tTemp=Timer
     while Timer-tTemp<=seconds
        doevents
     wend
end sub

Answer 3

还可以使用系统时间来延时。
delaytime:
t1=second(time) 'hour、minute
t2=t1+delay
if second(time)<t2 then
goto delaytime
end if
……

Answer 4

这们老兄VB有有延时的函数
API 中有一个用于延时的函数，sleep函数你可以用API文本浏览器进行函数的申明

Answer 5

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

Answer 6

还是用定时器的好！sleep好象就可能会遗漏事件（比如mscomm的数据输入事件）,我开始用的是
for ...
  for ...
  next ...
next..
效果最差了连串口的数据都进不来了
还是用定时器好！虽然不能作到精确定时！

Answer 7

定义一个Sleep的Api函数 
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 8

晚了晚了，来晚了For i= 1 to 9999999
'最好这里再加个 Do Event
Next i估计也能延时。