Attribute VB_Name = "Module1"
Option Explicit
Public frmMainForm As frmMain

'sub to show splash and handle setup
Private Sub Main()
    
    'do splash
    Screen.MousePointer = vbHourglass
    frmSplash.Show
    frmSplash.Refresh
    Set frmMainForm = New frmMain
    
    'initialize the report
    frmMainForm.cmdSubmit.Enabled = False
    
    'set the default input units to metric system
    With frmMainForm
        .cboUnits.Item(0).Text = .cboUnits(0).List(0)
        .cboUnits.Item(1).Text = .cboUnits(1).List(0)
        .cboUnits.Item(2).Text = .cboUnits(2).List(0)
        .cboUnits.Item(3).Text = .cboUnits(3).List(0)
        .cboUnits.Item(4).Text = .cboUnits(4).List(0)
    End With
    
    'set the default input dimensions
    
    With frmMainForm
        .txtDimensions(0) = 400
        .txtDimensions(1) = 20
        .txtDimensions(2) = 120
        .txtDimensions(3) = 120
        .txtDimensions(4) = 60
    End With
    
    frmMainForm.cmdSubmit.Enabled = True
       
    'load the icon for this window from resource file
      
    frmMainForm.Icon = LoadResPicture(101, 1)
    
    'load the main form and get rid of splash screen
    Load frmMainForm
    Unload frmSplash
    
    'show the main form and the about dialog
    Screen.MousePointer = 0
    frmMainForm.Show
    frmAbout.Show vbModal
End Sub