设置窗体OLEDropMode=1Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)Print Data.Files(1)End Sub