程序错误!帮助修改一下!

[moleboy]

If ListView4.ListItems.Count = 0 Then Exit Sub
Dim i As Integer
For i = 1 To ListView4.ListItems.Count
If i > ListView4.ListItems.Count Then i = ListView4.ListItems.Count
If ListView4.ListItems(i).SubItems(2) = "ABC" Then
ListView4.ListItems.Remove (i)
End If
DoEvents
Next

运行提示文件错误!我知道是在循环移出选项时造成的错误!请问如何解决!
帮助修改一下

[ClientDC]

If ListView4.ListItems.Count = 0 Then Exit Sub
Dim i As Integer
Dim k As Integer
dim flag as collection
set flag=new collection
For i = 1 To ListView4.ListItems.Count
If i > ListView4.ListItems.Count Then i = ListView4.ListItems.Count
If ListView4.ListItems(i).SubItems(2) = "ABC" Then
flag.add i
End If
DoEvents
Next
for k=1 to flag.count
ListView4.ListItems.Remove flag(k).value

next k

[用户 昵称]

关键是你的程序是从1到list.count的，一旦list.count变化了你的程序就错了，解决方法
让循环从list.count to 1 step -1来循环