Mover dados ListBox

Galera

Eu tenho uma listbox e preciso movimentar os pedidos nela para baixo e para cima. Eu consegui só que só vai a primeira coluna do primeiro registro da linha e não toda a linha.

Podem me ajudar?

Private Sub btUp_Click()

Dim str As String

If ltbMateriais.ListIndex > 0 Then

str = ltbMateriais.List(ltbMateriais.ListIndex - 1)

ltbMateriais.List(ltbMateriais.ListIndex - 1) = ltbMateriais.List(ltbMateriais.ListIndex)

ltbMateriais.List(ltbMateriais.ListIndex) = str

ltbMateriais.ListIndex = ltbMateriais.ListIndex - 1

End If

End Sub

Na verdade eu preciso que o registro(valores) todo suba e desca .

Veja a imagem abaixo

http://www.grupoparis.com.br/grupoparis/teste/img.jpg

Me ajudem

Grato