Visual Basic.NET - Buscar cadena de texto en Combobox

Propiedad DropDownStyle en DropDown

Propiedad AutocompleteSource en ListItems

Propiedad Autocompletemode en Suggest

Public Sub ComboListadoRemitente_KeyUp(sender As Object, e As KeyEventArgs) Handles ComboListadoRemitente.KeyUp

    Dim strText As String

    strText = ComboListadoRemitente.Text

    If ComboListadoRemitente.Text = "" Then

        Me.ComboListadoRemitente.DataSource = Me.dtListado

        Me.ComboListadoRemitente.ValueMember = "Id"

        Me.ComboListadoRemitente.DisplayMember = "listado"

        ComboListadoRemitente.SelectedIndex = -1

        ComboListadoRemitente.DroppedDown = False

    End If

    If Len(strText) > 2 Then

        ComboListadoRemitente.DataSource = dtListado.Select("listado LIKE '%" & strText & "%'")

        Me.ComboListadoRemitente.ValueMember = "Id"

        Me.ComboListadoRemitente.DisplayMember = "listado"

        If ComboListadoRemitente.Items.Count <> 0 Then

            ComboListadoRemitente.DroppedDown = True

            ComboListadoRemitente.SelectedIndex = -1

            ComboListadoRemitente.Text = ""

            ComboListadoRemitente.SelectedText = strText

            strText = ""

            Cursor.Current = Cursors.Default

        Else

            Me.ComboListadoRemitente.DataSource = Me.dtListado

            Me.ComboListadoRemitente.ValueMember = "Id"

            Me.ComboListadoRemitente.DisplayMember = "listado"

            ComboListadoRemitente.SelectedIndex = -1

            ComboListadoRemitente.Text = ""

            ComboListadoRemitente.SelectedText = strText

            strText = ""

            ComboListadoRemitente.DroppedDown = False

        End If

    End If

End Sub

tutextbox.AutoCompleteCustomSource = tuclase.nombredelmetodoautocomplete();

tutextbox.AutoCompleteMode = AutoCompleteMode.Suggest;

tutextbox.AutoCompleteSource = AutoCompleteSource.CustomSource;

'//declaramos variable global donde se almacenarán los datos en memoria

Dim dt As New DataTable

Private Sub Form_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

    dt.Columns.Add("LISTA")

    For i As Integer = 1 To 10

        CbxLista.Items.Add("item " & i)

        Dim row As DataRow = dt.NewRow()

        row("LISTA") = "item " & i

        dt.Rows.Add(row)

    Next

End Sub

Private Sub cbxLista_DropDown(sender As Object, e As EventArgs) Handles cbxLista.DropDown

    cbxLista.Items.Clear()

    If Trim(cbxLista.Text) <> "" Then

        Dim rows As DataRow()

        rows = dt_ctas.Select("LISTA like '%" & cbxLista.Text & "%'")

        If rows.Length > 0 Then

            For Each row As DataRow In rows

                cbxLista.Items.Add(row("LISTA"))

            Next

        Else

            For Each row As DataRow In dt.Rows

                cbxLista.Items.Add(row("LISTA"))

            Next

        End If

    Else

        For Each row As DataRow In dt.Rows

            cbxLista.Items.Add(row("LISTA"))

        Next

    End If

End Sub