Mergin Menus

[hbandarra]

When I Merge two main menus, the names are not overriden as I would like to be:

for example:

menuA:
File Edit Help
a1   b1   c1
a2   b2   c2

menuB:
Help
c3

menuA.MergeMenu(menuB) should be:
File Edit Help
a1   b1   c1
a2   b2   c2
          c3

but instead, I get:
File Edit Help Help
a1   b1   c1   c3
a2   b2   c2

Why is that? How do I get the desired behaviour?

Thx!

[cim3]

This works

Dim a1 As New MenuItem()
Dim a2 As New MenuItem()
Dim a3 As New MenuItem()
Dim b1 As New MenuItem()
Dim b2 As New MenuItem()

a1.Text = "Edit"
a2.Text = "Paste"
a3.Text = "Copy"

b1.Text = "Edit"
b2.Text = "Cut"

a1.MenuItems.Add(a2)
a1.MenuItems.Add(a3)
b1.MenuItems.Add(b2)

a1.MergeMenu(b1)

MainMenu1.MenuItems.Add(a1)
'MainMenu1.MenuItems.Add(b1)

[hbandarra]

Thanks, cim3!

Based on your example, I've written the following working code:

        Dim localMainMenu As MainMenu = GetLocalMainMenu()
        Dim remoteMainMenu As MainMenu = GetRemoteMainMenu()

        Dim remoteMenuItem As MenuItem
        For Each remoteMenuItem In remoteMainMenu.MenuItems
            Dim localMenuItem As MenuItem
            Dim localFound As Boolean = False
            For Each localMenuItem In localMainMenu.MenuItems
                If localMenuItem.Text = remoteMenuItem.Text Then
                    localMenuItem.MergeMenu(remoteMenuItem)
                    localFound = True
                    Exit For
                End If
            Next
            If localFound = False Then
                localMainMenu.MenuItems.Add(remoteMenuItem)
            End If
        Next

But, as you can see, this solution ignores any ordering or merging type defined by the menu items.
Of course I could do it my self, but was'n it supposed to work wright just by doing:

localMainMenu.MergeMenu(remoteMainMenu)

?

Thx!