Problem with the select the same entity in different selectionbox

Hi,

My name is Alvaro, I'm new user the forum,

I have a Problem with the select the same entity in different selectionbox.

I have two SelectionBox, and I want select points in both,

and I would like to have the Possibility to repeat the same entity in the two selection boxes

I'm using the property, AllowMultipleSelectOfSameEntity, AllowSelectInMultipleBoxes  and SingleEntityOnly,  but don't select the entity.

Any ideas?

This is my example:

In the declaration, is a PageControl, However in the code,
I changed the type to SelectionBox

'Declaration:
Public SelBoxA As PropertyManagerPageControl
Public SelBoxB As PropertyManagerPageControl


'SelBoxA
        controlType = swPropertyManagerPageControlType_e.swControlType_Selectionbox
        leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
        options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
        CtrlSelBoxA = GrColum.AddControl(SelBoxAID, controlType, "Select points", leftAlign, options, "Select points")


        If Not CtrlSelBoxA Is Nothing Then
            Dim filter() As Integer = New Integer(1) {swSelectType_e.swSelSKETCHPOINTS, swSelectType_e.swSelSKETCHSEGS}
            CType(CtrlSelBoxA, PropertyManagerPageSelectionbox).Height = 40
            CType(CtrlSelBoxA, PropertyManagerPageSelectionbox).AllowSelectInMultipleBoxes = True
            CType(CtrlSelBoxA, PropertyManagerPageSelectionbox).AllowMultipleSelectOfSameEntity = True
            CType(CtrlSelBoxA, PropertyManagerPageSelectionbox).SingleEntityOnly = False
            CType(CtrlSelBoxA, PropertyManagerPageSelectionbox).Style = swPropMgrPageSelectionBoxStyle_e.swPropMgrPageSelectionBoxStyle_MultipleItemSelect
            CType(CtrlSelBoxA, PropertyManagerPageSelectionbox).SetSelectionFilters(filter)
        End If

'SelBoxB
         controlType = swPropertyManagerPageControlType_e.swControlType_Selectionbox
         leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
         options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
         CtrlSelBoxB = GrColum2.AddControl(SelBoxBID, controlType, "Select points", leftAlign, options, "Select points")


         If Not CtrlSelBoxB Is Nothing Then
             Dim filter() As Integer = New Integer(1) {swSelectType_e.swSelSKETCHPOINTS, swSelectType_e.swSelSKETCHSEGS}
             CType(CtrlSelBoxB, PropertyManagerPageSelectionbox).Height = 40
             CType(CtrlSelBoxB, PropertyManagerPageSelectionbox).AllowSelectInMultipleBoxes = True
             CType(CtrlSelBoxB, PropertyManagerPageSelectionbox).AllowMultipleSelectOfSameEntity = True
             CType(CtrlSelBoxB, PropertyManagerPageSelectionbox).SingleEntityOnly = False
             CType(CtrlSelBoxB, PropertyManagerPageSelectionbox).Style =  swPropMgrPageSelectionBoxStyle_e.swPropMgrPageSelectionBoxStyle_MultipleItemSelect
             CType(CtrlSelBoxB, PropertyManagerPageSelectionbox).SetSelectionFilters(filter)
         End If


Thanks in advance.

SolidworksApi macros