Disable click on root node of treeview

[soj]

I want to disable the click and drag & drop on the root node, but allow drag and drop on the rest. Right now drag and drop are working on all the nodes.

Here is my code:

Private Sub Form_Load()

Dim rsBO As New ADODB.Recordset
Dim objBO As New BOL.clsBOLInventory

Set rsBO = objBO.GetBackOrderItems

Dim oNode As Node

Set oNode = tvwInventory.Nodes.Add(, , "R", "Inventory&quot

With rsBO
Do Until .EOF
Set oNode = tvwInventory.Nodes.Add(1, tvwChild)
oNode.Text = !InvName
oNode.Key = !InvName
.MoveNext
Loop
End With

oNode.EnsureVisible
End Sub

 

[gnarus]

1) on the Click event of the treeview - if the selected node is the root then remove it from the selected items collection.

2) on drag and drop - check to see if the target node is the root. If so disable drop and show "no-drop" icon else allow drop