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