如

For Each cmenu As object In ContextMenus
    output.show(cmenu.name)
    For Each item As object In cmenu.items
        output.show("    " & item.name)
        If item.Gettype.name <> "ContextCommand" Then
            For Each citem As object In item.items
                output.show("      " & citem.name)
            Next
        End If
    Next
Next