vb6, kopier valgt item fra en listbox til en anden

Hej!

jeg har to list box på en form og en knap,

jeg vil gerne have at jeg fra listbox1 kan markere et item, trykke på knappen og den bliver added til den anden listbox, (Dette er for konfigurations æjemed i en lille app.) i ved sikkert hvad jeg mener. Enu bedre er det svært hvis man også kunne dragdrop enkelte items over i den anden listbox.

lad os antage at jeg har en
form1, med 2 listboxe på
list1
list2
samt en knap "add"

Private Sub Add_Click()
Dim valgt
valgt = List1.Selected

List2.AddItem valgt
End Sub

men det virker jo ikke