no sense to remain the red node, in old position...
test code
Code: Select all
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ND As Node
With Me.TreeView1
Set ND = .HitTest(X, Y)
If Not ND Is Nothing Then
'Debug.Print ND.Text
.Drag vbBeginDrag
End If
End With
End Sub