【实例说明】
    在软件的“关于窗体”中都会出现一个网站，点击就进入该网站。

【编程思路】
    1.利用API函数。
    2.利用Shell函数。
        语法：Shell(pathname[,windowstyle])
        pathname：必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目
                录或文件夹，以及驱动器。
        Windowstyle：可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程
                序是以具有焦点的最小化窗口来执行的。

        Windowstyle命名参数有以下这些值：
        vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。
        VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。
        VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
        VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
        VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
        VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，改名为frmAbout。
    2.在frmAbout窗体中放置一个Label控件，改名为lblHome(lblHome.Caption="http://vbw.icpcn.com")。

    3.源程序  [素材源程序下载]

(1)利用API函数：

'''为了打开主页用到的API函数
Dim sw_show As Long
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 lblHome_Click()
        ShellExecute hwnd, "open", "http://vbw.icpcn.com", vbNullString, vbNullString, sw_show
End Sub

(2)利用Shell函数：

Private Sub lblHome_Click()
        Shell "C:\Program Files\Internet Explorer\IExplore.exe http://vbw.icpcn.com", vbNormalFocus
End Sub