Drag Content from one TextBox and Drop to another

Need 2 TextBox for doing this program and Set AllowDrop property of TextBox2  to True.

       

Private Sub TextBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown

        TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Move)

    End Sub

Private Sub TextBox2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop

        TextBox2.Text &= e.Data.GetData(DataFormats.Text).ToString

        TextBox1.Text = ""

    End Sub

Private Sub TextBox2_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter

        If (e.Data.GetDataPresent(DataFormats.Text)) Then

            e.Effect = DragDropEffects.Move

        End If

    End Sub