module3.bas

来自「用户MODBUS规约通信编程,起参考作用.」· BAS 代码 · 共 18 行

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

Public Function TimeDelay(t As Integer)
Dim tt As Long

tt = GetTickCount()

Do
DoEvents
Loop Until GetTickCount - tt > t


End Function