[alfaiz678]

اذا كنت تقصد البحث في الكمبوبوكس
بواسطة حرف موجود في اي مكان في الكلمة
فهناك حل اخر  يقوم العمل

كود :

 Public listOnit

    Public listNew As List(Of String) = New List(Of String)()

Public Sub ComboBox_TextUpdate(COM As ComboBox)
       COM.Items.Clear()
       listNew.Clear()
       Try
           For Each item In listOnit

               If item.Contains(COM.Text) Then
                   listNew.Add(item)
               End If


           Next

           COM.Items.AddRange(listNew.ToArray())
           COM.SelectionStart = COM.Text.Length '- 2
           COM.Cursor = Cursors.Default
           COM.DroppedDown = True
       Catch ex As Exception

       End Try
   End Sub

ثم قم بتعبئة بيانات الكمبوبوكس في حدث Com1_Enter للكمبوبوكس بالطريقة المعروفة
واخر حدث هو Com1_TextUpdate للكمبوبوكس
تقوم فيه باستدعاء الدالة ComboBox_TextUpdate

كود :

 Private Sub Com1_TextUpdate(sender As Object, e As EventArgs) Handles Com1.TextUpdate
        ComboBox_TextUpdate(Com1)
    End Sub

يمكنك اختصار الكود كما تحب