Originariamente inviato da Rossella_75
ho fatto come hai detto ma ho ricevuto un 'errore

codice:
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Public Const LB_FINDSTRING = &H18F

Private Sub Form_Load()

    Data.rscomuni.Open
    While Not Data.rscomuni.EOF
    List1.AddItem (Data.rscomuni.Fields("COMU_DESCR"))
    Data.rscomuni.MoveNext
    Wend
    Data.rscomuni.Close
    
End Sub

Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub

in List1 ottengo senza problemi la lista che mi interessa ma l'errore è nella dichiarazione dell'API esattamente qui

codice:
Public Const LB_FINDSTRING = &H18F
guarda
qui


metti la costante su di un modulo standard.