Private Function GetAllMenus() As Menu()
        Dim type As Type = Me.GetType
        Dim attr As Reflection.BindingFlags = Reflection.BindingFlags.NonPublic _
          Or Reflection.BindingFlags.Instance
        Dim fld As Reflection.FieldInfo = Nothing
        Dim menus As ArrayList = New ArrayList
        For Each mi As Reflection.MemberInfo In type.GetMembers(attr)
            If mi.MemberType = Reflection.MemberTypes.Field Then
                fld = CType(mi, Reflection.FieldInfo)
                If fld.FieldType().BaseType Is GetType(Menu) AndAlso Not _
                  fld.FieldType() Is GetType(MenuItem) Then
                    menus.Add(fld.GetValue(Me))
                End If
            End If
        Next
        Return CType(menus.ToArray(GetType(Menu)), Menu())
    End Function
 
    Private Sub PrintMenus(ByVal CurrentMenuCollection As _
      MenuItem.MenuItemCollection)
        For Each mi As MenuItem In CurrentMenuCollection
            Debug.WriteLine(mi.Text)
            PrintMenus(mi.MenuItems)
        Next
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Dim myMenus() As Menu = Me.GetAllMenus
        For Each myMenu As Menu In myMenus
            If Not myMenu Is Nothing Then
                Me.PrintMenus(myMenu.MenuItems)
            End If
        Next
    End Sub