listbox的问题

Question

Private Sub Command1_Click()
For i = 1 To LstNow.ListCount '从第一行到最后一行
If LstNow.Selected(i - 1) Then '该行被选中
LstNow.RemoveItem i - 1 '删除该行
End If
Next
End Sub

就是这么简单的代码为什么会提示出错“无效属性索引”？
我看了下经常i>LstNow.ListCount却仍然执行了for语句，搞不懂啊~！
有谁知道吗？
谢谢AlphaBlend你的答案是正确的但是能解释下原因吗？

Answer 1

Private Sub Command1_Click()
For i = LstNow.ListCount To 1 Step -1 '从第一行到最后一行
If LstNow.Selected(i - 1) Then '该行被选中
LstNow.RemoveItem i - 1 '删除该行
End If
Next
End Sub