Public Sub DelayTime(ByVal DelayMsTime As Short) '定量延时程序
Dim TimeDelay As Long
TimeDelay = GetTickCount
Do
System.Windows.Forms.Application.DoEvents()
Loop Until GetTickCount - TimeDelay > DelayMsTime
End Sub
Dim TimeDelay As Long
TimeDelay = GetTickCount
Do
System.Windows.Forms.Application.DoEvents()
Loop Until GetTickCount - TimeDelay > DelayMsTime
End Sub