Public Class CAutoCompleteCombobox
    Inherits ComboBox
 
    Private Sub AutoCompleteCombobox_Keyup(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
        Dim typedText As String = Me.Text
        Dim index As Integer
        'Behandlung der Pfeiltasten etc. zulassen
        Select Case e.KeyCode
            Case Keys.Left, Keys.Right, Keys.Up, Keys.Down, Keys.Delete, _
              Keys.Back
                Return
        End Select
        'Text in der Items Liste suchen
        index = Me.FindString(typedText)
        'Text vorhanden?
        If index >= 0 Then
            'Item auswählen und markieren
            Me.SelectedIndex = index
            Me.Select(typedText.Length, Me.Text.Length)
        End If
    End Sub
End Class