cmbAutoComp

Public Sub ComboBoxAutoCompleteTyping(oComboBox As ComboBox)
Dim SelStart As Integer
Dim t As Integer

SelStart = oComboBox.SelStart
t = 0
While Left(UCase(oComboBox.List(t)), oComboBox.SelStart) _
<> UCase(oComboBox.Text) And t < oComboBox.ListCount
t = t + 1
Wend
If t < oComboBox.ListCount Then
oComboBox.Text = oComboBox.List(t)
oComboBox.SelStart = SelStart
oComboBox.SelLength = Len(oComboBox.List(t)) - SelStart
End If
End Sub

ComboBox Auto Complete Text (No API !)