I tried the following code
Dim vControl As Control
For Each vControl in Me
If TypeOf vControl Is Menu Then
vControl.Visible = False
without successfull. That was because the last sub-menu's visible property can not be set to false (I think).
Can you tell me how to do the job?