ComboBox che consente di posizionarsi sulla prima ricorrenza di un item quando si digitano le sue prime lettere

Per ottenere un ComboBox che consenta di posizionarsi sulla prima ricorrenza di un item quando si digitano le sue prime lettere, si può usare questa soluzione:

Public Sub Form_Open()  
     
  ComboBox1.Tag = 1  
     
End  
     
     
Public Sub ComboBox1_Change()  
     
  Dim s As Short
     
   With ComboBox1  
     s = .List.Find(String.Left(.Text, .Pos) & "*", gb.Like)
       If s > -1 Then
         .Text = ComboBox1[s].Text  
         .Pos = .Tag  
       Endif
   End With
     
End  
     
     
Public Sub ComboBox1_KeyRelease()  
     
  If Key.Code < 127 Then  
    Inc ComboBox1.Tag  
  Else  
    ComboBox1.Tag = ComboBox1.Pos + 1  
  Endif  
     
End