module1.bas

来自「利用vb達到電源供應器的控制」· BAS 代码 · 共 15 行

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