Una consulta sobre Listview.

Intento borrar pero no me sale

For i = ListView1.ListItems.Count To 1 Step -1
' si está seleccionado
If ListView1.ListItems(i).Selected Then

With ListView1.ListItems.Remove

Set tLi = ListView1.ListItems.Remove(i)
tLi.SubItems(1) = .Fields("Nombre") & ""
tLi.SubItems(2) = .Fields("NIFCIF") & ""
tLi.SubItems(3) = .Fields("Direccion") & ""
tLi.SubItems(4) = .Fields("Movil") & ""

End With

' lo borramos
'ListView1.ListItems.Remove i
End If
Next
End Sub