API Documentation > CorelDRAW > 2025-v26 > EffectLens > IVGEffectLens
EffectLens.Ungroup method
Ungroups the lens object
Syntax:
Function Ungroup() As ShapeRange
Remarks:
The Ungroup method breaks up the group of contents in a frozen lens, resulting in a number of individual shapes generated by the lens. The shapes are returned from the method as a ShapeRange collection.
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