module1.bas

网上找到的

Attribute VB_Name = "Module1"
Declare Sub DIO_OutputByte Lib "dio.dll" (ByVal Address As Integer, ByVal DataOut As Integer)
Declare Function DIO_InputByte Lib "dio.dll" (ByVal Address As Integer) As Integer

Public Declare Function GetTickCount Lib "kernel32" () As Long


Sub TimeDelay(TT As Long)
  Dim t As Long
  t = GetTickCount()
  Do
    DoEvents
    If GetTickCount - t < 0 Then t = GetTickCount
  Loop Until GetTickCount - t >= TT
End Sub