module1.bas

来自「Rs232串口通信专题范例,Vusual Basic,Mscomm,PCOMMP」· BAS 代码 · 共 12 行

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