Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim iCount As Integer
    Dim szBuffer As String
    
    
    
    If Data.GetFormat(ccCFText) Then MsgBox "text"
    If Data.GetFormat(ccCFBitmap) Then MsgBox "pic"
    If Data.GetFormat(ccCFFiles) Then MsgBox "files"
    If Data.GetFormat(ccCFRTF) Then MsgBox "rtf"
    
    
    
    If Data.GetFormat(ccCFFiles) Then
        MsgBox "Dropped " & Data.Files.Count & " file(s).", vbInformation
        
        For iCount =  1  To Data.Files.Count
            szBuffer = szBuffer & IIf(szBuffer <> "", vbNewLine, "") & Data.Files(iCount)
        Next
        
        MsgBox szBuffer
    End If
    
    If Data.GetFormat(ccCFText) Then MsgBox Data.GetData(ccCFText)
End Sub