ltmmCaptureCtrl.GetSubObjectDispatch Example for Visual Basic

' This function checks if the Lens effect filter is available
' and turns off the effect area (cropping feature) 
 ‘ Remember to add refernce in VB for the Misc.FX tlb
Private Sub TurnOffLensCropping(Capture As ltmmCaptureCtrl) 
Dim Proc As LMVLens
   
   ' call the Capture object to retrieve the video processors
   Set Proc = Capture.GetSubObjectDispatch (ltmmCapture_Object_SelVideoProcessor) 
   
   If Not Proc Then
    Proc.EffectAreaEnabled = False
   End If
End Sub