submain.bas

来自「一个比较完整的三层结构的学生成绩管理系统.rar」· 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