Greetings lifeson,

Reference:

Quote Originally Posted by lifeson
This seems to work, but it doesnt remove the item from the original list...
This seems to work:

[vba]Private Sub lvwApplied_OLEDragDrop(Data As MSComctlLib.DataObject, _
Effect As Long, Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)

Dim cnt As Long

With lvwApplied
cnt = .ListItems.Count + 1
.SmallIcons = UserForm1.imgSnooker
.ListItems.Add , , lvwEntitlements.SelectedItem.Text, , cnt
End With

lvwEntitlements.ListItems.Remove lvwEntitlements.SelectedItem.Index

End Sub[/vba]

Hope this helps ,

Mark

PS - Just a thought, but for those of us with less than stellar screen size, a line-break or two keeps the vba window from pushing out the edge and makes it a lot easier to read.