La Web del Programador: Comunidad de Programadores
 
    Pregunta:  13488 - ITEMS DEL MENú EN TIEMPO DE EJECUCIóN
Autor:  Antonio Cardinaux
Como puedo saber en tiempo de ejecución cuantos submenus tengo en un menu, una vez que cree el menu con el editor de menus.

  Respuesta:  Mario Campos
Es un poquito difícil porque visual toma a cada elemento del menú como un control, acá te mando un código que te puede ser útil para determinar algo referente al menu.

Private Sub Command1_Click()
Dim c As Control
Dim f As Integer
For Each Control In Form1
MsgBox Control.Name
Next
End Sub
lo que hace es mostrarte los name de todos los controles podés hacer que te muestre otras propiedades.

podés identificar a los names del menu con el prefijo Mnu ej MnuNombreDelMenu.
Entonces si en el name del control, al principio se encuentra la cadena Mnu, estás en presencia de un elemento de un menú.
Espero te sirva, cualquier cosita avisame.
Saludos. Mario.