global.bas

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

Attribute VB_Name = "Global"
Public Const INFINITE = &HFFFF      '  Infinite timeout
Public Const WAIT_TIMEOUT = &H102
Global ThreadHandle As Long
Global EventHandle As Long
Global dwThreadID  As Long

Function CheckError(ByVal lErrCde As Long) As Boolean
   Dim szErrMsg As String * 80

   If (lErrCde <> 0) Then
      DRV_GetErrorMessage lErrCde, szErrMsg
      response = MsgBox(szErrMsg, vbOKOnly, "Error!!")
      CheckError = True
   Else
      CheckError = False
   End If
End Function