Dim lTunSpc As Long If Not ltmmCapture.TVTuner Is Nothing Then lTunSpc = ltmmCapture.TVTuner.TuningSpace ltmmCapture.TVTuner.TuningSpace = lTunSpc End If