AutoComplete (1)

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
'Chiamata alla funzione di ricerca delle listbox

lngResult = SendMessage(lstStateSel.hwnd, _
LB_SELECTSTRING, ByVal -1, ByVal txtStateSel.Text)
End Sub

frmGassRptMain.strSearchState = _
lstStateSel.List(lstStateSel.ListIndex)