auf jeden fall muss OLEDropMode auf manuell gestell sein.
die frage ist halt, bekommst du bei OLEDrop den filename der gedroppten datei - bei TextBoxes klappt das ja, wie du bereits erwähnt hast, bei RichTextBoxen bin ich mir nicht sicher, ob die parameter in der ereignisprozedur vorhanden sind.
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Data.Files.Count > 0 Then
Dim InData As String
Open Data.Files.Item(1) For Binary As #1
InData = String(LOF(1), " ")
Get #1, 1, InData
Close #1
Text1.Text = InData
End If
End Sub
s'Amstel