Question : VB.Net move Items from ListBox to Textboxes

I have a listbox, populated with 5 items from a database. I wan't to drag items, one at a time, to 5 textboxes.

Here is my code for the source listbox:
Private Sub ListBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox2.MouseDown
        ListBox2.DoDragDrop(ListBox2.SelectedValue.ToString, DragDropEffects.Move)
End Sub

Here is code for one of the destination textboxes:
Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
        TextBox1.AppendText(e.Data.GetData(DataFormats.StringFormat))
End Sub
Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
  TextBox1.Text = e.Data.GetData(DataFormats.StringFormat)
 End Sub

The destination textboxes all have AllowDrop set to True.

If I try to move an item from the listbox, it gets copied instead (item appears in textbox but does not disappear from listbox)

Answer : VB.Net move Items from ListBox to Textboxes

I figured it out. The trick is to place a statement in the target textbox's _DragDrop event, like this
        ListBox1.Items.Remove(ListBox1.SelectedItem)
Now the dragged items are removed from the ListBox