AutoComplete (3)

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Sub txtStateSel_Change()
Dim lngResult As Long
If Len(txtStateSel.Text) = 0 Then Exit Sub
lngResult = SendMessage(lstStateSel.hwnd, LB_SELECTSTRING, _
ByVal -1, ByVal txtStateSel.Text)
End Sub

'es

frm1.strSearchState = lstStateSel.List(lstStateSel.ListIndex)