列表框内复选框的问题?

Question

要实现从list2中选中的内容移到list1当中去.而list2为复选框的.即style=checkbox,sorted=true.
我用的代码如下,总是报错,请高手指教.Private Sub Command2_Click()
Dim i As Integer
For i = 0 To ListCount
 If List2.Selected(i) = True Then
   List1.AddItem List2.Selected(i).Text  '这个地方通不过的,.selected加亮显示.
   List2.RemoveItem List2.Selected(i).ListIndex 
 End If
Next i
End Sub

Answer 1

Private Sub Command1_Click()Dim i As Integer
For i = 0 To List2.ListCount - 1
 If List2.Selected(i) = True Then
   List1.AddItem List2.List(i)
   List2.RemoveItem List2.ListIndex
 End If
Next iEnd Sub

Answer 2

楼上的一样会报错.
 If List2.Selected(i) = True Then  '说是list2.selected(i)=<invalid property array index>