Реализовать в выпадающем списке ComboBox'а поиск по любой части слова

    Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
        ListBox1.Items.Clear() 'список с результатами
        For Each t As String In ListBox2.Items 'список - источник
            If t.ToLower.Contains(ComboBox1.Text.ToLower) Then ListBox1.Items.Add(t)
        Next
    End Sub

 Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
        ListBox1.Items.Clear() 'список с результатами
        For Each t As String In ListBox2.Items 'список - источник
            If t.ToLower.Contains(ComboBox1.Text.ToLower) Then 
               ListBox1.Items.Add(t)
               ComboBox1.Items.Add(t)
               ComboBox1.DroppedDown = True
            End If
        Next
    End Sub

        ComboBox1.Items.Clear()
        For Each t As String In tSourceList
            If t.ToLower.Contains(ComboBox1.Text.ToLower) Then
                ComboBox1.Items.Add(t)
                ComboBox1.DroppedDown = True
                Me.Cursor = Cursors.Default 'иначе курсор пропадает..
            Else
                ComboBox1.DroppedDown = False
            End If
            ComboBox1.SelectionStart = ComboBox1.Text.Length 'иначе каретка будет в начале строки
        Next

    Dim Index As Integer = 0
 
    Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
        ComboBox1.Items.Clear()
        Index = 0
 
        For Each t As String In tSourceList
            Me.Cursor = Cursors.Default
            If ComboBox1.Text.Length > 0 Then
                If t.ToLower.Contains(ComboBox1.Text.ToLower) Then
                    ComboBox1.DroppedDown = True
                    Index = ComboBox1.Text.Length
                    ComboBox1.Items.Add(t)
                Else
                    Index = ComboBox1.Text.Length
                End If
            Else
                ComboBox1.SelectionStart = Index
                ComboBox1.Items.Add("")
                ComboBox1.DroppedDown = False
                ComboBox1.SelectionStart = Index
                Exit Sub
            End If
        Next
        ComboBox1.SelectionStart = Index
    End Sub

        For Each t As String In tSourceList
            If t.ToLower.Contains(ComboBox1.Text.ToLower) Then
                ComboBox1.DroppedDown = True
                ComboBox1.Items.Add(t)
            End If
            ComboBox1.SelectionStart = ComboBox1.Text.Length
        Next

ComboBox1.DroppedDown = True

ComboBox1.DropDownHeight = (ComboBox1.ItemHeight + 1) * 3

    Dim Index As Integer = 0
    Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
        ComboBox1.Items.Clear()
        Index = 0
        For Each t As String In tSourceList
            If t.ToLower <> ComboBox1.Text.ToLower Then 'иначе нельзя выбрать элемент
                If ComboBox1.Text.Length > 0 Then
                    If t.ToLower.Contains(ComboBox1.Text.ToLower) Then
                        ComboBox1.DroppedDown = True
                        ComboBox1.Items.Add(t)
                    End If
                    Index = ComboBox1.Text.Length
                Else
                    AllLoad_CB() 'сброс списка в изначальное состояние со всеми элементами
                    ComboBox1.DroppedDown = False
                    ComboBox1.SelectionStart = Index
                    Exit Sub
                End If
            End If
        Next

    Dim Index As Integer = 0
    Dim tSourceList() As String = {"Седина-Кузнечная 1", "Садовая-Кудринская 2", "Садовая-Кудринская 3", "Декабристов 36", "Ленинградский 7"}
    Dim NewList As List(Of String) = New List(Of String)
    Dim Test As List(Of String) = New List(Of String)
 
    Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
        ComboBox1.Items.Clear()
        NewList.Clear()
 
        For Each t As String In tSourceList
            If ComboBox1.Text.Length > 0 Then
                If t.ToLower.Contains(ComboBox1.Text.ToLower) Then
                    NewList.Add(t)
                    Index = ComboBox1.Text.Length
                Else
                    Index = ComboBox1.Text.Length
                End If
            Else
                NewList.Clear()
            End If
        Next
        ComboBox1.DropDownHeight = (ComboBox1.ItemHeight) * (NewList.Count) + 2
        If NewList.Count <= 0 Then
            ComboBox1.Items.Add("")
            ComboBox1.DroppedDown = False
            ComboBox1.SelectionStart = Index
        Else
            If IdentityList(NewList, Test) = True Then
                ComboBox1.SelectionStart = Index
                Cursor = Cursors.Default
                For i = 0 To NewList.Count - 1 Step 1
                    ComboBox1.DroppedDown = True
                    ComboBox1.Items.Add(NewList(i))
                    ComboBox1.SelectionStart = Index
                Next
            Else
                Test.Clear()
                For i = 0 To NewList.Count - 1 Step 1
                    Test.Add(NewList(i))
                Next
                ComboBox1.Items.Add("")
                ComboBox1.DroppedDown = False
                ComboBox1.Items.Clear()
                ComboBox1.SelectionStart = Index
                For i = 0 To NewList.Count - 1 Step 1
                    ComboBox1.DroppedDown = True
                    ComboBox1.Items.Add(NewList(i))
                    ComboBox1.SelectionStart = Index
                Next
                Cursor = Cursors.Default
            End If
        End If
    End Sub
 
    Function IdentityList(ByVal List1 As List(Of String), ByVal List2 As List(Of String)) As Boolean
        IdentityList = True
        If List1.Count - 1 = List2.Count - 1 Then
            For i = 0 To List1.Count - 1 Step 1
                If List1(i) <> List2(i) Then
                    Return False
                End If
            Next
        Else
            Return False
        End If
    End Function

ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

MsgBox(ComboBox1.Text)

ComboBox1.Text

    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        If ComboBox1.Text <> "" Then
            Clipboard.SetText(ComboBox1.Text)
            ComboBox1.DroppedDown = False
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
        TextBox1.AutoCompleteCustomSource.AddRange(ListBox1.Items.Cast(Of String).ToArray)
    End Sub

Contains