Browsing Controls - ContextMenu issue

[Jorge]

Hello
I am trying to browse a form and i know it has 3
contextmenus and a mainmenu.

Public Sub PercorreMenus(B yVal f As Form)
Dim ctl As Control
For Each ctl In f.Controls
If ctl.Controls.Co unt > 0 Then
PercorreMenus2( ctl, f)
End If
If TypeOf ctl Is ContextMenu Then
MessageBox.Show ("context")
Me.CheckMenuIte ms(DirectCast(c tl,
ContextMenu.Men uItemCollection ), f.Name)
End If
If TypeOf ctl Is MenuItem Then
MessageBox.Show ("menu")
Me.CheckMenuIte ms(DirectCast(c tl,
MenuItem.MenuIt emCollection), f.Name)
End If
Next

End Sub
Private Sub PercorreMenus2( ByVal controlo As Control,
ByVal f As Form)
Dim ctl As Control
Dim a As String
For Each ctl In controlo.Contro ls
If ctl.Controls.Co unt > 0 Then
PercorreMenus2( ctl, f)
End If
a = ctl.GetType.ToS tring
Console.WriteLi ne(a)
If TypeOf ctl Is ContextMenu Then
MessageBox.Show ("context")
Me.CheckMenuIte ms(DirectCast(c tl,
ContextMenu.Men uItemCollection ), f.Name)
End If
If TypeOf ctl Is MenuItem Then
MessageBox.Show ("menu")
Me.CheckMenuIte ms(DirectCast(c tl,
MenuItem.MenuIt emCollection), f.Name)
End If
Next
End Sub

I can browse form.mainmenu.m enuitems but not
form.contextmen u.menuitems...

Any suggestion would be most welcome, thanks!

Kind Regards
Jorge Cavalheiro