VB 延时函数

你那种方法实际上延时会型逗橡比你设置的多1秒（t不等于0的情况指让下）

准确的可以这样编，不需要Timer控件（下面那个

Timer不是控件名）：

Private

Sub

waittime(delay

As

Single)

Dim

starttime

As

Single

starttime

=

Timer

Do

Until

(Timer

-

starttime)

>

delay

DoEvents

Loop

End

Sub

补充了一下，这样就没有假卜旁死，delay时间可直接设置，精确到0.01秒。

使迟冲州用Timer控件,修改其Interval属性为1000.我的码蔽代判颤码:Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Timer1_Timer()

Sleep 1000

Timer1.Interval = 0

End Sub

---