'Public Function SelectMicrophone(DeviceID As Long, Optional sError As String) As Boolean
'    Dim pmxl As MIXERLINE, pmxlc As MIXERLINECONTROLS, pmxc As MIXERCONTROL, pmxcd As MIXERCONTROLDETAILS, mcdlt() As MIXERCONTROLDETAILS_LISTTEXT, mcdb() As Long
'    Dim rc As Long, Index As Long
'    On Error GoTo Exception
'        'Get WaveIn Destination Line ID
'        Let pmxl.cbStruct = Len(pmxl)
'        Let pmxl.dwComponentType = MIXERLINE_COMPONENTTYPE_DST_WAVEIN
'        Let rc = mixerGetLineInfo(DeviceID, pmxl, MIXER_GETLINEINFOF_COMPONENTTYPE)
'        If rc <> 0 Then GoTo Exception 'Error Trap
'
'        'Get Control ID with MIXER
'        Let pmxlc.cbStruct = Len(pmxlc)
'        Let pmxlc.dwLineID = pmxl.dwLineID
'        Let pmxlc.dwControl = MIXERCONTROL_CONTROLTYPE_MIXER
'        Let pmxlc.cControls = pmxl.cControls
'        Let pmxlc.cbmxctrl = Len(pmxc)
'        Let pmxlc.pamxctrl = VarPtr(pmxc)
'        Let rc = mixerGetLineControls(DeviceID, pmxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE)
'
'        If rc <> 0 Then
'            'Get Control ID
'            Let pmxlc.dwControl = MIXERCONTROL_CONTROLTYPE_MUX
'            Let rc = mixerGetLineControls(DeviceID, pmxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE)
'            If rc <> 0 Then GoTo Exception 'Error Trap
'        End If
'
'        'Get Control Details
'        ReDim mcdlt(pmxc.cMultipleItems - 1)
'        Let pmxcd.cbStruct = Len(pmxcd)
'        Let pmxcd.cChannels = 1
'        Let pmxcd.dwControlID = pmxc.dwControlID
'        Let pmxcd.item = pmxc.cMultipleItems
'        Let pmxcd.cbDetails = Len(mcdlt(0))
'        Let pmxcd.paDetails = VarPtr(mcdlt(0))
'        Let rc = mixerGetControlDetails(DeviceID, pmxcd, MIXER_GETCONTROLDETAILSF_LISTTEXT)
'        If rc <> 0 Then GoTo Exception 'Error Trap
'
'        For Index = LBound(mcdlt) To UBound(mcdlt)
'            pmxl.dwLineID = mcdlt(Index).dwParam1
'            Let rc = mixerGetLineInfo(DeviceID, pmxl, MIXER_GETLINEINFOF_LINEID)
'            If rc <> 0 Then GoTo Exception 'Error Trap
'            If pmxl.dwComponentType = MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE Then
'                Exit For
'            End If
'        Next
'
'        If Index > UBound(mcdlt) Then GoTo Exception
'        'Get Control Values
'        ReDim mcdb(pmxc.cMultipleItems - 1)
'        Let pmxcd.cbDetails = Len(mcdb(0))
'        Let pmxcd.paDetails = VarPtr(mcdb(0))
'        Let mcdb(Index) = 1
'        Let rc = mixerSetControlDetails(DeviceID, pmxcd, MIXER_SETCONTROLDETAILSF_VALUE)
'        If rc <> 0 Then GoTo Exception 'Error Trap
'    Let SelectMicrophone = True
'    Exit Function
'Exception:
'End Function