Eu queria q quando eu clicasse no botão a linha q estivesse selecionada no list passava pra cima e a linha q estava em cima passava pra baixo, eles teriam q trocar de lugar..

 

 

Obrigado

Deixa queto eu ja consegui

 

'para subir

Private Sub Command1_Click()
List1.AddItem List1.Text, List1.ListIndex - 1
List1.RemoveItem (List1.ListIndex)
End Sub

 

'para descer

Private Sub Command2_Click()
List1.AddItem List1.Text, List1.ListIndex + 2
List1.RemoveItem (List1.ListIndex)
End Sub