You can check that the control is of type MenuItem instead of checking
if the TypeName is Menu, something like

If TypeOf control Is MenuItem Then

Sijin Joseph
http://www.indiangeek.net
http://weblogs.asp.net/sjoseph

MenuItems are Components not Controls, so you won't find them in the forms
Controls Collection.

If you want a Tag property for standard MenuItems then use my MenuExtender,
the code for which you'll find at the following link:
http://dotnetrix.co.uk/menus.html
This MenuExtender also implements Radio Grouping.

To Enumerate Menus use the following code, which accesses the Tag property
of the MenuExtender.

\\\
Private Function ListMenuTags(ByVal frm As Form) As String
   Return EnumerateMenuTags(frm.Menu)
End Function

Private Function EnumerateMenuTags(ByVal M As Menu) As String

   Dim MenuTagCollection As String

   For Each MI As MenuItem In M.MenuItems
       Dim MenuTag As String = CType(MenuExtender1.GetTag(MI), String)
       If Not MenuTag Is Nothing Then
           MenuTagCollection += MenuTag & vbCrLf
       End If
       MenuTagCollection += EnumerateMenuTags(MI)
   Next

   Return MenuTagCollection

End Function
///

Hi zt,

First of all the MainMenu and menu items as well as context menues are not
controls, so looping through Control's collection won't give you anything.
Secondly, Checking for the controls and components Names is not a good ideia
since if they are dynamically created they migt have no names.

AFAIK there is no method that will work in all of the cases. If it is form
that you wrote yourself you need to add some special functionallity (expose
some methods) that will help you enumerate the menu items. Otherwise unlike
controls components don't have to reside in any collection.