Active selection after grouping

I make a group with the following code and the group created but CorelDraw shows that selected shape is shape1How can I change the active selection to sGroup and next step to duplicate the whole group?

Dim sr As New ShapeRange
Dim sGroup As Shape
sr.Add shape1
sr.Add shape2
sr.Add shape3
sr.Add shape4
sr.Add shape5
sr.Add shape6
Set sGroup = sr.Group

  • try to add lines

    sGroup.CreateSelection
    sGroup.Duplicate x, y

    X Specifies the horizontal distance to offset the duplicated shape. This parameter is optional, and its default value is 0.

    Y Specifies the vertical distance to offset the duplicated shape. This parameter is optional, and its default value is 0