建立一个窗体Form1，将OLEDragMode属性设置为 1 - Manual。因为代码无法实现1，必须手工设置。

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    For i = 1 To Data.Files.Count ' 逐个读取文件路径
        Print Data.Files(i)
    Next
End Sub