' Display the named audio input properties
Private Sub DisplayAudioInputProps(Capture As ltmmCaptureCtrl, Name As String)
Dim AudioInputs As ltmmAudioInputs
Dim AudioInput As ltmmAudioInput
Dim index As Long
Set AudioInputs = Capture.AudioInputs
If AudioInputs.Count > 0 Then
Set AudioInput = AudioInputs.Item (AudioInputs.Find (Name))
'Display info
txtInfo.Text = txtInfo.Text + "Bass value = " + CStr(AudioInput.Bass)
txtInfo.Text = txtInfo.Text + "Bass range value = " + CStr(AudioInput.BassRange)
txtInfo.Text = txtInfo.Text + "Enable state = " + AudioInput.Enable
txtInfo.Text = txtInfo.Text + "Friendly name = " + AudioInput.FriendlyName
txtInfo.Text = txtInfo.Text + "Loudness state = " + AudioInput.Loudness
txtInfo.Text = txtInfo.Text + "Mixlevel value = " + CStr(AudioInput.MixLevel)
txtInfo.Text = txtInfo.Text + "Mono state = " + AudioInput.Mono
txtInfo.Text = txtInfo.Text + "Stream name" + AudioInput.Name
txtInfo.Text = txtInfo.Text + "Pan value = " + CStr(AudioInput.Pan)
txtInfo.Text = txtInfo.Text + "Treble value = " + CStr(AudioInput.Treble)
txtInfo.Text = txtInfo.Text + "Treble range = " + CStr(AudioInput.TrebleRange)
End If
End Sub