Mover Dados no Listbox

[Alex-jpa 0]

Olá PessoalEu tenho uma listbox e preciso movimentar os pedidos nela para baixo e para cima. Eu consegui só que só vai o primeiro registro da linha e não toda a linha.Podem me ajudar?Private Sub SpinButton1_Change()Dim str As StringIf ltbMateriais.ListIndex > 0 Thenstr = ltbMateriais.List(ltbMateriais.ListIndex - 1)ltbMateriais.List(ltbMateriais.ListIndex - 1) = ltbMateriais.List(ltbMateriais.ListIndex)ltbMateriais.List(ltbMateriais.ListIndex) = strltbMateriais.ListIndex = ltbMateriais.ListIndex - 1End IfEnd Subgrato

[Luizgrs 0]

Você quer mover todos os itens da listbox?Para isso será necessário você fazer um loop percorrendo todos eles, e tomando cuidado com o primeiro.