Per quanto hai cercato un combobox con la possibilità di ricerca? Ecco una semplice implementazione:

Private Sub CombBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
        Dim findString As String = String.Empty
        If (Not e.KeyChar.IsLetterOrDigit(e.KeyChar, 0)) Then Exit Sub
        findString = e.KeyChar
        With ComboBox1
            .SelectedIndex = ComboBox1.FindString(findString)
        End With
        If ComboBox1.SelectedIndex > -1 Then e.Handled = True
End Sub

Ciao a tutti!