Attribute VB_Name = "Module1" Option Explicit Public modelx As Integer Public lRawCountArray(30) As Long Public Const SINGLE_CHAN_SCAN = 1 Public usDevID As Integer Public fScanning As Boolean Public Const GS_NOT_SCANNING = &H1 Public Const GS_HALTED = &H2 Public Const GS_DISCONNECT = &H4 Public Const GS_SCAN_COMPLETED = &H8 Public Const GS_MISSING_DIGIN_BUFF = &H10 Public Const GS_BUFF_TOO_SMALL = &H20 Public Const GS_MICRO_BUFF_WRAP = &H40 Public Const GS_MEM1_BUFF_WRAP = &H40 Public Const GS_MEM2_BUFF_WRAP = &H40 Public Const GS_NO_DATA = &H40 Public Const USE_SCAN_DATA_LOG_FILE = 1 Public Const USE_SCAN_DATA_ARRAY = 2 Public Const SCAN_STOP_ON_DATA_ARRAY_WRAP = 4 Public Const SCAN_LIMIT_LOG_FILE_SIZE = 8 Declare Function EX_Connect Lib "LL_USB2k.DLL" (ByRef pDevID As Integer) As Byte Declare Function EX_Run Lib "LL_USB2k.DLL" (ByVal DevID As Integer) As Byte Declare Function EX_Stop Lib "LL_USB2k.DLL" (ByVal DevID As Integer) As Byte Declare Function EX_StopComplete Lib "LL_USB2k.DLL" (ByVal DevID As Integer) As Byte Declare Function EX_SetScanType Lib "LL_USB2k.DLL" (ByVal DevID As Integer, ByVal bScanType As Byte) As Byte Declare Function EX_SetPolledModeChan Lib "LL_USB2k.DLL" (ByVal DevID As Integer, ByVal bChan As Byte) As Byte Declare Function EX_GetPolledModeChan Lib "LL_USB2k.DLL" (ByVal DevID As Integer, ByRef pbChan As Byte) As Byte Declare Function EX_CheckScanStatus Lib "LL_USB2k.DLL" (ByVal pDevID As Integer, _ ByRef puiNumScansRemainingInBuff As Long, ByRef pfStillScanning As Byte, ByRef puiStatusCode As Long) As Byte Declare Function EX_GetScanDataInt Lib "LL_USB2k.DLL" (ByVal DevID As Integer, ByRef piDataBuff As Long, _ ByVal uiNumScansToReturn As Long, ByVal fGetAllRequested As Byte, ByRef puiNumScansReturned As Long, _ ByRef puiNumScansRemainingInBuff As Long, ByRef pfStillScanning As Byte, ByRef puiTotalBuffSize As Long, _ ByRef puiErrCode As Long) As Byte Declare Function EX_SetDataLogOptions Lib "LL_USB2k.DLL" (ByVal usDevID As Integer, _ ByVal uiDataLogMethod As Long, ByVal uiLogFileMaxSize As Long, ByVal uiMisc As Long) As Byte