Dim lInputtype As Long If Not ltmmCapture.TVTuner Is Nothing Then ltmmCapture.TVTuner.SetInputType 0, ltmmTunerInputCable ltmmCapture.TVTuner.GetInputType 0 End If