求助vb 无法理解的问题

  With ListView3(0)
      For i = .ListItems.Count To 1 Step -1
      For j = i + 1 To .ListItems.Count-1
          If Mid(.ListItems(i).Text, 1, 1) = Mid(.ListItems(j).Text, 1, 1) Then
              .ListItems.Remove i
          End If
      Next
  Next
  End With这个运行时,为什么最后一个无法删除掉呢
For j = i + 1 To .ListItems.Count 去掉减1会出错误.
我不知道为什么.