【实例说明】
    在日常工作中经常遇到这样的情况，双击鼠标打开文件，一不小心，就打开了两三个相同的程序，占用大量系统资源。本例将介绍如何防止一个程序多次运行。运行程序时，当第二次运行此程序时会提示“系统不允许程序运行多次，请关闭后再试。”

【编程思路】
    利用App对象的PrevInstance属性可以防止程序被多次启动力。下面介绍App对象的使用：
    App对象是通过关键字App访问的全局对象。它指定如下信息：应用程序的标题、版本信息、可执行文件和帮助文件的路径及名称以及是否运行前一个应用程序的示例。下面是几个重要的属性：
    EXEName属性：返回当前运行的可执行文件的根名（不带扩展名）。如果是在开发环境下运行，则返回该工程名。
    HInstance属性：返回一个应用程序实例的句柄。
    Path[=pathname]：返回或设置当前路径。在设计时是不可用的。
    PrevInstance属性：返回一个值，该值指示是否已经有前一个应用程序实例在运行。
    ProductName属性：返回或设置一个字符串，该字符串包括运行中的应用程序的产品名称。
    Revision属性：返回或设置该工程的修订版本号。该属性在运行时是只读的。
    Title属性：返回或设置应用程序的标题，该标题要显示在Microsoft Windows的任务列表中。
    CompanyName属性：返回或设置一个字符串，该字符串包括运行中的应用程序的公司或创建者名称。该属性在运行时是只读的。

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

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

'退出
Private Sub Command1_Click()
        End
End Sub

Private Sub Form_Load()
        '检测程序是否已执行
        If App.PrevInstance Then
                MsgBox "系统不允许程序运行多次，请关闭后再试。", vbInformation, "系统提示"
                '退出
                End
        End If
End Sub