Visualizza wikitesto di 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.List = ["abcde", "abcef", "abefg", "acdef", "acdfg", "acefg"]   <FONT Color=gray>' ''Una lista esmplificativa di elementi testuali''</font>
   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'''