Private Sub txtRicerca_KeyUp(KeyCode As Integer, Shift As Integer)
Dim I As Integer
Dim lung As Integer
lung = Len(txtRicerca.Text)
For I = 0 To cboAllievi.ListCount - 1
If UCase(txtRicerca.Text) = UCase(Left(cboAllievi.List(I), lung)) Then
cboAllievi.ListIndex = I
Exit For
End If
Next I
End Sub
A te le finezze.