Перемещение записей в ListBox

[TiG]

есть записи в List1:
1
2
3
4
5

Какой код кнопки переместит выделенную запись "3" вниз? Соответственно запись "4" переместиться вверх.

[TiG]

Предпологаю, что перезаписью двух смежных записей? может есть метод встроенный в контрол, а я не нашёл.

[alibek]

Встроенных методов нет.

[TiG]

Dim p As String
p = List3.List(List3.ListIndex)
List3.List(List3.ListIndex) = List3.List(List3.ListIndex + 1)
List3.List(List3.ListIndex + 1) = p

такой код в принципе работает, но хотелость бы чтобы выделение записи тоже опускалось и поднималось, как этого добиться?

[TiG]

ага нашёль
List3.ListIndex = List3.ListIndex + 1

[tyomitch]

А ещё есть LB_DELETESTRING