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

Visual Basic Form | 1992-10-21 | 6.9 KB | 230 lines

VERSION 2.00
Begin Form frmGrid
   BackColor       =   &H00FF0000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Grid"
   Height          =   4995
   Icon            =   GRIDFORM.FRX:0000
   Left            =   945
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   4650
   ScaleWidth      =   7965
   Top             =   795
   Width           =   8025
   Begin Grid Grid1
      BackColor       =   &H00C0C0C0&
      Cols            =   2
      ForeColor       =   &H00000000&
      Height          =   3615
      Left            =   165
      Rows            =   2
      TabIndex        =   8
      Top             =   165
      Width           =   7665
   End
   Begin CommandButton cmdCloseForm
      Cancel          =   -1  'True
      Caption         =   "Close Form"
      Height          =   300
      Left            =   3435
      TabIndex        =   7
      Top             =   3870
      Width           =   1155
   End
   Begin PictureBox Picture1
      BackColor       =   &H00C0C0C0&
      Height          =   435
      Left            =   0
      ScaleHeight     =   405
      ScaleWidth      =   7935
      TabIndex        =   0
      Top             =   4230
      Width           =   7965
      Begin Line Line16
         BorderColor     =   &H00FFFFFF&
         X1              =   6690
         X2              =   7800
         Y1              =   330
         Y2              =   330
      End
      Begin Line Line15
         BorderColor     =   &H00FFFFFF&
         X1              =   7815
         X2              =   7815
         Y1              =   105
         Y2              =   330
      End
      Begin Line Line14
         BorderColor     =   &H00808080&
         X1              =   6675
         X2              =   7815
         Y1              =   105
         Y2              =   105
      End
      Begin Line Line13
         BorderColor     =   &H00808080&
         X1              =   6675
         X2              =   6675
         Y1              =   105
         Y2              =   315
      End
      Begin Line Line12
         BorderColor     =   &H00FFFFFF&
         X1              =   5400
         X2              =   5400
         Y1              =   120
         Y2              =   330
      End
      Begin Line Line11
         BorderColor     =   &H00FFFFFF&
         X1              =   4035
         X2              =   5400
         Y1              =   330
         Y2              =   330
      End
      Begin Line Line10
         BorderColor     =   &H00808080&
         X1              =   4020
         X2              =   5400
         Y1              =   105
         Y2              =   105
      End
      Begin Line Line9
         BorderColor     =   &H00808080&
         X1              =   4020
         X2              =   4020
         Y1              =   120
         Y2              =   330
      End
      Begin Line Line8
         BorderColor     =   &H00FFFFFF&
         X1              =   2655
         X2              =   2655
         Y1              =   105
         Y2              =   330
      End
      Begin Line Line7
         BorderColor     =   &H00FFFFFF&
         X1              =   1320
         X2              =   2655
         Y1              =   315
         Y2              =   315
      End
      Begin Line Line6
         BorderColor     =   &H00808080&
         X1              =   1320
         X2              =   2655
         Y1              =   105
         Y2              =   105
      End
      Begin Line Line5
         BorderColor     =   &H00808080&
         X1              =   1320
         X2              =   1320
         Y1              =   120
         Y2              =   330
      End
      Begin Label lblCumInt
         BackColor       =   &H00FF00FF&
         BackStyle       =   0  'Transparent
         Height          =   195
         Left            =   6690
         TabIndex        =   6
         Top             =   135
         Width           =   1110
      End
      Begin Label lblCumAmtSaved
         BackColor       =   &H00FF00FF&
         BackStyle       =   0  'Transparent
         Height          =   195
         Left            =   4020
         TabIndex        =   5
         Top             =   135
         Width           =   1395
      End
      Begin Label lblCumTotal
         BackColor       =   &H00FF00FF&
         BackStyle       =   0  'Transparent
         Height          =   195
         Left            =   1380
         TabIndex        =   4
         Top             =   135
         Width           =   1290
      End
      Begin Label Label3
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C0C0&
         Caption         =   "Total Principal:"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Left            =   2700
         TabIndex        =   3
         Top             =   120
         Width           =   1305
      End
      Begin Label Label2
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C0C0&
         Caption         =   "Total Interest:"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Left            =   5460
         TabIndex        =   2
         Top             =   120
         Width           =   1215
      End
      Begin Label Label1
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C0C0&
         Caption         =   "Total Savings:"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Left            =   90
         TabIndex        =   1
         Top             =   120
         Width           =   1245
      End
      Begin Line Line4
         BorderColor     =   &H00FFFFFF&
         X1              =   7890
         X2              =   7890
         Y1              =   360
         Y2              =   45
      End
      Begin Line Line3
         BorderColor     =   &H00FFFFFF&
         X1              =   30
         X2              =   7890
         Y1              =   360
         Y2              =   360
      End
      Begin Line Line2
         BorderColor     =   &H00808080&
         X1              =   30
         X2              =   30
         Y1              =   45
         Y2              =   360
      End
      Begin Line Line1
         BorderColor     =   &H00808080&
         X1              =   30
         X2              =   7890
         Y1              =   45
         Y2              =   45
      End
   End
Dim LocalGoalType As String
Dim localFormNumb As Variant
Sub cmdCloseForm_Click ()
    Unload Me
End Sub
Sub Form_Activate ()
    ButtonsHide
End Sub
Sub Form_Load ()
    LocalGoalType = GoalType
    localFormNumb = FormNumb
End Sub