Sub Example_Index()
    ' Этот пример выполняет итерации через первое меню в строке меню
    ' и показывает индекс для каждого пункта меню.
    
    Dim menuItem As AcadPopupMenuItem
    Dim menuIndex As String
    menuIndex = ""
    
    For Each menuItem In ThisDrawing.Application.MenuBar.Item(0)
        menuIndex = menuIndex & menuItem.TagString & " имеет индекс: " & menuItem.index & vbCrLf
    Next menuItem
    MsgBox menuIndex
    
End Sub