Ver originalDim I As IntegerFor I = 0 To List1.ListCount - 1 If List1.Selected(I) Then List2.AddItem List1.List(I) End IfNext I