ltmmAudioInputs.Count Example for Visual Basic

' 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