Attribute VB_Name = "MainModule"
Public Enum LogType
    student
    teacher
    administrator
End Enum

Public Enum QuestionType
    OnErr = -1
    Blacks = 1
    RightOrWrong = 2
    SingleSel = 3
    MultiSel = 4
    EssayQuestion = 5
End Enum

Public TestUser As New LoginUser
Public QPaper As New QestionPaper

Sub Main()
  TestUser.LogFail = True
  QPaper.Answered = False
  QPaper.Created = False
  TestUser.UserName = ""
  TestUser.UserPassword = ""
  TestUser.LogFail = True
  frmSplash.Show vbModal
  MDIfrmMain.Show
End Sub