Cita: For Each elementoLista in List1.SelectedItems
List2.Items.Add(elementoLista)
Next
Solo para complementar la información.. esa forma de hacerlo funciona.. pero en algunos casos necesitas tanto el value como el texto... y por lo tanto debes hacerlo directamente con tu objeto ListItem...(que es la forma común.. para evitar regresar un objeto)
Quedaría de la siguiente forma:
Cita: For Each li as ListItem in List1.Items
List2.Items.Add(li)
Next
Salu2