Problemas con MDI

[RICARDO HAYNES]

Hola escribo a todos los GURU del foro para ver quien me ayuda con este problma o me da un consejo para ver como lo resuelvo...

Mi problema radica en un MDI y la opciones de Menú...

esta es la pequeña rutina..

For Each MDI In MDIfrmMenu.Controls
strname = Trim(MDI.Name)
If Left(strname, 3) = "mnu" Then
MDI.Visible = False
End If
Next MDI
las opciones del menú en el nivel principal no se ven afectadas
pero si una opcion tiene sub opciones dentro me manda error
en el objeto propiedad invalida...
ejemplo:
Generales (Nivel 1)
Datos del empleado (Sub Nivel de Generales intentando ocultar opcion llamado a rutina error propiedad invalida)..

Alguien me puede ayuda

[bubilo]

El error que te da es que no se puede tener un menu en nivel 1 salvo que tenga elementos en el interior vos en este ejemplo borras todos los elementos del menu por eso te da el error fijate la forma que si vas a ocultar todos los elementos dentro de un menu oculta directamente lo que esta en el nivel1 asi todas las opciones de ese menu desapareceran....