module1.bas

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

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


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