Sub Example_Left()
    ' Этот пример создает новую панель инструментов по имени "TestToolbar" и
    ' вставляет кнопку. Панель инструментов показана и возвращена позиция Left.
    ' Чтобы удалить панель инструментов после выполнения этой
    ' макрокоманды, используйте опцию 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
    
    'Найдите позицию Left
    Dim currLeft As Integer
    currLeft = newToolBar.Left
    MsgBox "Текущее значение Left " & newToolBar.Left, , "Left Пример"
    
    'Измените значение Left
    newToolBar.Left = currLeft + 100
    MsgBox "Новое значение Left " & newToolBar.Left, , "Left Пример"
    
    'Сбросьте значение Left
    newToolBar.Left = currLeft
    MsgBox "Значение Left было сброшено к " & newToolBar.Left, , "Left Пример"
    
End Sub