关于listbox多项删除的疑惑

vb控件listbox中支持多个删除。首先要设定list的multiselect属性为2-Extended然后再在代码中添加即可。

刚开始使用的是

For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List1.RemoveItem i

End If
i = i + 1
Next i

表面上看没什么问题，后来在使用中发现如果两项相邻，那么第二项不能被删除。如list(0),list(1),list(3),list(4)是所删除项时，list(1)和list(4)都没有被删除。

使用了另外一段代码，

Do While i < List1.ListCount

If List1.Selected(i) = True Then
List1.RemoveItem i

End If
i = i + 1
Loop

仍然有相同的问题。在调试中发现不论是代码一还是代码二，它们的list.listcount的值都在变化，直接导致循环无法走完。

那么是否有更完善的方法呢，鉴于小弟水平太低，还未找到。希望各位大侠能够给予指导。