Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As _
  Integer, Shift As Integer, X As Single, Y As Single)
    If Data.GetFormat(vbCFFiles) Then
        If Data.Files.Count > 0 Then
            MsgBox Data.Files(1)
        End If
    End If
End Sub

Psst, neues Spiel: IceWars, schnell anmelden!