Visual Basic - Pasar todos los items de un ListBox a otro

Hola, tengo una pregunta sencilla pero no la resuelvo:

Si quiero pasar un item de un list box a otro hago:

List2.AddItem List1.Text

Pero...
¿Y si los quiero pasar todos a la vez con un Command?

Gracias por las respuestas.

Bueno como un comando quisas no pero aqui tienes una pequeña rutina que te puede servir:

Private Sub Command1_Click()
Dim i%

For i = 0 To List2.ListCount - 1
List1.AddItem List2.List(i)
Next

End Sub

Espero te sirva