Mover item de un list a otro list

[fedefrankk]

Hola , necesito mover items de un list1 al list2,,, moverlo de un izquierda a derecha y viceversa .. hice un programita pero me mueve todos los objetos

Código PHP:

  Private Sub Command1_Click()
Dim a As Integer
n = 1
For a = 0 To List1.ListCount - 1
List2.AddItem List1.List(a)
Next a
End Sub 
   

aclaro en el boton 1, tengo un "List1.AddItem Val(Text1)"

gracias saludos a todos