Recorrer todos los ToolStripMenuItem dentro de un MenuStrip

[hildavanesa]

Hola..
Yo hice lo siguiente, solo adaptalo a lo que necesitas, con esto recorrer menu, submenu, subsubmenu,subsubsubmenu, etc..


For Each mnuitOpcion As ToolStripMenuItem In Me.MenuStrip1.Items
If mnuitOpcion.Name = Dt_NmbreMenu Then
CType(mnuitOpcion, ToolStripMenuItem).Visible = True
End If
If mnuitOpcion.DropDownItems.Count > 0 Then
Me.CambiarOpcionesMenu(mnuitOpcion.DropDownItems, Dt_NmbreMenu)
End If
Next

Private Sub CambiarOpcionesMenu(ByVal colOpcionesMenu As ToolStripItemCollection, ByVal nombre As String)
For Each itmOpcion As ToolStripItem In colOpcionesMenu


If itmOpcion.GetType() Is GetType(ToolStripMenuItem) Then
If itmOpcion.Name = nombre Then
CType(itmOpcion, ToolStripMenuItem).Visible = True
End If

If DirectCast(itmOpcion, ToolStripMenuItem).DropDownItems.Count > 0 Then
Me.CambiarOpcionesMenu(DirectCast(itmOpcion, ToolStripMenuItem).DropDownItems, nombre)
End If
End If
Next
End Sub