Sub Example_FloatingRows()
    ' Этот пример создает новую панель инструментов по имени "TestToolbar" и
    ' вставляет три кнопки. Панель инструментов показана как плавающая
    ' панель инструментов с 1 и затем 3 строками.
    ' Чтобы удалить панель инструментов после выполнения этой
    ' макрокоманды, используйте опцию 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
    
    ' Назначите макро строку эквивалент VB "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.Float 200, 200, 1
    
    MsgBox "Панель инструментов имеет " & newToolBar.FloatingRows & " строку(и). "
    
    newToolBar.FloatingRows = 2
    MsgBox "Панель инструментов имеет " & newToolBar.FloatingRows & " строки. "
    
    newToolBar.FloatingRows = 3
    MsgBox "Панель инструментов имеет " & newToolBar.FloatingRows & " строки. "
    
End Sub