submain.bas

来自「我就不做什么介绍了.你们打家假如要管理系统的话就下下来自己看吧」· BAS 代码 · 共 12 行

Attribute VB_Name = "SubMain"
Option Explicit

Sub Main()
   If Not App.PrevInstance Then
      Load frmSplash
      frmSplash.Show vbModal
   ElseIf App.PrevInstance Then
      MsgBox "该应用程序的另一个实例已经运行!", vbCritical, "系统提示"
   End If
End Sub