Si te entendi bien, ahi va una idea,ahora modificala para tu codigo
Código [Seleccionar]
Private Sub Command1_Click()
Dim n, x As Integer
n = List1.ListCount
For x = n - 1 To 0 Step -1
List2.AddItem List1.List(x)
Next
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 6
List1.AddItem i
Next
End Sub