module1.bas

使用 RS232串列通訊和機器人連結

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