AutoComplete in Combo Box

[kurtsimons]

I want to create a combo box where when you type into the box it searches the combo list and then automatically fills in the text but highlights it... just like the IE address box.

I can't get the seltext to work properly

c is my combo box
-------------------------------------------------


On Error Resume Next

For a = 0 To 2

If Left$(c.Text, Len(c.Text)) = Left$(c.List(a), Len(c.Text)) Then


If c.Text <> c.List(a) Then
c.Text = c.List(a)
End If

b = Len(c.Text)

c.SelStart = b

c.SelLength = Len(c.Text) - b + 1

Exit Sub



End If

Next a