我想用VB做一个快速启动网页的程序

我现在刚刚学VB，我想用VB做一个快速打开网页的程序，点击程序上的按钮然后就打开我设定的网页了，麻烦高手们告诉我怎么设置.

填写上代码就可以啦

一个窗体，一个按钮，一个WebBrowser1,，简单实用的

Private Sub Command1_Click()

WebBrowser1.Navigate "www.baidu.com"

end sub

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 HyperJump Dim w w = " http://qhdedu.net/A01.asp" HyperJump = ShellExecute(0&, vbNullString, w, vbNullString, vbNullString, vbNormalFocus)

End Sub

Private Sub Command1_Click() Shell "explorer.exe http://www.baidu.com" End Sub