For i = 1 To ListView1(Index).ListItems.count
        If ListView1(Index).ListItems(i).Selected = True Then
            n = n + 1
            ListView1(Index).ListItems(i).Key = "strdel" & n
        End If
    Next i

           'удаление строчек в listview1
                For i = 1 To Nsel
                    ListView1(0).ListItems.Remove CStr("strdel" & i)
                Next i

Public Sub RemoveSelectedItems()
  'удаляет все выделенные итемы
  Dim Nsel As Long
  Dim i As Long
  If (m_hwndLV) Then
    Nsel = Me.SelectedItemCount
    For i = 0 To Nsel - 1
      Me.RemoveItem Me.SelectedItem
    Next
  End If
End Sub

Public Function RemoveItem(ByVal iItem As Long) As Boolean
  'удаляет заданный итем
  If (m_hwndLV) Then RemoveItem = CBool(SendMessageLong(m_hwndLV, LVM_DELETEITEM, iItem, 0))
End Function

Public Property Get SelectedItemCount() As Long
  'возвращает к-во выделенных итемов
  SelectedItemCount = SendMessage(m_hwndLV, LVM_GETSELECTEDCOUNT, 0, 0)
End Property

Public Property Get SelectedItem() As Long
  'возвращает первый выделенный итем
  SelectedItem = SendMessageLong(m_hwndLV, LVM_GETNEXTITEM, -1, ByVal LVNI_SELECTED)
End Property