If Not (e.KeyChar = ControlChars.Back) And _
Not (e.KeyChar = ControlChars.Tab) And _
(cbo.Text.Length > 0) Then
Dim itemIndex As Integer = -1
Dim i As New String
Dim index As Integer = 0
For Each i In cbo.Items
If i.ToUpper.StartsWith(cbo.Text.ToUpper) Then
itemIndex = index
Exit For
End If
index += 1
Next
If itemIndex > -1 Then
Dim oldText As String = cbo.Text
cbo.Text &= cbo.Items(itemIndex).Substring(cbo.Text.Length)
cbo.SelectionStart = oldText.Length
cbo.SelectionLength = cbo.Text.Length - oldText.Length
End If
End If