VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "CSS Main Screen"
   ClientHeight    =   5085
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6600
   LinkTopic       =   "Form2"
   ScaleHeight     =   5085
   ScaleWidth      =   6600
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdExit 
      Caption         =   "Exit the Application"
      Height          =   615
      Index           =   1
      Left            =   3360
      TabIndex        =   1
      Top             =   3720
      Width           =   3135
   End
   Begin VB.CommandButton cmdStart 
      Caption         =   "Start the Application"
      Height          =   615
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   3720
      Width           =   3135
   End
   Begin VB.Label lblweb 
      Alignment       =   1  'Right Justify
      Caption         =   "http://blacksunhine.freeservers.com "
      Height          =   255
      Index           =   1
      Left            =   3360
      TabIndex        =   4
      Top             =   4680
      Width           =   3135
   End
   Begin VB.Label lblorg 
      Alignment       =   1  'Right Justify
      Caption         =   "An Aaron's Computer Services Production"
      Height          =   255
      Index           =   0
      Left            =   3360
      TabIndex        =   3
      Top             =   4440
      Width           =   3135
   End
   Begin VB.Label lblCSS 
      Alignment       =   2  'Center
      Caption         =   "Course Scheduluing System"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   26.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1575
      Left            =   120
      TabIndex        =   2
      Top             =   1080
      Width           =   6255
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuStart 
         Caption         =   "&Start the Application"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click(Index As Integer)
    'frmMenu.Unload
    Unload frmMain
End Sub

Private Sub cmdStart_Click(Index As Integer)
    frmMenu.Show
    frmMain.Hide
End Sub
Private Sub mnuExit_Click()
    'frmMenu.Unload
    Unload frmMain
End Sub

Private Sub mnuStart_Click()
    frmMenu.Show
    frmMain.Hide
End Sub