Adding a MenuItem causes a problem

[**Developer**]

Private Sub ContextMenuEdit_Popup(ByVal sender As Object, ByVal e As
EventArgs) Handles ContextMenuEditor.Popup

MenuItemPasteSpecial.MenuItems.Add(0, New MenuItem("Locale", AddressOf
HandlesMenuItemPasteSpecialItems_Click))

End Sub

PasteSpecial is a submenu of a submenu of the main contextmenu

It has one item in it's menuitems collection but the problem exists with no
such items

PasteSpecial appears in it's menu with the filled in arrow symbol that
indicated there are subitems

This is the only popup event handler

If I include the Add statement above when PasteSpecial is selected the
subMenu does not appear

Actually it appears the first time I open the context menu but only the
first time.

Works OK with the Add statement commented out

Been chasing this for quite a while so I'd appreciate any suggestion to try
something.

Even any unrelated statement of how it is possible for the arrow to appear
and the submenu not open.

Thanks