哪位帮我一下简单问题..VB做个小搜索的

print 语句吗
1、在窗体上添加一个text1控件
2、在窗体上添加一个command1控件
3、复制以下代码进去，运行程序，在text1中填写你想搜索的关键字，点按钮就可以了。
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 Sub Command1_Click()
Dim temp As String
If Text1.Text = "" Then
MsgBox "请输入关键字"
Exit Sub
Else

Dim ret&

ret& = ShellExecute(Me.hwnd, "Open", "http://www.baidu.com/s?wd=" & Text1.Text, "", App.Path, 1)
End If
End Sub
懂了吗 不懂还可以问我
还有一个 2楼抄袭的习惯不好啊， 楼主我改了1下答案 楼层就到最低了！！！！！！！这是我先说的

1、在窗体上添加一个text1控件
2、在窗体上添加一个command1控件
3、复制以下代码进去，运行程序，在text1中填写你想搜索的关键字，点按钮就可以了。
Private Dec