delay.cls

来自「gps全球卫星定位VB源码（部分）请自行准备设备接口」· CLS 代码 · 共 19 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "delay"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Sub SleepCom(ByVal delaytime As Long)
Dim i As Long
Dim j As Long
j = delaytime * Timetext
Do While i < j
   i = i + 1
   DoEvents
Loop
End Sub