Recorrer todos los menus (VB6)

[RsOfT]

hay alguna forma de yo recorrer todos los menus creados en un formulario, asl asi como:

for each Menu in Menus
...
next

Lo quiero para establecer la seguridad en mi aplicación. Tengo una tabla con los nombre de cada una de las opciones de los menu, por ejemplo:
La opcion Archivo del menu se llama mnuArchivo, la opción Abrir del menu se llama mnuAbrir.
Lo que quiero es poder hacer esto:

rst.Open "Select from Acceso where User = Fulanito and entrar = true"

do while not rst.eof
for each menu in menus
if rst!NombreMenu = menu.name then
menu.visible = false
end if
next
rst.movenext
loop

Alguien me ayuda a hacer esto?

[Improvisado]

Técnicamente nose como hacerlo pero lo hice así:

For Each Control In Forms(1).Controls


If Left(Forms(1).Controls(i).Name, 3) = "mnu" Then
Forms(1).Controls(ii).Visible =false
end if
i = i +1
next control


Froms(1) es el que tiene el menu, y todos los nombres del menu comienzan com 'mnu'
Saludos

[RsOfT]

Interesante!!!

Gracias

[RsOfT]

hay alguna forma de saber por código si un menú posee submenus?

Menu
...SubMenu1
...SubMenu2
Menu2
...SubMenu1
etc.

Saber cuales son Menu y Menu2.

[Improvisado]

RsOft: Por mi parte no tengo idea, habría que probar.
Estoy terminanado un trabajo si me hago un lugar trato de ver y si puedo te aviso.
saludos
Improvisado

[Improvisado]

P/D: El si "puedo" se refiere a " si puedo hacerlo", "OK"
Improvisado