API Documentation > CorelDRAW > 2025-v26 > EffectLens > IVGEffectLens
EffectLens.Freeze method
Freezes the lens effect
Syntax:
Sub Freeze()
Remarks:
The Freeze method freezes a lens. Frozen lenses redraw more quickly than non-frozen lenses. When a lens is frozen, the contents of the object no longer interact with other objects on the screen.
Examples:
The following VBA example creates a Fish eye lens, freezes it, and then ungroups and moves the resulting objects by 4" to the right.
Sub Test()
Dim s1 As Shape, s2 As Shape, sr As ShapeRange
Set s1 = ActiveLayer.CreateRectangle(0, 0, 5, 5)
s1.Fill.ApplyFountainFill
Set s2 = ActiveLayer.CreateEllipse(1, 1, 6, 6)
With s2.CreateLens(cdrLensFishEye, 100).Lens
  .Freeze
  Set sr = .Ungroup
End With
sr.Move 4, 0 
End Sub