Private Sub Command1_Click()List2.ClearFor i = 0 To List1.ListCount - 1List2.AddItem List1.List(i)NextList1.ClearEnd Sub