Delete multiple selected rows in a listview

Private Sub cmdDelete_Click()
Dim i As Integer
 
 With Listview1
 
 ' The trick: We step backwards through 
 ' the array.
 ' The reason you always get an 'out of 
 ' bound' error is because at a certain 
 ' point the value of i will equal 0,
 ' or be greater than the number of rows
 ' left. (We set i with the initial
 ' row.count, and then start deleting
 ' from that count).
 ' We avoid that by stepping
 ' backwards :)
 For i = .ListItems.Count To 1 Step -1
 If .ListItems(i).Checked Then
  .ListItems.Remove (i)
 End If
 Next i
 End With
End Sub