Private Sub Command1_Click()For i = 0 To Combo1.ListCount - 1Combo2.AddItem Combo1.List(i)Next iEnd Sub