listbox控件数组的问题，谢谢

DIM i   AS INTEGER
DIM str AS STRINGIf A(0).SelCount = 1 Then
                stralm = A(0).Text
                      ElseIf A(0).SelCount > 1 Then
                         For i = 12 To 0 Step -1
                            If A(0).Selected(i) Then str=A(0).List(i)
                         Next
End If
以上程序中：A(0)是一个LISTBOX控件数组中的第一个控件，A(0)控件Style属性
为 checkbox,控件中共有12项内容,以上程序要将被选中的内容赋给 str
当程序运行到 If A(0).Selected(i) 报错：无效属性数组索引该问题是什么原因，如何解决？？？？？