Private Sub RichTextBox1_DragEnter(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragEnter
    '* Hier passiert erstmal noch nix
     e.effects  = DragDropEffects.Copy
End Sub
 
Private Sub RichTextBox1_DragDrop(ByVal sender As Object, ByVal e As   _
  System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragDrop
     e.Effect = DragDropEffects.Copy
     mySetData(e)  '<--- die eigentliche Bearbeitung                   
                   '     der Daten und das Einfügen 
                   '     der bearbeiteten Daten in 
                   '     die Richtextbox1            
 
            '*** Hier gibt es das Problem
            e.Effect = DragDropEffects.None
End Sub