1)使用API函数。
Option Explicit
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 Me.hWnd, "open", "
http://zhidao.baidu.com/", "", "", 1
End Sub
2）使用Shell函数。
Private Sub Command1_Click()
Dim RetVal
RetVal = Shell("C:\Program Files\Internet Explorer\iexplore.exe" & " " & "
www.baidu.com", vbNormalFocus)
End Sub
3）使用WebBrowser控件直接建立浏览器。
在 Visual Basic 里还可以向工程中增加其它类型的 Internet 功能，包括：Visual Basic 应用程序的 Internet 扩展。可以使用一些特殊控件，它们提供了和Internet 有关的功能。这些控件包括
Internet Transfer 控件、 WebBrowser 控件，以及 WinSock 控件。
Private Sub Command1_Click()
WebBrowser1.Navigate "
http://www.baidu.com"
End Sub
