winform MenuStrip 遍历(设置指定的菜单为不可用，是在权限控制的时候，我遍历了一下)

Private Sub CheckSubMenu(menuItem As ToolStripMenuItem, MenuItemName As String)
    If menuItem.Text.Equals(MenuItemName) Then
        menuItem.Enabled = False
    End If
    Dim i As Integer = 0
    While i < menuItem.DropDownItems.Count
        If TypeOf menuItem.DropDownItems(i) Is ToolStripSeparator Then
            'Continue While
        Else
            CheckSubMenu(DirectCast(menuItem.DropDownItems(i), ToolStripMenuItem), MenuItemName)
        End If
        System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
    End While
 End Sub

Private Sub CheckMenu(Menu As MenuStrip, MenuItemName As String)
    For Each n As ToolStripMenuItem In Menu.Items
        CheckSubMenu(n, MenuItemName)
    Next
End Sub