lopuxi, вроде так:
[vba]Код
Private Sub ButtonUP_Click()
Dim ListUP As Integer
With ListBox2
ListUP = .ListIndex
If ListUP > 1 Then
.AddItem .List(ListUP, 0), ListUP - 1
.Column(1, ListUP - 1) = .List(ListUP + 1, 1)
.RemoveItem ListUP + 1
.ListIndex = ListUP - 1
End If
End With
End Sub
[/vba][vba]Код
Private Sub ButtonDown_Click()
Dim ListDown As Integer
With ListBox2
ListDown = .ListIndex
If ListDown < ListBox2.ListCount - 1 And ListDown > 0 Then
.AddItem .List(ListDown), ListDown + 2
.Column(1, ListDown + 2) = .List(ListDown, 1)
.RemoveItem ListDown
.ListIndex = ListDown + 1
End If
End With
End Sub
[/vba]