Private Sub Text1_OLEDragDrop(Data As DataObject, _
  Effekt As Long, Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  Dim F As Integer
  Dim sBuffer As String
 
  ' Handelt es sich um eine Datei?
  If Data.GetFormat(vbCFFiles) Then
    F = FreeFile
    Open Data.Files(1) For Binary As #F
    sBuffer = Space$(Lof(F))
    Close #F
 
    Text1.Text = sBuffer
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de