Auto-completing combo box

[Hack]

Originally posted by DaveR
thats works well , but when you press enter after your selected
text appears , which a lot of people would instinctively do , the
combo opens up , when you really want it to go down..

Thats easily addressed DaveR.

Private Sub Text1_KeyPress(KeyAscii As Integer)
 
      If KeyAscii = 13 Then 'user hit enter key
         Dim lRet&
         lRet = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
    End If
 
End Sub