Hi Maaspuck, Ok I have multiselect drag and drop working :D Script.RegisterEvent .Interf, "OLEDragDrop","lstDestination_OLEDragDrop" Private Sub lstDestination_OLEDragDrop(Data, Effect, Button, Shift, x, y) SDB.MessageBox "In DragDrop",mtInformation,Array(mbOk) End Sub That code was not working ...

Hi Maaspuck, I was trying to enable multiple selection drag, that is why I changed the Events used :D The problem lies here DragID = Int((y-19)/14) + 1 The thing is that depending on the monitor / resolution and who knows what else the 19 and 14 do change The recommended way to get the underlying ...

Hi Maaspuck, First of all Thanks for this script. Drag and drop doesn't work for me, it jumps all over the place when I try to move one song either up or down. I went over your code, and found that you are using the mousemove event. I tried to recode using Sub lstDestination_OLEDragOver(Data, Effect ...