关于VB延时程序的问题起高手指点

用这个函数，然后把所有Call delay_Timer都改成Call Delay(num)

Public Sub Delay(Sec As Long)

Dim TStart As Single, t As Single, t0 As Integer

TStart = Timer

While t <Sec

t = Timer - TStart

If Int(t) <>t0 Then

t0 = Int(t)

Text2.Text = Sec - t0

End If

DoEvents

Wend

End Sub

自定义一个函数： Private Const KEYEVENTF_KEYUP = &H2

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Pause(ByVal sSec As Long)

Dim StartSec As Long

StartSec = GetTickCount()

While (GetTickCount() - StartSec) <sSec

DoEvents

Wend

End Sub这样Pause(50)就可以延迟50毫秒、Pause(1000)就可以延迟1秒，（）里面的数字可以随便写，单位是毫秒，1秒=1000毫秒。

---