global.bas

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

Attribute VB_Name = "Module2"
Global Const MaxEntries = 255
Global DeviceHandle As Long
Global ptDevGetFeatures As PT_DeviceGetFeatures
Global lpDevFeatures As DEVFEATURES
Global devicelist(0 To MaxEntries) As PT_DEVLIST
Global SubDevicelist(0 To MaxEntries) As PT_DEVLIST
Global ErrCde As Long
Global szErrMsg As String * 80
Global bRun As Boolean

Global lpCounterFreqStart As PT_CounterFreqStart
Global lpCounterFreqRead As PT_CounterFreqRead