VB 6.0 eliminar item de un listview con un texbox

[lokoman]

Hola!
Verifica si el siguiente code te sirve:

Código vb:

If ListView1.ListItems.Count > 0 Then 
for I=1 to ListView1.listitems.count
TMP =ListView1.ListItems.Item(I)
if trim(textbox1.text)=tmp then ListView1.ListItems.Remove (ListView1.ListItems.Item(I).Index)
next I
endif