Private Sub ComboBox_TextChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles ComboBox.TextChanged
        Dim i, Länge As Integer
        Länge = Len(ComboBox.Text)
        For i = 0 To ComboBox.Items.Count - 1
            If InStr(ComboBox.Items(i), ComboBox.Text) Then
                ComboBox.Text = ComboBox.Text + Mid(ComboBox.Items(i), Länge + _
                  1)
                ComboBox.Select(Länge, Len(ComboBox.Text) - Länge)
                Exit For
            End If
        Next
    End Sub