桌面搜索工具

Question

本人用VB编了一个桌面搜索工具，代码如下：
Option Explicit
Option Base 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub ComBaidu_Click()
    Dim url As String
    url = "http://wwww.baidu.com/baidu?wd="
    Search (url)
End SubPrivate Sub ComGoogle_Click()
    Dim url As String
    url = "http://www.google.com/search?q="
    Search (url)
End SubPrivate Sub ComHuajun_Click()
    Dim url As String
    url = "http://search.onlinedown.net/search.asp?keyword="
    Search (url)
End SubPrivate Sub Command1_Click()
    End
End Sub
Private Sub ComYahoo_Click()
    Dim url As String
    url = "http://www.yahoo.com/search/cn?p="
    Search (url)
End SubPrivate Sub ComYisou_Click()
    Dim url As String
    url = "http://www.yisou.com/search?p="
    Search (url)
End SubPrivate Sub Search(url As String)
On Error Resume Next    '遇到错误继续运行
    If TxtSearch.Text = "" Then
        MsgBox "请先输入要查找的关键字！", , "提示"
        TxtSearch.SetFocus
        Exit Sub
    End If
    '调用浏览器显示Baidu搜索的结果
    ShellExecute hwnd, "open", url + TxtSearch.Text, "", "", 1End Sub