Dim x As Stringx = Me.List1.ListIndexMe.List2.AddItem Me.List1.List(x)Me.List1.RemoveItem (x)
Dim i As IntegerFor i = 0 To List1.ListCount - 1 List2.AddItem (List1.List(i))Next
