ltmmCaptureCtrl.IsPreviewTapSupported Example for Visual Basic

Private Sub TestSub()
Dim capture As ltmmCaptureCtrl
Dim bPrvAudio As Boolean
Dim lVol As Long
Dim lBalance As Long

bPrvAudio = capture.IsPreviewTapSupported (ltmmCapture_Preview_Audio, ltmmCapture_PreviewTap_Source) 
If bPrvAudio = True Then
    capture.Mute = False
End If

If capture.Volume = 0 Then
    capture.Volume = -10000
Else
    capture.Volume = 0
End If

If capture.Balance <> 0 Then
    capture.Balance = 0
End If

End Sub