module1.bas

来自「用于电脑和TSDA台湾伺服控制器进行通讯」· BAS 代码 · 共 13 行

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