oggetto è il nome delle combo


codice:
Private Sub oggetto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles oggetto.KeyPress
        Call DigitCTRL(oggetto, oggetto.Text)

    End Sub
    
    Sub DigitCTRL(ByVal combo As ComboBox, ByVal varRicerca As String)
        Dim i As Integer
        i = combo.Text.Length
        combo.SelectedIndex = combo.FindString(varRicerca)
        combo.Select(i, (combo.Text.Length - i))


    End Sub