'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