This seems to work, but it doesnt remove the item from the original list

[VBA]Private Sub lvwApplied_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
With lvwApplied
.ListItems.Add , , lvwEntitlements.SelectedItem.Text
End With

End Sub[/VBA]