很菜的问题！

Question

List2.Clear
For i = 0 To List1.ListCount - 1
 List2.AddItem List1.List(i)
Next i

Answer 1

是不是list2中只添加list1中选定的项目？
那样子的话，如下去做。
Dim i As Long
Dim n As Long
n = List1.ListCount - 1
For i = 0 To n
If List1.Selected(i) Then
List2.AddItem List1.List(i)
End If
Next i
如果是把LIST1中全部项目添加到LIST2的话，去掉那句IF判断就可以了。祝你编程愉快。

Answer 2

List2.Clear For i = 0 To List1.ListCount - 1
  List2.AddItem List1.List(i)
 Next i