This code on a double-click of my listbox will move the selected item to the top (simple).
But I would like to move an item up or down in my list (song list in Jukebox) by using the mouse and 'dragging' it to any given location/listindex.
As easy???
EDIT---title is misleading...Should read: Moving any Listbox Item to ANY Position.
Code:
Private Sub List1_DblClick() Dim ListItem As String
ListItem = List1.List(List1.ListIndex)
List1.RemoveItem List1.ListIndex
List1.AddItem ListItem, 0
End Sub
As easy???
EDIT---title is misleading...Should read: Moving any Listbox Item to ANY Position.