ListView，简单的小问题

Question

i = 0
For Each list2 In ListView2.ListItems
ListView3.ListItems(i).SubItems(1).Add , , list2.SubItems(0)
i = i + 1
Next
以上语句想要实现的是把ListView2中的每一项的第一列添加ListView3中每一项的第二列，但是有错误，请问正确的写法是什么

Answer 1

i = 1
For Each list1 In ListView1.ListItems
 Set list3 = ListView3.ListItems.Add(, , list1.Text)
 list3.SubItems(1).Add , , ListView2.ListItems(i).SubItems(1)
 i = i + 1
 Next
这样能否将ListView1的每一项的第一列添加ListView3中每一项的第一列
ListView2中的每一项的第一列添加ListView3中每一项的第二列

Answer 2

注明：ListView1和ListView2行数相同

Answer 3

For Each list1 In ListView1.ListItems
 ListView3.ListItems.Add , , list1.Text
 Next
   
i = 1
For Each list2 In ListView2.ListItems
ListView3.ListItems(i).SubItems(1) = list2.SubItems(0).Text
i = i + 1
Next
 这样能否将ListView1的每一项的第一列添加ListView3中每一项的第一列
ListView2中的每一项的第一列添加ListView3中每一项的第二列