Mover Dados no Listbox

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