VB中 如何点一个按钮连接 《网址 和 邮箱》

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()
ShellExecute 0, vbNullString, "http://zhidao.baidu.com", vbNullString, vbNullString, 1
End Sub

Private Sub Command2_Click()
ShellExecute 0, vbNullString, "mailto:dp@baidu.com", vbNullString, vbNullString, 1
End Sub

'一个文本框text1,一个按钮command1
Private Sub Command1_Click()
Shell "C:\Program Files\Internet Explorer\IEXPLORE.exe " & Text1
End Sub

单击事件里写
shell "http://www.baidu.com"