Private Sub Form_Load()
Me.OLEDropMode = 1
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox Data.Files(1)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024