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