Validar eliminacion de item en un ListView

[Avellaneda]

Hola, mira si te vale esta función:

Código:

Function BuscarLV(lv As ListView, sBuscado As String, vCol As Integer) As Boolean
Dim lItem As ListItem, i As Integer
With lv
    If vCol = 0 Then ' buscar por la primera columna
        Set lItem = .findItem(sBuscado, lvwText)
    Else    ' buscar sólo en la columna indicada
        For i = 1 To .ListItems.Count
            If .ListItems(i).SubItems(vCol) = sBuscado Then
                Set lItem = .ListItems(i)
                Exit For
            End If
        Next i
    End If
    If Not (lItem Is Nothing) Then
        lItem.Selected = True
        i = lItem.Index
        .ListItems.Remove (i)   ' lo eliminamos
        BuscarLV = True
    End If
End With
End Function

Para llamarla le pasas como parámetros el nombre del ListView, el valor del campo a buscar (que lo hemos escrito en un Text1) y el número de columna por donde buscar (teniendo en cuenta que la primera columna es cero)

Código:

Private Sub Cmd_quitar_Ing_Click()
Dim bEncontrado As Boolean
bEncontrado = BuscarLV(ListView1, Text1, 3)
If bEncontrado = False Then MsgBox "No existe"
End Sub