son riuscito a passargli qualcosa durante l evento oledragdrop

Private Sub ListView_OLEDragDrop(Data As ComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim itmX As ListItem
Set itmX = ListView.ListItems.Add
itmX.Text = "ciao"
End Sub

ma se cerco di passargli data mi da questo errore
"propietà o metodo non supportati dall'oggetto"