How I can select the same entity in different selectionbox.

How I can select the same entity in different selectionbox.

I have two SelectionBox, and I want to select points in both, and the Possibility for that are repeated the same entity.

I'm using the property, AllowMultipleSelectOfSameEntity, but do not make it.

Any ideas?

This is my example:

Public SelBoxPointCol_1 As PropertyManagerPageSelectionbox

Public SelBoxPointCol_2 As PropertyManagerPageSelectionbox

'SelBoxPointCol_1

        controlType = swPropertyManagerPageControlType_e.swControlType_Selectionbox

        leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge

        options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible

        SelBoxPointCol_1 = GrColumnas.AddControl(SelBoxPointColID, controlType, "Select points", leftAlign, options, "Select points")

        If Not SelBoxPointCol_1 Is Nothing Then

            Dim filter() As Integer = New Integer(1) {swSelectType_e.swSelSKETCHPOINTS, swSelectType_e.swSelSKETCHSEGS}

            SelBoxPointCol_1.Height = 40

            SelBoxPointCol_1.SingleEntityOnly = False

            SelBoxPointCol_1.AllowSelectInMultipleBoxes = True

            SelBoxPointCol_1.AllowMultipleSelectOfSameEntity = True

            SelBoxPointCol_1.GetSelectedItems()

        End If

'SelBoxPointCol

  controlType = swPropertyManagerPageControlType_e.swControlType_Selectionbox

        leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge

        options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible

        SelBoxPointCol_2 = GrColumnas.AddControl(SelBoxPointColID, controlType, "Select points with X", leftAlign, options, "Select points with X")

        If Not SelBoxPointCol_2 Is Nothing Then

            Dim filter() As Integer = New Integer(1) {swSelectType_e.swSelSKETCHPOINTS, swSelectType_e.swSelSKETCHSEGS}

            SelBoxPointCol_2.Height = 40

            SelBoxPointCol_2.SingleEntityOnly = False

            SelBoxPointCol_2.AllowSelectInMultipleBoxes = True

            SelBoxPointCol_2.AllowMultipleSelectOfSameEntity = True

            SelBoxPointCol_2.GetSelectedItems()

        End If


Thanks in advance.

SolidworksApi macros