PEGAR NOME DOS MENU DO MAINMENUSTRIP

F001E 14/05/2012 22:48:01
#402002

Pessoal Boa Noite...fiz essa seguinte função para Pegar os Menus do MainMenuStrip

Private Sub CarregaMenuPermissao()
Try
Dim F As New frmPrincipal
For Each Controle As Control In F.Controls
If TypeOf Controle Is MenuStrip Then
For Each Menu As ToolStripMenuItem In TryCast(Controle, MenuStrip).Items
If Menu.Text <> [Ô]Parâmetros[Ô] Then
ListView.Items.Add(Menu.Text)
End If
For Each SubItemMenu As ToolStripItem In Menu.DropDownItems
If SubItemMenu.Text <> [Ô][Ô] And SubItemMenu.Text <> [Ô]Sair[Ô] Then
ListView.Items.Add(SubItemMenu.Text)
End If
Next
Next
End If
Next
Catch ex As Exception
TratarErro([Ô]frmPermissao[Ô], [Ô]CarregaMenuPermissao[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub

Onde o Segundo FOR eu pego os Menus Parametros, Cadastros...
O Terceiro FOR eu pego os Menus de dentro dos Parametros, Cadastros...
Mas Agora no Menu Parametros, tem um Menu Ativar Empresas onde dentro do Ativar Empresa tenho Menu Teste..
Esse menu Teste eu não consigo pegar...como faço para pegar esse Menu Teste ?
Segue a Imagem para entender....