Dim MouseDownTime As DateTime
    Private Sub RichTextBox1_SelectionChanged(ByVal sender As Object, ByVal e _
      As System.EventArgs) Handles RichTextBox1.SelectionChanged
        MouseDownTime = Date.Now
    End Sub
 
    Private Sub RichTextBox1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseMove
        Try
            If e.Button = MouseButtons.Left AndAlso _
                (Now > Me.MouseDownTime.AddMilliseconds(150)) Then
                Dim c As RichTextBox = CType(sender, RichTextBox)
                c.DoDragDrop(c.SelectedText, DragDropEffects.Move)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
 
    Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
        Try
            Dim SourceItem As String = CType(e.Data.GetData(GetType(String)), _
              String)
            Dim Dest As TextBox = CType(sender, TextBox)
            Debug.WriteLine(SourceItem)
            Dest.Text += SourceItem
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
 
    Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
        Try
            If (e.Data.GetDataPresent(GetType(String))) Then
                e.Effect = DragDropEffects.Move
            Else
                e.Effect = DragDropEffects.None
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub