Dim k, l As Integer

For k = 0 To Me.TreeView1.Nodes(0).GetNodeCount(False) - 1

If Me.TreeView1.Nodes(0).Nodes(k).IsSelected Then

Me.TreeView1.AllowDrop = True

End If

For l = 0 To Me.TreeView1.Nodes(0).Nodes(k).GetNodeCount(False) - 1

If Me.TreeView1.Nodes(0).Nodes(k).Nodes(l).IsSelected

Then
Me.TreeView1.AllowDrop = False

End If

Next

Next

Me.TreeView1.AllowDrop = True

Questo è il codice ke dovrebbe gestire l'operazione. Il dregdrop non funziona sui nodi interessati quando lo riattivo. perkè?