请教VB中精确延时的问题.十万火急！！！

Question

‘试试以下代码
Text1.Text="abc"
Dim t as Time
t=Timer
Do
Loop until(timer-t>=0.03)Text1.Text="cde"

Answer 1

iwin 的方法不错。
不过在Windows环境中没有可能精确到1毫秒。
即使是300毫秒，也是大约的。
我试过几万遍了。
如果有人说不，我给1000分。
（timer-t>=0.03)本身要耗时的，而且这不是最好的办法。
t不应该是Time,而是Single或Double.

Answer 2

用api函数：
Public Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long

Answer 3

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
还有一个 sleepex 用用试试

Answer 4

Sleep似乎不能精确控制延时，还是timeGetTime可靠一些,可能达到1ms精度。但是你要确保不会有另一个线程在这之间抢走你的时间片。