Как узнать имя файла Drag&Drop-того в OLE?

[gor]

Кто знает: как узнать имя файла Drag&Drop-того в OLE?

[Amed]

Предположим, есть Label с OLEDropMode - 1 (Manual)

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

Dim tmp As String

For i = 1 To Data.Files.Count
tmp = tmp & Data.Files.Item(i) & vbCrLf
Next i

Label1 = tmp
End Sub

[gor]

Спасибо.