module1.bas

用于电脑和TSDA台湾伺服控制器进行通讯

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


Public Sub Delay(ByVal lngMsec As Long)
On Error Resume Next
Dim lngStartMsec As Long
lngStartMsec = GetTickCount
Do While GetTickCount - lngStartMsec <= lngMsec
DoEvents
Loop
End Sub