Private Sub mnuTVUnselect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuTVUnselect.Click tvwSecurite.BeginUpdate() Me.TreeviewChildrenCheck(tvwSecurite.SelectedNode, False) tvwSecurite.EndUpdate() End Sub Private Sub mnuTVSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuTVSelect.Click tvwSecurite.BeginUpdate() Me.TreeviewChildrenCheck(tvwSecurite.SelectedNode, True) tvwSecurite.EndUpdate() End Sub Private Sub tvwSecurite_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tvwSecurite.MouseUp ' Show menu only if Right Mouse button is clicked If e.Button = MouseButtons.Right AndAlso Me.mclsProfil.IsEditing Then tvwSecurite.SelectedNode = tvwSecurite.GetNodeAt(e.X, e.Y) If tvwSecurite.SelectedNode Is Nothing Then Exit Sub ' Point where mouse is clicked Dim p As Point = New Point(e.X, e.Y) ' Show the appropriate ContextMenu mnuTreeview.Show(tvwSecurite, p) End If End Sub