Listbox 的模糊查询

我在以前看到一篇关于用SendMessage API函数实现的在 ListBox 里实现的快速
:
: 查询，就象是金山词霸的那种。
: 我现在把这个资料丢失了，而且我当时做的试验也没有保留下来。
: .......
Private Sub Text1_Change()
Dim Search As String, Index As Long
Search=Text1.Text
If Len(Search)>0 Then
Index=SendMessage(List1.hwnd,LB_SELECTSTRING,-1,ByVal Search)
Else
List1.ListIndex=0
End If
End Sub
其中第3个参数表示从头找起，如果要从第N项找起，就设为N-1
这样也会自动选取找到的项，如果不想自动选取，把第2个参数改成LB_FINDSTRI
NG