ltmmConvertCtrl.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 a reference in VB for the Misc.FX tlb
Private Sub TurnOffLensCropping(Capture As ltmmConvertCtrl) 
Dim Proc As LMVLens
   
   ' call the Convert object to retrieve the video processors
   Set Proc = Convert.GetSubObjectDispatch (ltmmConvert_Object_SelVideoProcessor) 
   
   If Not Proc Then
    Proc.EffectAreaEnabled = False
   End If
End Sub