Private Sub TreeView_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles ItemDrag
‘将移动的Node设置为当前树选中Node
Me.SelectedNode = CType(e.Item, TreeNode)
Me.Focus()
Me.DoDragDrop(e.Item, DragDropEffects.Move)
End Sub
在树的ItemDrag事件中调用Me.DoDragDrop(e.Item, DragDropEffects.Move)
这样就会执行树的DragDrop事件
最好是继承VB.TreeView写一个公用的树实现以上代码。