Doubts in Combo Box Auto Complete

See more:

VB

Cb_party.AutoCompleteMode = AutoCompleteMode.Suggest
      Cb_party.AutoCompleteSource = AutoCompleteSource.CustomSource
      Cb_party.AutoCompleteCustomSource = party

using this code i assigned auto-complete to combobox....

After setting Auto-complete,the following code doesn't work.....

This code is used to check the selected item is listed or not in the combobox while pressing ENTER key....

Private Sub Cb_party_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Cb_party.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            Dim i As Integer
            For i = 0 To Cb_party.Items.Count - 1
                If Cb_party.Items(i).Equals(Cb_party.Text) Then
                    txt_Km.Focus()
                    GoTo a
                End If
            Next
            MsgBox("Select Listed Item Only")
a:
        End If
    End Sub