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