µÚ Ò» ¸ö ÎÊ Ìâ Ê¹ ÓÃ ÏÂ Ãæ µÄ ´ú Âë £º 
    Const LB_FINDSTRING = &H18F 
    Private Declare Function SendMessage Lib "user32" _ 
     Alias "SendMessageA" _ 
     (ByVal hwnd As Long, _ 
     ByVal wMsg As Long, _ 
     ByVal wParam As Long, _ 
     lParam As Any) _ 
     As Long 
     
    Private Sub Text1_Change() 
     Dim lPos As Long 
     
     lPos = SendMessage(List1.hwnd, LB_FINDSTRING, 0, ByVal Text1.Text) 
     
     If lPos >= 0 Then 
     List1.Text = List1.List(lPos) 
     List1.ListIndex = lPos 
     End If 
    End Sub 
    µÚ ¶þ ¸ö ÎÊ Ìâ Ê¹ ÓÃ ShellÓï ¾ä £º 
    Shell "C:\prog\readme.txt" 
<END>