Este es parte de mi codigo, jejej pero no me sale
 
 
Sub NIVEL(ByVal Frm As System.Windows.Forms.Form, ByVal Nivel As Integer)
        Try
            If Nivel = 1 Then
                For Each Obj In Frm.Controls
                    If TypeOf Obj Is MenuStrip Then
                        If Obj.ToolStripMenuItem.Tag = "ARCHIVO" Then
                            Obj.Enabled = True
                        End If
 
                    End If
                Next
            End If
            If Nivel = 2 Then
                For Each Obj In Frm.Controls
                    If TypeOf Obj Is MenuStrip Then
                        If Obj.Tag = "ARCHIVO" Then
                            Obj.Enabled = False
                        End If
                    End If
                Next
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 
 
en el nivel 1 es una forma ke trate de hacerlo y no me salio y en el nivel 2 me deshabilita toda la barra de menu, ayuda please 
   
 

