[amgad525]

PHP كود :

Private listBoxItems As List(Of String)

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    listBoxItems = (From x As String In Me.ListBox1.Items).ToList
End Sub

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
    Dim q = From x As String In listBoxItems Where x.Contains(Me.TextBox1.Text)
    Me.ListBox1.Items.Clear()
    Me.ListBox1.Items.AddRange(q.ToArray)
End Sub