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