Mover dados ListBox

[Alex-jpa 0]

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

[Luizgrs 0]

Como você está cadastrando os itens na listbox?Toda a linha deveria subir já que a listbox não tem divisões, cada linha é um item.