still on treeview drag drop

[sal21]

possible to delete the node(red arrow) after i drag and pasting in the position of the black arrow?

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

[HansV]

There is no need to post the same question three times!

I have no idea, sorry.