codice:
Dim MNU As Control
    
    'imposto a false tutti i menù
    For Each MNU In Controls
        If TypeOf MNU Is Menu Then
            MNU.Enabled = False
        End If
    Next MNU