Public Enum SoundControls
    Loudness = MCT_BOOLEAN + 4
    Mute = MCT_BOOLEAN + 2
    StereoEnhance = MCT_BOOLEAN + 5
    Mono = MCT_BOOLEAN + 3
    Volume = MCT_FADER + 1
    Bass = MCT_FADER + 2
    Treble = MCT_FADER + 3
    Equalizer = MCT_FADER + 4
End Enum
#If False Then
Private Loudness, Mute, StereoEnhance, Mono, Pan, Volume, Bass, Treble, _
  Equalizer
#End If
 
'mixer handle
Private hMixer As Long
 
'mixer structures
Private Type MIXERLINE
    cbStruct            As Long 'size in bytes of MIXERLINE structure
    dwDestination       As Long 'zero based destination index
    dwSource            As Long 'zero based source index (if source)
    dwLineID            As Long 'unique line id for mixer device
    fdwLine             As Long 'state/information about line
    dwUser              As Long 'driver specific information
    dwComponentType     As Long 'component type line connects to
    cChannels           As Long 'number of channels line supports
    cConnections        As Long 'number of connections (possible)
    cControls           As Long 'number of controls at this line
    szShortName(1 To MIXER_SHORT_NAME_CHARS)    As Byte
    szName(1 To MIXER_LONG_NAME_CHARS)          As Byte
    dwType              As Long
    dwDeviceID          As Long
    wMid                As Integer
    wPid                As Integer
    vDriverVersion      As Long
    szPname(1 To MAXPNAMELEN)  As Byte
End Type
Private ChannelLine As MIXERLINE
 
Private Type MIXERLINECONTROLS
    cbStruct            As Long 'size in Byte of MIXERLINECONTROLS
    dwLineID            As Long 'line id (from MIXERLINE.dwLineID)
    dwControl           As Long 'MIXER_GETLINECONTROLSF_ONEBYID or 
    ' MIXER_GETLINECONTROLSF_ONEBYTYPE
    cControls           As Long 'count of controls pamxctrl points to
    cbmxctrl            As Long 'size in Byte of _one_ MIXERCONTROL
    pamxctrl            As Long 'pointer to first MIXERCONTROL array
End Type
Private ChannelControls As MIXERLINECONTROLS
 
Private Type MIXERCONTROL
    cbStruct            As Long 'size in Byte of MIXERCONTROL
    dwControlID         As Long 'unique control id for mixer device
    dwControlType       As Long 'MIXERCONTROL_CONTROLTYPE_xxx
    fdwControl          As Long 'MIXERCONTROL_CONTROLF_xxx
    cMultipleItems      As Long 'if MIXERCONTROL_CONTROLF_MULTIPLE set
    szShortName(1 To MIXER_SHORT_NAME_CHARS)   As Byte 'short name of control
    szName(1 To MIXER_LONG_NAME_CHARS)         As Byte 'long name of control
    lMinimum            As Long 'Minimum value
    lMaximum            As Long 'Maximum value
    reserved(10)        As Long 'reserved structure space
End Type
Private ValueControl As MIXERCONTROL
 
Private Type MIXERCONTROLDETAILS
    cbStruct            As Long 'size in Byte of MIXERCONTROLDETAILS
    dwControlID         As Long 'control id to get/set details on
    cChannels           As Long 'number of channels in paDetails array
    item                As Long 'hwndOwner or cMultipleItems
    cbDetails           As Long 'size of one details_XX struct
    paDetails           As Long 'pointer to array of details_XX structs
End Type
Private ControlDetails As MIXERCONTROLDETAILS
 
'Properties
Private myValue         As Long
Private myMinValue      As Long
Private myMaxValue      As Long
Private mySuccess       As Boolean
Private myChannName     As String
Private myCtrlName      As String
 
Public Property Get ChannelName() As String
 
  'returns the chosen channel name
 
    ChannelName = Left$(myChannName, InStr(myChannName, Chr$(0)) - 1)
 
End Property