module1.bas

本程序用VB串口实现L了电源供应器的控制

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




Sub TimeDelay(t As Long)
 Dim TT&
 TT = GetTickCount()
 Do
   DoEvents
 Loop Until GetTickCount - TT >= t
 End Sub