Attribute VB_Name = "Module1"
Public Type Guid
    L As Long
    S1 As Integer
    S2 As Integer
    c(7) As Byte
End Type

Public Declare Function USBDRVD_GetDevCount Lib "usbdrvd.dll" _
                        (ByRef USB_GUID As Guid) As Integer

Public Declare Function USBDRVD_VendorOrClassRequestOut Lib "usbdrvd.dll" _
                        (ByVal Handle As Long, _
                        ByVal ReqType As Byte, _
                        ByVal Destination As Byte, _
                        ByVal Request As Byte, _
                        ByVal Value As Integer, _
                        ByVal Index As Integer, _
                        ByVal Buffer As Long, _
                        ByVal Length As Long _
                        ) As Long

' Variables and constants need by both Form1 & Form_SCA
Public SCA(8, 2) As Long
Public SCA_Enable(8) As Integer
Public SCA_ActiveLow(8) As Integer
Public Preset_counts As Long
Public Const ConfigNeededColor As Long = vbYellow
Public Handle_device As Long
Public USB_GUID As Guid
Public Port As Integer
Public DCAL As Integer, TECCL As Integer
Public Scope_rearm As Integer, Scope_persistence As Integer, Scope_average As Integer
Public Scope_edge As Boolean, Scope_TriggerPos As Integer

' MCAData() needed by Form1 & Form_GainStabilization
Public MCAData(8192) As Long