module1.bas

来自「电子皮带秤数据采集工具」· BAS 代码 · 共 14 行

Attribute VB_Name = "Module1"
Public Declare Function GetTickCount Lib "kernel32" () As Long


Sub TimeDelay(DT As Long)
Dim T As Long
T = GetTickCount()
Do
  DoEvents
Loop Until GetTickCount - T >= DT
End Sub