Attribute VB_Name = "Module1" Option Explicit Public usDevID As Integer Declare Function EX_Connect Lib "LL_USB2k.DLL" (ByRef pDevID As Integer) As Byte Declare Function EX_GetOneConversion Lib "LL_USB2k.DLL" (ByVal DevID As Integer, ByRef pdblMilliVolts As Double) As Byte Declare Function EX_SetPolledModeChan Lib "LL_USB2k.DLL" (ByVal DevID As Integer, ByVal bChan As Byte) As Byte Declare Function EX_SendDigout Lib "LL_USB2k.DLL" (ByVal DevID As Integer, ByVal bDigout As Byte) As Byte Declare Function EX_GetDigin Lib "LL_USB2k.DLL" (ByVal DevID As Integer, ByRef pbDigIn As Byte) As Byte Declare Function EX_SendDAC Lib "LL_USB2k.DLL" (ByVal DevID As Integer, ByVal dblVoltage As Double, ByVal bDAC As Byte) As Byte