Private Sub Command1_Click() For i = 0 To List1.ListCount List2.AddItem List1.List(i) Next i End SubPrivate Sub Form_Load() List1.AddItem "ddd" List1.AddItem "aaa" List1.AddItem "bbb" List1.AddItem "ccc" List1.AddItem "eee" List1.AddItem "fff"End Sub
For i = 0 To List1.ListCount
List2.AddItem List1.List(i)
Next i
End SubPrivate Sub Form_Load()
List1.AddItem "ddd"
List1.AddItem "aaa"
List1.AddItem "bbb"
List1.AddItem "ccc"
List1.AddItem "eee"
List1.AddItem "fff"End Sub