关于拖动的问题？？

Question

我用的TREEVIEW控件中要将它的NODE值拖动到别一个TREEVIEW中的NODES下
如何实现，请各们高手指点一下？？？

Answer 1

这只能怪MicroSoft把VB的TreeView控件封装得太弱了
其实系统的TreeView支持拖放

Answer 2

'有两个TreeView,分别是TreeView1和，TreeView2,这个东西不能帮助解决实际问题，希望
'给你帮助，
Private Sub Form_Load()
  Dim nodX As Node
   TreeView1.OLEDragMode = 1
   TreeView2.OLEDropMode = 1
   Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
   nodX.EnsureVisible
   Set nodX = TreeView2.Nodes.Add(, , "R", "Root")
   Set nodX = TreeView2.Nodes.Add("R", tvwChild, "C1", "Child 1")
   Set nodX = TreeView2.Nodes.Add("R", tvwChild, "C2", "Child 2")
   Set nodX = TreeView2.Nodes.Add("R", tvwChild, "C3", "Child 3")
   nodX.EnsureVisible
End Sub
Private Sub TreeView1_OLECompleteDrag(Effect As Long)
    TreeView2.Nodes.Add "R", tvwChild, "C4", TreeView1.SelectedItem
End Sub