Recorrer todos los menus (VB6)

[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