Option Explicit

'Written by SCINER: lenar2003 mail ru

 

Private Sub Form_Load()

  'устанавливаем возможность принятия

  List1.OLEDropMode = vbOLEDropManual

End Sub

 

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

  Dim szFile

  'если перетащили файл(ы) тогда перечисляем их в списке

  If Data.GetFormat(vbCFFiles) Then

    For Each szFile In Data.Files

      Call List1.AddItem(szFile)

    Next

  'если перетащили текст тогда показываем его в диалоге

  ElseIf Data.GetFormat(vbCFText) Then

    Call MsgBox(Data.GetData(vbCFText), vbInformation)

  End If

End Sub

 

Private Sub List1_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)

  'если перетащили файл(ы) или текст, тогда разрешаем перетаскивание

  If Data.GetFormat(vbCFFiles) Or Data.GetFormat(vbCFText) Then

  'иначе отказываемся принимать

  Else

    Effect = vbDropEffectNone

  End If

End Sub