submain.bas

三层架构的数据C/S, 主要是学生成绩的管理体制

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