Sub Example_Toolbars()
    'Этот пример находит имена всех панелей инструментов в первой группе меню.
    
    Dim toolbarNames As String
    Dim toolbarCollection As AcadToolbars
    Dim toolbar As AcadToolbar
    
    Set toolbarCollection = ThisDrawing.Application.MenuGroups.Item(0).Toolbars
    toolbarNames = ""
    For Each toolbar In toolbarCollection
        toolbarNames = toolbarNames & toolbar.name & vbCrLf
    Next toolbar
    MsgBox toolbarNames
End Sub