Visual Basic - Pasar datos de un listbox a otro

Hola, kisiera saber como pasar algunos items de un listbox a otro pulsado sobre 1 boton, es decir yo selecciono en el list1 un dato, le doy al boton y se añade al list2. gracias!!!

Prueba con esto:
Private Sub cmdAdd_Click()
Dim I As Integer
Dim K As Integer
For I = 0 To List1.ListCount - 1
If List1.Selected(I) = True Then
For K = 0 To List2.ListCount - 1
If List1.Text = List2.List(K) Then
MsgBox "Valor ya Agregado", vbInformation
Exit Sub
End If
Next K
List2.AddItem List1.Text
Exit For
End If
Next I
End Sub

gracias