Private Sub List1_Click()List2.AddItem List1.List(List1.ListIndex)List1.RemoveItem (List1.ListIndex)End Sub
