Sub Example_HelpString()
    ' Этот пример создает новую панель инструментов по имени "TestToolbar" и
    ' вставляет кнопку. Свойство HelpString панели инструментов читается и
    ' изменяется.
    ' Чтобы удалить панель инструментов после выполнения этой
    ' макрокоманды, используйте опцию 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
    
    ' Читайте текущее значение строки Справки
    MsgBox "Текущее значение HelpString для кнопки панели: " & newButton1.HelpString
    
    ' Измените значение строки Справки
    newButton1.HelpString = "Используйте эту кнопку панели, чтобы Открыть файл."
    
    ' Читайте новое значение строки Справки
    MsgBox "Новый HelpString для кнопки панели: " & newButton1.HelpString
End Sub