Binaryworld - MoveListboxItem - Move an item of a ListBox to another position ... [ VB -> Forms & Controls ]

' Move an item of a listbox to another index
'
' If FROMINDEX = -1 then it moves the current highlighted item

Sub MoveListboxItem(ctrl As ListBox, ByVal FromIndex As Long, _
  ByVal ToIndex As Long)
  Dim sText As String, lItemData As Long

  ' provide a default
  If FromIndex < 0 Then FromIndex = ctrl.ListIndex
  ' exit if argument not in range
  If ToIndex < 0 Or ToIndex > ctrl.ListCount - 1 Then Exit Sub

  With ctrl
    ' save text and data of the current item
    sText = .List(FromIndex)
    lItemData = .ItemData(FromIndex)
    ' remove the item
    .RemoveItem FromIndex
    ' add the item
    .AddItem sText, ToIndex
    .ItemData(.NewIndex) = lItemData
    ' select the new item
    .ListIndex = ToIndex
  End With
End Sub