Recorrer el Menu

Saludos,

Mira si el siguiente codigo te sirve:


Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Handles Button1.Click
Me.ListBox1.Items.Clear() ' Limpiar el ListBox
Me.CargarMenuListBox(Me.MainMenu1.MenuItems, 0)
End Sub

Private Sub CargarMenuListBox(ByVal menuItems As
MenuItem.MenuItemCollection, _
ByVal identacion As Integer)

For Each menuItem As MenuItem In menuItems
Me.ListBox1.Items.Add((New String(" "c, identacion * 3)) &
menuItem.Text)
Me.CargarMenuListBox(menuItem.MenuItems, identacion + 1)
Next
End Sub


Saludos,
Pedro Luna Montalvo, [MVP VB.NET]
Gye, Ecu

"Flavio Narvaez F" escribió en el mensaje
news:

Como puedo hacer para recorrer el MainMenu de una forma,
lo que quiero es hacer es presentar una lista con cada miembro del menu
algo asi como esto:

Catalogos
*Empleados
*Agregar
*Bajas
*Paises
*Agregar
*Bajas
*Transacciones
* Cambio de Salario
* Prestamos