<code>Private Sub Text1_OLEDragDrop(Index As Integer, _
  Data As DataObject, Effect As Long, Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  Dim I As Long
 
  <font color=green>' Prüfen, ob es sich um eine Datei handelt</font>
  If Data.GetFormat(vbCFFiles) Then
    Text1(Index).Text = ""
    For I = 1 To Data.Files.Count
      <font color=green>' Prüfen, ob es WAVE-Dateien sind</font>
      If LCase$(Right$(Data.Files(I), 4)) = ".wav" Then
        <font color=green>' ja, WAVE-Datei!</font>
        If Text1(Index).Text <> "" Then Text1(Index).Text = Text1(Index).Text + _
          ","
        Text1(Index).Text = Text1(Index).Text & Data.Files(I)
      End If
    Next I
  End If
End Sub</code>