'Catia VBA-How to subtract selected item

I wan to write a code to select parent item in catia. I select a object then run this code.

Set Sel = CATIA.ActiveDocument.Selection
Sel.Add Sel.Item(1).LeafProduct.Parent.Parent

then 2 item selected: item(1),item(2). How to subtract item(1)? Thanks



Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source