Господа, подскажите pls, как по нажатию кнопки можно изменять положение выделенной строки в listbox(поднимать/опускать)?

Спасибо, разобрался

Dim SelItem As Object
Dim UpItem As Object
Dim SelIndex As Integer
Dim UpIndex As Integer

SelIndex = Me.ListBox1.SelectedIndex

If SelIndex > 0 Then
UpIndex = SelIndex - 1
SelItem = Me.ListBox1.Items(SelIndex)
UpItem = Me.ListBox1.Items(UpIndex)
Else
Exit Sub
End If

Me.ListBox1.Items.RemoveAt(SelIndex)
Me.ListBox1.Items.RemoveAt(UpIndex)


Me.ListBox1.Items.Insert(UpIndex, SelItem)
Me.ListBox1.Items.Insert(SelIndex, UpItem)

Me.ListBox1.SelectedIndex = UpIndex