Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)
 
        Me.RichTextBox1.AllowDrop = True
 
    End Sub
 
    Private Sub ListView1_ItemDrag(ByVal sender As System.Object, ByVal e As    _
                    System.Windows.Forms.ItemDragEventArgs) Handles _
      ListView1.ItemDrag
 
        Dim data_object As New DataObject
 
        data_object.SetData(DataFormats.Text,  ListView1.SelectedItems(0).Text)
 
        RichTextBox1.DoDragDrop(data_object, DragDropEffects.Copy)
 
    End Sub
 
    Private Sub RichTextBox1_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragEnter
 
        If e.Data.GetDataPresent(DataFormats.Text) Then
            e.Effect = e.AllowedEffect
        End If
 
    End Sub
 
    Private Sub RichTextBox1_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragDrop
 
        If e.Data.GetDataPresent(DataFormats.Text) Then
            RichTextBox1.Text = e.Data.GetData(DataFormats.Text).ToString
        Else
            RichTextBox1.Text = ""
        End If
 
    End Sub