[codesyntax lang=”vbnet” highlight_lines=””]
Sub FilterListView(ByVal Listview As ListView, ByVal iteme As String)
For Each item As ListViewItem In Listview.Items
If Not item.SubItems(1).Text = iteme Then
item.Remove()
End If
Next
End Sub
[/codesyntax]