在API文本浏覽器裡，當我們在搜索欄輸入任意字母，“可用項”裡以該字母開頭的項目以高亮顯示以引起我們注意該項是不是我們所需的。象這樣的功能一切提供搜索選項的程序都應該具備。以下例子采用SendMessage函數實現這一技術。
請給標准工程添加ListBox和TextBox控件各一個，其各項屬性均取默認值，然後將下列代碼拷貝到你的工程：
OptionExplicit
'申明API函數
PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsInteger,ByVallParamAsAny)AsLong
ConstLB_FINDSTRING=&H18F'常數
PrivateSubForm_Load()
'給列表框添加26個字母（大寫）
DimiAsInteger
Fori=Asc("A")ToAsc("Z")
List1.AddItemChr$(i)
Next
Text1=""'令文本框為空
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
Text1=""'按下任意鍵則令原內容消失
Text1.SelLength=1'限制長度
Text1.SelText=Chr(KeyAscii)'顯示鍵盤符號
KeyAscii=0'禁止響鈴
'ListBox中的項目文本若與文本框的一致則選中(高亮)
List1.ListIndex=SendMessage(List1.hwnd,LB_FINDSTRING,-1,ByValCStr(Text1.Text))
EndSub
以上程序適用於單項目為多個字母的查詢，但必須注意，在TextBox的KeyPress事件中要作相應的改動。->
