API Documentation > CorelDRAW > 2025-v26 > EffectLens > IVGEffectLens
EffectLens.Shapes property
Gets the subshapes of frozen lens group
Syntax:
Property Get Shapes() As Shapes
Remarks:
The Shapes property returns the Shapes collection, which contains all intermediate shapes generated by a frozen lens.
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