【实例说明】
    一般的应用软件，都有说明软件版权信息、公司声明等内容的窗体，这个窗体叫做“关于窗体”。本例以“NineChess V1.0”的“关于窗体”为例，介绍如何设计这样的“关于窗体”。运行程序，将显示“NineChess V1.0”的“关于窗体”，窗体中包含了产品的使用环境、版权、使用权、公司网站等信息。

【编程思路】
    用ShellAbout函数调用一个关于窗体，并可设置相关信息。下面是相关的API函数声明及参数：

    函数声明：
        Public Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" _
              (ByVal hwnd As Long, _
              ByVal szApp As String, _
              ByVal szOtherStuff As String, _
              ByVal hIcon As Long) As Long
        参数：
        hwnd参数，长整型，指定窗体的句柄；
        SzApp参数，字符串型，指定关于的标题；
        szOtherStuff参数，字符串型，指定关于的内容；
        hIcon参数，长整型，指定关于的图标。


【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在Form1窗体上放置两个Command控件。

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


'API函数声明
Public Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" _
        (ByVal hwnd As Long, _
        ByVal szApp As String, _
        ByVal szOtherStuff As String, _
        ByVal hIcon As Long) As Long

Private Sub Command1_Click() '调用关于窗体
        Dim myWeb As String
        Dim mySoftware As String
        myWeb = Chr(10) & Chr(13) & Chr(10) & Chr(13) & "欢迎访问『VB网』：http://vbw.icpcn.com"
        mySoftware = "NineChess V1.0"
        Call ShellAbout(hwnd, mySoftware,myWeb, Me.Icon)
End Sub

Private Sub Command2_Click()
        Unload Me '退出
End Sub