想把listview前复选框打勾的删掉，这样写不行啊，系统报索引走出超出边界，请高手指导
Dim j As Integer
  For j = 1 To ListView1.ListItems.Count
     If ListView1.ListItems(j).Checked = True Then
 ListView1.ListItems.Remove (j)
End If
Next j

kb kb