MENUS

 [ô][ô][ô] <summary>
    [ô][ô][ô] Exibi em uma caixa de mensagem a propriedade Text de todos os menus e sub menus do formulário
    [ô][ô][ô] </summary>
    Protected Sub ExibirMenus()
        Dim Menus As New System.Text.StringBuilder
        Dim QuantidadeMenus As Integer = 0
        Dim QuantidadeMenusItem As Integer = 0
        Dim QuantidadeSubMenus As Integer = 0

        [ô] Identifico todos controles do formulário
        For Each Menu As Control In Me.Controls
            [ô] Verifico se é um MenuStrip
            If TypeOf Menu Is MenuStrip Then
                QuantidadeMenus += 1
                Menus.Append(QuantidadeMenus)
                Menus.Append([Ô]. [Ô])
                Menus.Append(Menu.Text)
                Menus.Append(vbNewLine)

                For Each MenuItem As ToolStripMenuItem In DirectCast(Menu, MenuStrip).Items
                    QuantidadeMenusItem += 1
                    Menus.Append([Ô]  [Ô]).Append(QuantidadeMenus).Append([Ô].[Ô]).Append(QuantidadeMenusItem).Append([Ô]. [Ô])
                    Menus.Append(MenuItem.Text)
                    Menus.Append(vbNewLine)

                    For Each SubMenu As ToolStripMenuItem In MenuItem.DropDownItems
                        QuantidadeSubMenus += 1
                        Menus.Append([Ô]    [Ô]).Append(QuantidadeMenus).Append([Ô].[Ô]).Append(QuantidadeMenusItem).Append([Ô].[Ô]).Append(QuantidadeSubMenus).Append([Ô]. [Ô])
                        Menus.Append(SubMenu.Text)
                        Menus.Append(vbNewLine)

                    Next
                    QuantidadeSubMenus = 0

                Next
                QuantidadeMenusItem = 0

            End If

        Next

        MessageBox.Show(Menus.ToString)
    End Sub