Liren Large Software Subsidy 10/10.iso/l/l406/4.ddi/MDIFORM.FR_/MDIFORM.bin

Visual Basic Form | 1992-10-21 | 31.1 KB | 959 lines

VERSION 2.00
Begin MDIForm frmMDI
   Caption         =   "Savings - Untitled"
   Height          =   2940
   Icon            =   MDIFORM.FRX:0000
   Left            =   870
   LinkTopic       =   "MDIForm1"
   Top             =   1065
   Width           =   8475
   Begin PictureBox Picture1
      Align           =   1  'Align Top
      Height          =   30
      Left            =   0
      ScaleHeight     =   0
      ScaleWidth      =   8385
      TabIndex        =   3
      Top             =   450
      Width           =   8415
   End
   Begin PictureBox Picture2
      Align           =   2  'Align Bottom
      BackColor       =   &H00C0C0C0&
      Height          =   405
      Left            =   0
      ScaleHeight     =   375
      ScaleMode       =   0  'User
      ScaleWidth      =   8385
      TabIndex        =   1
      Top             =   1905
      Width           =   8415
      Begin Line Line4
         BorderColor     =   &H00FFFFFF&
         X1              =   5805
         X2              =   5805
         Y1              =   45
         Y2              =   345
      End
      Begin Line Line3
         BorderColor     =   &H00FFFFFF&
         X1              =   105
         X2              =   5805
         Y1              =   330
         Y2              =   330
      End
      Begin Line Line2
         BorderColor     =   &H00808080&
         X1              =   105
         X2              =   105
         Y1              =   45
         Y2              =   345
      End
      Begin Line Line1
         BorderColor     =   &H00808080&
         X1              =   120
         X2              =   5820
         Y1              =   45
         Y2              =   45
      End
      Begin Label lblStatus
         BackColor       =   &H00FF00FF&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FF0000&
         Height          =   225
         Left            =   135
         TabIndex        =   2
         Top             =   90
         Width           =   5655
      End
   End
   Begin PictureBox picToolbar
      Align           =   1  'Align Top
      BackColor       =   &H00C0C0C0&
      Height          =   450
      Left            =   0
      ScaleHeight     =   420
      ScaleMode       =   0  'User
      ScaleWidth      =   8385
      TabIndex        =   0
      Top             =   0
      Width           =   8415
      Begin Image imgComGrid
         Height          =   255
         Left            =   3930
         Picture         =   MDIFORM.FRX:0302
         Top             =   75
         Visible         =   0   'False
         Width           =   285
      End
      Begin Image imgGrid
         Height          =   240
         Left            =   3555
         Picture         =   MDIFORM.FRX:0448
         Top             =   90
         Visible         =   0   'False
         Width           =   240
      End
      Begin Image imgComGraph
         Height          =   255
         Left            =   2970
         Picture         =   MDIFORM.FRX:0542
         Top             =   75
         Visible         =   0   'False
         Width           =   270
      End
      Begin Image imgGraph
         Height          =   255
         Left            =   2595
         Picture         =   MDIFORM.FRX:0688
         Top             =   75
         Visible         =   0   'False
         Width           =   270
      End
      Begin Image imgNewGen
         Height          =   225
         Left            =   1965
         Picture         =   MDIFORM.FRX:07CE
         Top             =   90
         Width           =   285
      End
      Begin Image imgNewCol
         Height          =   270
         Left            =   1575
         Picture         =   MDIFORM.FRX:08FC
         Top             =   75
         Width           =   240
      End
      Begin Image imgFileSave
         Height          =   240
         Left            =   960
         Picture         =   MDIFORM.FRX:0A06
         Top             =   90
         Width           =   255
      End
      Begin Image imgFileOpen
         Height          =   225
         Left            =   555
         Picture         =   MDIFORM.FRX:0B40
         Top             =   75
         Width           =   270
      End
      Begin Image imgFileNew
         Height          =   225
         Left            =   195
         Picture         =   MDIFORM.FRX:0C6E
         Top             =   90
         Width           =   225
      End
      Begin Line Line40
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   3900
         X2              =   3900
         Y1              =   75
         Y2              =   360
      End
      Begin Line Line39
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   3900
         X2              =   4215
         Y1              =   60
         Y2              =   60
      End
      Begin Line Line38
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   3915
         X2              =   4215
         Y1              =   360
         Y2              =   360
      End
      Begin Line Line37
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   4230
         X2              =   4230
         Y1              =   75
         Y2              =   360
      End
      Begin Line Line36
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   3525
         X2              =   3525
         Y1              =   75
         Y2              =   360
      End
      Begin Line Line35
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   3525
         X2              =   3840
         Y1              =   60
         Y2              =   60
      End
      Begin Line Line34
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   3540
         X2              =   3840
         Y1              =   360
         Y2              =   360
      End
      Begin Line Line33
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   3855
         X2              =   3855
         Y1              =   75
         Y2              =   360
      End
      Begin Shape Shape9
         Height          =   360
         Left            =   3870
         Top             =   30
         Visible         =   0   'False
         Width           =   390
      End
      Begin Shape Shape8
         Height          =   360
         Left            =   3495
         Top             =   30
         Visible         =   0   'False
         Width           =   390
      End
      Begin Shape Shape7
         Height          =   360
         Left            =   2910
         Top             =   30
         Visible         =   0   'False
         Width           =   390
      End
      Begin Shape Shape6
         Height          =   360
         Left            =   2535
         Top             =   30
         Visible         =   0   'False
         Width           =   390
      End
      Begin Shape Shape5
         Height          =   360
         Left            =   1905
         Top             =   30
         Width           =   390
      End
      Begin Shape Shape4
         Height          =   360
         Left            =   1515
         Top             =   30
         Width           =   390
      End
      Begin Shape Shape3
         Height          =   360
         Left            =   900
         Top             =   30
         Width           =   390
      End
      Begin Shape Shape2
         Height          =   360
         Left            =   510
         Top             =   30
         Width           =   390
      End
      Begin Shape Shape1
         Height          =   360
         Left            =   135
         Top             =   30
         Width           =   375
      End
      Begin Line Line32
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   3270
         X2              =   3270
         Y1              =   75
         Y2              =   360
      End
      Begin Line Line31
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   2955
         X2              =   3255
         Y1              =   360
         Y2              =   360
      End
      Begin Line Line30
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   2940
         X2              =   3255
         Y1              =   60
         Y2              =   60
      End
      Begin Line Line29
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   2940
         X2              =   2940
         Y1              =   75
         Y2              =   360
      End
      Begin Line Line28
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   2890
         X2              =   2890
         Y1              =   75
         Y2              =   375
      End
      Begin Line Line27
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   2580
         X2              =   2865
         Y1              =   360
         Y2              =   360
      End
      Begin Line Line26
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   2550
         X2              =   2865
         Y1              =   60
         Y2              =   60
      End
      Begin Line Line25
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         Visible         =   0   'False
         X1              =   2550
         X2              =   2550
         Y1              =   75
         Y2              =   360
      End
      Begin Line Line24
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         X1              =   2265
         X2              =   2265
         Y1              =   75
         Y2              =   360
      End
      Begin Line Line23
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         X1              =   1965
         X2              =   2265
         Y1              =   360
         Y2              =   360
      End
      Begin Line Line22
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         X1              =   1950
         X2              =   2265
         Y1              =   60
         Y2              =   60
      End
      Begin Line Line21
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         X1              =   1950
         X2              =   1950
         Y1              =   60
         Y2              =   350
      End
      Begin Line Line20
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         X1              =   1545
         X2              =   1545
         Y1              =   60
         Y2              =   345
      End
      Begin Line Line19
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         X1              =   1545
         X2              =   1875
         Y1              =   60
         Y2              =   60
      End
      Begin Line Line18
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         X1              =   1560
         X2              =   1875
         Y1              =   360
         Y2              =   360
      End
      Begin Line Line17
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         X1              =   1875
         X2              =   1875
         Y1              =   75
         Y2              =   375
      End
      Begin Line Line16
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         X1              =   1260
         X2              =   1260
         Y1              =   75
         Y2              =   375
      End
      Begin Line Line15
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         X1              =   945
         X2              =   1260
         Y1              =   360
         Y2              =   360
      End
      Begin Line Line14
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         X1              =   930
         X2              =   1245
         Y1              =   60
         Y2              =   60
      End
      Begin Line Line13
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         X1              =   930
         X2              =   930
         Y1              =   60
         Y2              =   330
      End
      Begin Line Line12
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         X1              =   540
         X2              =   540
         Y1              =   75
         Y2              =   345
      End
      Begin Line Line11
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         X1              =   555
         X2              =   855
         Y1              =   60
         Y2              =   60
      End
      Begin Line Line10
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         X1              =   570
         X2              =   855
         Y1              =   360
         Y2              =   360
      End
      Begin Line Line9
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         X1              =   870
         X2              =   870
         Y1              =   75
         Y2              =   360
      End
      Begin Line Line8
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         X1              =   480
         X2              =   480
         Y1              =   60
         Y2              =   360
      End
      Begin Line Line7
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         X1              =   165
         X2              =   480
         Y1              =   360
         Y2              =   360
      End
      Begin Line Line6
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         X1              =   180
         X2              =   480
         Y1              =   60
         Y2              =   60
      End
      Begin Line Line5
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         X1              =   165
         X2              =   165
         Y1              =   75
         Y2              =   360
      End
   End
   Begin Menu mnuFile
      Caption         =   "&File"
      Begin Menu mnuNewCGoal
         Caption         =   "New &College Goal..."
      End
      Begin Menu mnuNewGGoal
         Caption         =   "New &General Goal..."
      End
      Begin Menu mnuDash
         Caption         =   "-"
      End
      Begin Menu mnuNewSPlan
         Caption         =   "&New Savings Plan"
      End
      Begin Menu mnuOpenSPlan
         Caption         =   "&Open Savings Plan..."
      End
      Begin Menu mnuSaveSPlan
         Caption         =   "&Save Savings Plan"
      End
      Begin Menu mnuSaveAsSPlan
         Caption         =   "Save Savings Plan &As..."
      End
      Begin Menu mnuDash3
         Caption         =   "-"
      End
      Begin Menu mnuExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu mnuOpt
      Caption         =   "&Options"
      Begin Menu mnuToolbar
         Caption         =   "&Toolbar"
         Checked         =   -1  'True
      End
   End
   Begin Menu mnuWindow
      Caption         =   "&Window"
      WindowList      =   -1  'True
      Begin Menu mnuCascade
         Caption         =   "&Cascade"
      End
      Begin Menu mnuArrangeIcons
         Caption         =   "&Arrange Icons"
      End
   End
   Begin Menu mnuHelp
      Caption         =   "&Help"
      Begin Menu mnuHelpInstructions
         Caption         =   "&Instructions"
      End
      Begin Menu mnuHelpDash
         Caption         =   "-"
      End
      Begin Menu mnuHelpAbout
         Caption         =   "&About..."
      End
   End
Sub imgComGraph_Click ()
    FormSelectProc "Graph"
End Sub
Sub imgComGraph_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line29.BorderColor = QBColor(8)
    Line30.BorderColor = QBColor(8)
    Line31.Visible = False
    Line32.Visible = False
    imgComGraph.Left = 2970
    imgComGraph.Top = 90
End Sub
Sub imgComGraph_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Change status bar as mouse pointer passes over
    lblStatus.Caption = "Create Graph From Combined Goals"
End Sub
Sub imgComGraph_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line29.BorderColor = QBColor(15)
    Line30.BorderColor = QBColor(15)
    Line31.Visible = True
    Line32.Visible = True
    imgComGraph.Left = 2955
    imgComGraph.Top = 75
End Sub
Sub imgComGrid_Click ()
    FormSelectProc "Grid"
End Sub
Sub imgComGrid_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line39.BorderColor = QBColor(8)
    Line40.BorderColor = QBColor(8)
    Line37.Visible = False
    Line38.Visible = False
    imgComGrid.Left = 3930
    imgComGrid.Top = 105
End Sub
Sub imgComGrid_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Change status bar as mouse pointer passes over
    lblStatus.Caption = "Create Grid From Combined Goals"
End Sub
Sub imgComGrid_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line39.BorderColor = QBColor(15)
    Line40.BorderColor = QBColor(15)
    Line37.Visible = True
    Line38.Visible = True
    imgComGrid.Left = 3915
    imgComGrid.Top = 90
End Sub
Sub imgFileNew_Click ()
    If NeedToSave Then CheckToSave
    If SelectCancel = True Then
        Exit Sub
    End If
    NewSavePlan
    MsgBox "Choose New College Goal or New General Goal"
End Sub
Sub imgFileNew_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line5.BorderColor = QBColor(8)
    Line6.BorderColor = QBColor(8)
    Line7.Visible = False
    Line8.Visible = False
    imgFileNew.Left = 225
    imgFileNew.Top = 105
End Sub
Sub imgFileNew_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Change status bar as mouse pointer passes over
    lblStatus.Caption = "Clear Current Savings Plan and Start New Savings Plan"
End Sub
Sub imgFileNew_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line5.BorderColor = QBColor(15)
    Line6.BorderColor = QBColor(15)
    Line7.Visible = True
    Line8.Visible = True
    imgFileNew.Left = 210
    imgFileNew.Top = 90
End Sub
Sub imgFileOpen_Click ()
    If NeedToSave Then CheckToSave
    If SelectCancel = True Then
        Exit Sub
    End If
    NewSavePlan
    FOpenProc
End Sub
Sub imgFileOpen_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line11.BorderColor = QBColor(8)
    Line12.BorderColor = QBColor(8)
    Line9.Visible = False
    Line10.Visible = False
    imgFileOpen.Left = 585
    imgFileOpen.Top = 105
End Sub
Sub imgFileOpen_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Change status bar as mouse pointer passes over
    lblStatus.Caption = "Open Existing Savings Plan"
End Sub
Sub imgFileOpen_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line11.BorderColor = QBColor(15)
    Line12.BorderColor = QBColor(15)
    Line9.Visible = True
    Line10.Visible = True
    imgFileOpen.Left = 570
    imgFileOpen.Top = 90
End Sub
Sub imgFileSave_Click ()
    For i = 0 To forms.Count - 1
        If forms(i).Tag = "College" Or forms(i).Tag = "General" Then
            SavePlanNeeded = True
        End If
    Next
    If SavePlanNeeded Then SavePlan
End Sub
Sub imgFileSave_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line13.BorderColor = QBColor(8)
    Line14.BorderColor = QBColor(8)
    Line15.Visible = False
    Line16.Visible = False
    imgFileSave.Left = 960
    imgFileSave.Top = 105
End Sub
Sub imgFileSave_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Change status bar as mouse pointer passes over
    lblStatus.Caption = "Save Current Savings Plan"
End Sub
Sub imgFileSave_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line13.BorderColor = QBColor(15)
    Line14.BorderColor = QBColor(15)
    Line15.Visible = True
    Line16.Visible = True
    imgFileSave.Left = 945
    imgFileSave.Top = 90
End Sub
Sub imgGraph_Click ()
    'Graph current goal
    If TypeOf activeform Is frmCollege Then
        activeform.CmdGraph.Value = -1
    ElseIf TypeOf activeform Is frmGeneral Then
        activeform.CmdGraph.Value = -1
    ElseIf TypeOf activeform Is frmGrid Then
        activeform.CmdGraph.Value = -1
    End If
End Sub
Sub imgGraph_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line25.BorderColor = QBColor(8)
    Line26.BorderColor = QBColor(8)
    Line27.Visible = False
    Line28.Visible = False
    imgGraph.Left = 2595
    imgGraph.Top = 90
End Sub
Sub imgGraph_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Change status bar as mouse pointer passes over
    lblStatus.Caption = "Create Graph From Existing Goal"
End Sub
Sub imgGraph_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line25.BorderColor = QBColor(15)
    Line26.BorderColor = QBColor(15)
    Line27.Visible = True
    Line28.Visible = True
    imgGraph.Left = 2580
    imgGraph.Top = 75
End Sub
Sub imgGrid_Click ()
    'Grid current goal
    If TypeOf activeform Is frmCollege Then
        activeform.CmdGrid.Value = -1
    ElseIf TypeOf activeform Is frmGeneral Then
        activeform.CmdGrid.Value = -1
    End If
End Sub
Sub imgGrid_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line35.BorderColor = QBColor(8)
    Line36.BorderColor = QBColor(8)
    Line33.Visible = False
    Line34.Visible = False
    imgGrid.Left = 3570
    imgGrid.Top = 105
End Sub
Sub imgGrid_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Change status bar as mouse pointer passes over
    lblStatus.Caption = "Create Grid From Existing Goal"
End Sub
Sub imgGrid_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line35.BorderColor = QBColor(15)
    Line36.BorderColor = QBColor(15)
    Line33.Visible = True
    Line34.Visible = True
    imgGrid.Left = 3555
    imgGrid.Top = 90
End Sub
Sub imgNewCol_Click ()
    NewCGoal
End Sub
Sub imgNewCol_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line19.BorderColor = QBColor(8)
    Line20.BorderColor = QBColor(8)
    Line17.Visible = False
    Line18.Visible = False
    imgNewCol.Left = 1590
    imgNewCol.Top = 90
End Sub
Sub imgNewCol_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Change status bar as mouse pointer passes over
    lblStatus.Caption = "Add New College Goal"
End Sub
Sub imgNewCol_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line19.BorderColor = QBColor(15)
    Line20.BorderColor = QBColor(15)
    Line17.Visible = True
    Line18.Visible = True
    imgNewCol.Left = 1575
    imgNewCol.Top = 75
End Sub
Sub imgNewGen_Click ()
    NewGGoal
End Sub
Sub imgNewGen_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line21.BorderColor = QBColor(8)
    Line22.BorderColor = QBColor(8)
    Line23.Visible = False
    Line24.Visible = False
    imgNewGen.Left = 1980
    imgNewGen.Top = 105
End Sub
Sub imgNewGen_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Change status bar as mouse pointer passes over
    lblStatus.Caption = "Add New General Goal"
End Sub
Sub imgNewGen_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the button bitmap and change color of lines
    'to make the buttons look like it is being pushed
    Line21.BorderColor = QBColor(15)
    Line22.BorderColor = QBColor(15)
    Line23.Visible = True
    Line24.Visible = True
    imgNewGen.Left = 1965
    imgNewGen.Top = 90
End Sub
Sub MDIForm_Load ()
    NeedToSave = False
    ' Size MDI form
    frmMDI.WindowState = 0
    Width = Screen.Width - (1 / 6 * Screen.Width)
    Height = Screen.Height - (1 / 6 * Screen.Height)
    Left = Screen.Width / 2 - Width / 2
    Top = Screen.Height / 2 - Height / 2
    mnuSaveAsSPlan.Enabled = False
    mnuSaveSPlan.Enabled = False
    ' Set Helpfile path to savings project directory
    App.HelpFile = App.Path + "\SAVINGS.HLP"
End Sub
Sub MDIForm_QueryUnload (Cancel As Integer, UnloadMode As Integer)
    'Ask to save the savings plan if changes have been made
    SelectCancel = False
    If NeedToSave Then
        AskCheck = False
        For i = 0 To forms.Count - 1
            If forms(i).Tag = "College" Or forms(i).Tag = "General" Then
                AskCheck = True
            End If
        Next
        If AskCheck Then
            Dim Msg, NL
            Dim Response As Integer
            NL = Chr$(10) & Chr$(13)
            Msg = "The information in this savings has been changed."
            Msg = Msg & NL
            Msg = Msg & "Do you want to save the changes?"
            Response = MsgBox(Msg, 51, "Visual Basic Savings Planner")
            Select Case Response
            Case 2  'User selects Cancel, cancel the unload
                Cancel = True
                SelectCancel = True
            Case 6  'User select Yes, save the savings plan
                SavePlan    'Invoke the Save procedure
                SelectCancel = False
            Case 7  'User selects No, Ok to unload
                Cancel = False
                SelectCancel = False
            End Select
        End If
    End If
    R = WinHelp(hWnd, App.HelpFile, HELP_QUIT, 0)
End Sub
Sub mnuArrangeIcons_Click ()
    'Arrange all iconized child forms
    frmMDI.Arrange ARRANGE_ICONS
End Sub
Sub mnuCascade_Click ()
    'Cascade child forms
    frmMDI.Arrange CASCADE
End Sub
Sub mnuExit_Click ()
    'When the user chooses File Exit in an MDI Application, unload
    'the MDI form to invoke the QueryUnload event for every open child.
    Unload frmMDI
    End
End Sub
Sub mnuHelpAbout_Click ()
    'Display About Dialog
    frmAbout.Show 1
End Sub
Sub mnuHelpInstructions_Click ()
    ' Display Help
    R = WinHelp(hWnd, App.HelpFile, HELP_INDEX, 0)
End Sub
Sub mnuNewCGoal_Click ()
    'New College Goal
    NewCGoal
End Sub
Sub mnuNewGGoal_Click ()
    'New General Goal
    NewGGoal
End Sub
Sub mnuNewSPlan_Click ()
    If NeedToSave Then CheckToSave
    If SelectCancel = True Then
        Exit Sub
    End If
    NewSavePlan
    MsgBox "Choose New College Goal or New General Goal"
End Sub
Sub mnuOpenSPlan_Click ()
    If NeedToSave Then CheckToSave
    If SelectCancel = True Then
        Exit Sub
    End If
    NewSavePlan
    FOpenProc
End Sub
Sub mnuSaveAsSPlan_Click ()
    For i = 0 To forms.Count - 1
        If forms(i).Tag = "College" Or forms(i).Tag = "General" Then
            SavePlanNeeded = True
        End If
    Next
    If SavePlanNeeded Then SaveAsPlan
End Sub
Sub mnuSaveSPlan_Click ()
    For i = 0 To forms.Count - 1
        If forms(i).Tag = "College" Or forms(i).Tag = "General" Then
            SavePlanNeeded = True
        End If
    Next
    If SavePlanNeeded Then SavePlan
End Sub
Sub mnuToolbar_Click ()
    OptionsToolbarProc Me
End Sub
Sub picToolbar_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Blank status bar as mouse pointer passes over
    lblStatus.Caption = ""
End Sub
Sub Picture1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Blank status bar as mouse moves over
    lblStatus.Caption = ""
End Sub