Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
Dim i As Integer
For i = 0 To ComboBox1.Items.Count - 1
If ComboBox1.Items.Item(i) = ComboBox1.Text Then
ComboBox1.SelectedIndex = i
End If
Next
End Sub