Attribute VB_Name = "mdlStandard"
Option Explicit

'0-表示教師身份；1-表示學(xué)生身份
Public gnUserType As Integer
Public gsUserName  As String

Sub Main()
    gnUserType = 0
    gsUserName = ""
    
    frmSplash.Show vbModal
    frmLogin.Show
End Sub