Sub Example_Dock()
    ' Этот пример создает новую панель инструментов по имени 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 newButton1 As AcadToolbarItem
    Dim newButton2 As AcadToolbarItem
    Dim newButton3 As AcadToolbarItem
    Dim openMacro As String
    
    ' Назначите макро строку "ESC ESC _open "
    openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
    
    Set newButton1 = newToolBar.AddToolbarButton("", "NewButton1", "Откройте файл.", openMacro)
    Set newButton2 = newToolBar.AddToolbarButton("", "NewButton2", "Откройте файл.", openMacro)
    Set newButton3 = newToolBar.AddToolbarButton("", "NewButton3", "Откройте файл.", openMacro)
    
    
    ' Покажите панель инструментов
    newToolBar.Visible = True
    
    ' Закрепите панель инструментов налево от экрана.
    newToolBar.Dock acToolbarDockLeft
    MsgBox "Панель инструментов закрепляется налево."
    
    ' Закрепите панель инструментов направо от экрана.
    newToolBar.Dock acToolbarDockRight
    MsgBox "Панель инструментов закрепляется направо."
    
    ' Закрепите панель инструментов наверху экрана.
    newToolBar.Dock acToolbarDockTop
    MsgBox "Панель инструментов закрепляется наверху."
    
    ' Закрепите панель инструментов внизу экрана.
    newToolBar.Dock acToolbarDockBottom
    MsgBox "Панель инструментов закрепляется в основании."
    
End Sub