Drag and drop treeview vers textbox

Bonjours j'essai de faire un drag and drop entre un treeview et une textbox mais rien ne se passe:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    Private Sub txt_coupe_rdv_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles txt_coupe_rdv.DragEnter
        If (e.Data.GetDataPresent(DataFormats.Text)) Then
            e.Effect = DragDropEffects.Move
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub
    Private Sub tree_view_rdv_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles tree_view_rdv.ItemDrag
        If e.Button = Windows.Forms.MouseButtons.Left Then
            DoDragDrop(e.Item, DragDropEffects.Move)
        End If
    End Sub
    Private Sub txt_coupe_rdv_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles txt_coupe_rdv.DragDrop
        txt_coupe_rdv.Text &= "" & e.Data.GetData("System.String")
    End Sub

Merci