关于ListView1的问题！

Question

目的是要达到所有通过多重选择选中的行，通过下面的程序，把他们删掉！
我的代码：
  Dim sel As Integer
             For sel = 1 To ListView1.ListItems.Count
             If ListView1.ListItems(sel).Selected = True Then ListView1.ListItems.Remove (sel)
             Next
              
但是一运行，就出错！提示索引超出边界！
帮忙解决！谢谢！

Answer 1

'删除选中的项
  Dim ItemX As ListItem
  For Each ItemX In ListView1.ListItems
    If ItemX.Selected = True Then
      ListView1.ListItems.Remove ItemX.Index
    end if
  Next

Answer 2

Dim sel As Integer
             For sel = ListView1.ListItems.Count To 1 Step -1
             If ListView1.ListItems(sel).Selected = True Then ListView1.ListItems.Remove (sel)
             Next

Answer 3

以上两倍都不错!但我想到的是与wwfang(晴天) ( ) 一样

Answer 4

包你行,快送分
Public Function RemoveSelectItem(LV As ListView)  '删除选项
Dim I As Long
Dim J As Integer '被选中的总数
Dim K As Integer
For I = 1 To LV.ListItems.Count
    If LV.ListItems(I).Selected = True Then
        J = J + 1
    End If
Next I
For K = 1 To J
    For I = 1 To LV.ListItems.Count
        If LV.ListItems(I).Selected = True Then
            LV.ListItems.Remove I
            Exit For
        End If
    Next I
Next K
End Function