timerdelay.bas

来自「自己使用 visual basic 6.0 编写的可以接收和传送资料」· BAS 代码 · 共 16 行

Attribute VB_Name = "timerdelay"
Public Setting As String
Public ComPort As Integer
Public Declare Function GetTickCount Lib "kernel32" () As Long

Sub TimeDelay(DT As Long)
  Dim TT As Long
  TT = GetTickCount()
  Do
    DoEvents
    If GetTickCount - TT < 0 Then TT = GetTickCount
  Loop Until GetTickCount - TT >= DT
End Sub