VB6实现拖拽

1Private Sub Form_Load()
2    Me.OLEDropMode = 1
3End Sub

1Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
2    MsgBox Data.Files(1)
3End Sub