' Display the named audio input properties
Private Sub DisplayMasterAudioInputProps(Capture As ltmmCaptureCtrl, Name As String)
Dim AudioInputs As ltmmAudioInputs
Set AudioInputs = Capture.AudioInputs
'Display info
txtInfo.Text = txtInfo.Text + "Bass value = " + CStr(AudioInputs.Bass)
txtInfo.Text = txtInfo.Text + "Bass range value = " + CStr(AudioInputs.BassRange)
txtInfo.Text = txtInfo.Text + "Enable state = " + AudioInputs.Enable
txtInfo.Text = txtInfo.Text + "Loudness state = " + AudioInputs.Loudness
txtInfo.Text = txtInfo.Text + "Mixlevel value = " + CStr(AudioInputs.MixLevel)
txtInfo.Text = txtInfo.Text + "Mono state = " + AudioInputs.Mono
txtInfo.Text = txtInfo.Text + "Pan value = " + CStr(AudioInputs.Pan)
txtInfo.Text = txtInfo.Text + "Treble value = " + CStr(AudioInputs.Treble)
txtInfo.Text = txtInfo.Text + "Treble range = " + CStr(AudioInputs.TrebleRange)
End Sub