Dispaly list of names in Combobox as per type by letters

Private Sub ComboBox2_KeyUp(sender As Object, e As KeyEventArgs) Handles ComboBox2.KeyUp
       Dim sTypedText As String
       Dim iFoundIndex As Integer
       Dim oFoundItem As Object
       Dim sFoundText As String

       Select Case e.KeyCode
           Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down
               Return
       End Select

       sTypedText = ComboBox2.Text
       iFoundIndex = ComboBox2.FindString(sTypedText)
       If iFoundIndex >= 0 Then
           oFoundItem = ComboBox2.Items(iFoundIndex)
           sFoundText = ComboBox2.GetItemText(oFoundItem)
           'ComboBox1.SelectedIndex = iFoundIndex
           'sAppendText = sFoundText.Substring(sTypedText.Length)
           'ComboBox1.Text = sTypedText & sAppendText
           'ComboBox1.SelectionStart = sTypedText.Length
           'ComboBox1.SelectionLength = sAppendText.Length
       End If
   End Sub