Sub Example_Top()
    'Этот пример создает новую панель инструментов и вставляет кнопку. 
    'Панель инструментов затем показана и верхняя позиция возвращена.
    'Чтобы удалять панель инструментов после выполнения этой
    'макрокоманды, используйте опцию 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 openMacro As String
    
    'Назначьте строку макрокоманды эквивалент VB "ESC ESC _open"
    openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
    
    Set newButton1 = newToolBar.AddToolbarButton("", "NewButton1", "Откройте файл.", openMacro)
    
    
    'Покажите панель инструментов
    newToolBar.Visible = True
    
    'Найдите верхнюю позицию
    Dim currTop As Integer
    currTop = newToolBar.Top
    MsgBox "Текущее значение Top " & newToolBar.Top, , "Top Пример"
    
    'Измените значение Top
    newToolBar.Top = currTop + 100
    MsgBox "Новое значение Top " & newToolBar.Top, , "Top Пример"
    
    'Сбросьте значение Top
    newToolBar.Top = currTop
    MsgBox "Значение Top было сброшено к " & newToolBar.Top, , "Top Пример"
    
End Sub