ayuda sobre en componenete listbox

ADRIANA
22 de Julio del 2004
necesito pasar un texto seleccionado de un listbox a otro listbox pero solo me manda un cero por favor ayudenme

sebastian
22 de Julio del 2004

Private Sub List1_Click()
List2.AddItem List1.Text
End Sub