' Student: Pat Moss
' Instructor: Greg Simpson

' CIS259, Sect. 5844, VB.NET II
' January 24, 2006 Tuesday 5:40 pm

' Chapter 02, Project 05, p. 122-123
' Textbook: Visual Basic .NET by Michael Ekedahl, 0619213353

' This file is: Startup.vb Rev. 01b Sub Main()

' Software Specification:
' Design an Amortization Schedule, including a Startup
' Sub Main procedure, a Splash screen, a User Input Screen,
' the Amortization Schedule screen, and Menu controls.

Option Strict On
Option Explicit On

Module Startup
    ' Parameter values initialized by frmMain and used by frmAmort
    Public gldblBegPrin As Double = 0
    Public gldblAddPymt As Double = 0
    Public glintPeriods As Integer = 0
    Public glsngIntRate As Single = 0

    Public Sub Main()
        ' Declare and instantiate the first two screens
        ' frmSplash Splash screen and frmMain Main screen.
        ' The Splash screen displays for 3 seconds.
        ' Then it closes and the Main screen is displayed.
        Dim frmSplashNew As New frmSplash
        Dim frmMainNew As New frmMain
        frmSplashNew.ShowDialog()
        frmMainNew.ShowDialog()
    End Sub
End Module