[مساعدة]

السلام عليكم

تفضل الكود

كود :

ListBox1.Items.Clear()
If TextBox1.Text.Trim <> "" Then
    For Each item In ListBox2.Items
        Dim a As String = item.ToString.ToLower
        Dim b As String = TextBox1.Text.Trim.ToLower
        If a.Contains(b) Then
            ListBox1.Items.Add(item)
        End If
    Next
End If

---

الفكرة أن تحول كلا الطرفين لأحرف صغيرة باستحدام ToLower ومن ثم تقوم بالمقارنة

---

واستخدام Trim لحذف اي مسافة قبل او بعد النص حتى لا بأثر على نتيجة المقارنة