Kod:
Private Sub DRm_TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
RichTextBox1.Text = ""
Arama_Yap_Olmayanlari_Sil(ListView1, TextBox1.Text)
End Sub
Private Shared Sub Arama_Yap_Olmayanlari_Sil(ByVal ListView_Adi As ListView, ByVal Aranacak_TextBox As String)
ListView_Adi.Items.Clear()
Dim ara As String = Aranacak_TextBox.ToLower()
For Each item As ListViewItem In ListView_Adi.Items
If item.Text.ToLower().Contains(ara) = True Then
item.Selected = True
Else
item.Remove()
End If
Next
End Sub
Teşekkür ederim.