Sub Example_SelectionSets()
    ' Этот пример находит текущую коллекцию SelectionSets и добавляет
    ' новый SelectionSet к той коллекции.
    
    Dim SSetColl As AcadSelectionSets
    Set SSetColl = ThisDrawing.SelectionSets
    
    ' Создайте SelectionSet по имени "TEST" в текущем рисунке
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = SSetColl.Add("TEST")
    MsgBox "Новый SelectionSet " & ssetObj.name & " добавился к коллекции SelectionSets.", vbInformation, "SelectionSets Пример"
End Sub