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