VB6 Snippet - Move Items In A Listbox

[shirazamod]

I've seen lots of people asking for a way to do this so here is an extremely simple function to rearrange the items in a listbox:

Private Function MoveListboxItem(List1 As ListBox, CurrentIndex As Integer, NewIndex As Integer)
Dim strItem As String
strItem = List1.List(CurrentIndex)
List1.RemoveItem CurrentIndex
List1.AddItem strItem, NewIndex
End Function