removeitem 出错：无效属性数组索引

Question

Private Sub Form_Load()
'填充listbox
For i = 0 To 5
List1.AddItem (i)
Next
End SubPrivate Sub Command3_Click()
Dim i As Integer
'删除选中的listitem，可多选
For i = 0 To 5
If List3.Selected(i) Then
List3.RemoveItem i
End If
Next
End Sub但是运行无效，出错：无效属性数组索引！
请各位帮我看看问题出在哪里？

Answer 1

Private Sub Command3_Click() 
Dim i As Integer 
'删除选中的listitem，可多选 
For i = 5 To 0 step -1  '顺序反过来
If List3.Selected(i) Then 
List3.RemoveItem i 
End If 
Next 
End Sub 

Answer 2

谢谢yachong，倒过来问题就解决了，好神奇啊，为什么呐？

Answer 3

很简单，总共0-5六个item
你删了第0个，还剩下五个，这五个会自动重新编号为0-4，你再删第5号会报错

Answer 4

原来是这样啊，太感谢yachong！，结贴！