module1.bas

VB与分布式监控光盘源代码第五章命令的发送和读取

Attribute VB_Name = "Module1"
Option Explicit

Declare Function GetTickCount Lib "kernel32" () As Long

Sub TimeDelay(t As Long)
'时间延迟子程序,单位是毫秒(ms)
Dim tt&
tt = GetTickCount()
Do
 DoEvents
Loop Until GetTickCount() - tt >= t
End Sub