Sub Example_Parent()
    'Этот пример создает новую панель инструментов и затем находит
    'родительскую панель инструментов.
    'Чтобы удалять панель инструментов после выполнения этой 
    'макрокоманды, используйте опцию Customize Menu меню Tools.
    
    Dim currMenuGroup As acadMenuGroup
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
    
    'Создайте новую панель инструментов
    Dim newToolBar As AcadToolbar
    Set newToolBar = currMenuGroup.Toolbars.Add("MyTools")
    
    'Добавьте кнопку к новой панели инструментов.
    'Всем трем кнопкам прикрепят одну макрокоманду.
    Dim newButton1 As AcadToolbarItem
    Dim openMacro As String
    
    'Назначьте строку макрокоманды эквивалент VB "ESC ESC _open"
    openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
    
    Set newButton1 = newToolBar.AddToolbarButton("", "OpenFile", "Откройте файл.", openMacro)
    
    'Покажите панель инструментов
    newToolBar.Visible = True
    
    'Найдите родительскую панель инструментов для кнопки панели
    MsgBox newButton1.name & " кнопка h " & newButton1.Parent.name & " панеле инструментов."
End Sub