Eliminar datos de un ListWiev

[& eDu &]

En un listview pone

www.google.es
www.yahoo.es

y quiero que si en un text ponen www.google.es y le den a un caption, del Listwiev se elemine www.google.es

Gracias

[SKL (orignal)]

Necesitas 1 boton, 1 textbox y 1 listview

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim i As Long

    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems.Item(i).Text = Text1.Text Then
            ListView1.ListItems.Remove i
            Exit For
        End If
    Next
   
    Text1.Text = vbNullString
End Sub

Private Sub Form_Load()

    ListView1.ListItems.Add , , "www.google.es"
    ListView1.ListItems.Add , , "www.yahoo.com"
    ListView1.ListItems.Add , , "www.elhacker.net"
    ListView1.ListItems.Add , , "www.uploadsourcecode.com.ar"
End Sub

pega ese code y escribi en el textbox el texto que quieras y si es igual al del listview se elimina...

la proxima usa GOOGLE tambien eh