ListBox sorting

I would like to be able to move a selected item up or down in a list box,
and I can't figure out how. An example would be to have a listbox with 5
items in it. I would like to select the third item, then select the "Move
Up" command button, and then have item 3 swith with item 2. I appreciate any
help you can give.

Before After
1 1
2 3
3 2
4 4
5 5

Thanks,

Pat

 

Private Sub cmdUp_Click()
Dim curIdx As Long
Dim varTemp As Variant
curIdx = lst.ListIndex
If curIdx > 0 Then
varTemp = lst.List(curIdx - 1)
lst.List(curIdx - 1) = lst.List(curIdx)
lst.List(curIdx) = varTemp
lst.ListIndex = curIdx - 1
End If
End Sub

Private Sub cmdDown_Click()
Dim curIdx As Long
Dim varTemp As Variant
curIdx = lst.ListIndex
If curIdx < lst.ListCount - 1 And curIdx > -1 Then
varTemp = lst.List(curIdx + 1)
lst.List(curIdx + 1) = lst.List(curIdx)
lst.List(curIdx) = varTemp
lst.ListIndex = curIdx + 1
End If
End Sub

--James

 

Thanks James,

That works great. I tried for a couple of hours this morning but could'nt
figure it out. I was able to put my variable in your routine and it worked.

Thanks again,

Pat