Drag Text from another Program

Need 1 TextBox  and set AllowDrop property of TextBox1  to True.

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

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

            e.Effect = DragDropEffects.Copy

        End If

    End Sub

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

        TextBox1.Text = e.Data.GetData(DataFormats.Text).ToString

    End Sub

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