Hola!!!!!!!!!
He probado lo que preguntas y me sale, te pongo el codigo:
El boton para que meta de la listbox1 y a la listbox2:
-----------------------------------------------------------
Private Sub cmdListDos_Click()
List2.AddItem List1.List(List1.ListIndex) 'Guardo en el listbox2
List1.RemoveItem (List1.ListIndex) 'Borro en el listbox1
End Sub
-----------------------------------------------------------
Y para que lo haga al reves, pues asi:
-----------------------------------------------------------
Private Sub cmdListUno_Click()
List1.AddItem List2.List(List2.ListIndex) 'Guardo en el listbox1
List2.RemoveItem (List2.ListIndex) 'Borro en el listbox2
End Sub
-----------------------------------------------------------
Espero que te sirva!!!!
Besos!!!!
Goyi