Sub Example_NameNoMnemonic()
    ' Этот пример выполняет итерации через коллекцию меню и показывает
    ' свойства Name и NameNoMnemonic для каждого меню.
    
    ' Отметьте, что в зависимости от того, сколько меню в настоящее время
    ' загружено, строка menuStatus не может быть показана полностью.
    
    Dim currMenu As AcadPopupMenu
    Dim menuStatus As String
    
    menuStatus = ""
    For Each currMenu In ThisDrawing.Application.MenuGroups.Item(0).Menus
        menuStatus = menuStatus & currMenu.name & " -- " & currMenu.NameNoMnemonic & vbCrLf
    Next currMenu
    MsgBox menuStatus
    
End Sub