Please tell me why &H18F is used.... '399
Dim db As Database
Dim rs As Recordset
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
Const LB_FINDSTRING = &H18F
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "Alanis.mdb")
Set rs = db.OpenRecordset("Singer")
rs.MoveFirst
Do While Not rs.EOF
List1.AddItem rs!Name
rs.MoveNext
Loop
End Sub
Private Sub Text1_Change()
List1.Visible = True
List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, _
ByVal Text1.Text)
End Sub