
Newbies need help......Urgent please help!!
Can I search the List1.ItemData(List1.ListIndex) like the way I to search
for List1.text in below?
Private Sub Text1_Change()
Dim i
Dim strSearch As String
strSearch = Text1.Text
If strSearch = "" Then Exit Sub
i = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal strSearch)
If i < 0 Then
MsgBox "Not Found"
Exit Sub
End if
List1.TopIndex = i
List1.ListIndex = i
End Sub
Please help.....