Visual Basic - URGENTE pasar info listbox_1 al Listbox_2

Tengo dos Listbox. En el ListBox_1 tengo informacion, necesito pasar esa informacion al ListBox_2. Utilizando un boton Cmd_pasartodo.
Es decir, al hacer 1 click en el boton que me pase toda la informacion que existe en el ListBox_1 al ListBox_2.
Necesito un codigo que me haga ese poceso.
Muchas gracias

Option Explicit

Private Sub Command1_Click()
On Error GoTo AvisoError
Dim i As Integer
For i = 0 To List1.ListCount
With List2
.AddItem List1.List(i)
End With
Next
Exit Sub
AvisoError:
MsgBox Err.Description, vbCritical, Err.Number
End Sub

Private Sub Form_Load()
On Error GoTo AvisoError
With List1
.AddItem "Item 1 "
.AddItem "Item 2"
.AddItem "Item 3 "
.AddItem "Item 4"
End With
Exit Sub
AvisoError:
MsgBox Err.Description, vbCritical, Err.Number

End Sub