Public Sub TreeView1_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs)
If e.Data.GetDataPresent(Gettype(System.String)) And e.Data.GetDataPresent("System.Windows.Forms.TreeNode", False) = False Then
Dim Point As Point = sender.PointToClient(New Point(e.X, e.Y))
Dim targetTreeNode As System.Windows.Forms.TreeNode = sender.GetNodeAt(Point)
Dim mitem As String = e.Data.GetData(Gettype(String))
/---增加移动到拖动节点的代码----/
'targetTreeNode.Nodes.Add(mitem, mitem)
'targetTreeNode.Expand()
End If
End Sub