Public Sub Combo_KeyUp(ByVal cmb As ComboBox, ByVal e As KeyEventArgs)
    Dim TypText As String
    Dim IFoundI As Integer
    Dim oFoundItem As Object
    Dim sFoundText As String
    Dim sAppendText As String
    Select Case e.KeyCode
        Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down, Keys.Enter, Keys.Tab
            Return
    End Select
    TypText = cmb.Text
    IFoundI = cmb.FindString(TypText)
    If IFoundI >= 0 Then
        oFoundItem = cmb.Items(IFoundI)
        sFoundText = cmb.GetItemText(oFoundItem)
        sAppendText = sFoundText.Substring(TypText.Length)
        cmb.Text = TypText & sAppendText
        cmb.SelectionStart = TypText.Length
        cmb.SelectionLength = sAppendText.Length
    End If

End Sub