home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch02 / calcs / calcs.frm (.txt) next >
Encoding:
Visual Basic Form  |  1996-05-18  |  3.0 KB  |  98 lines
  1. VERSION 5.00
  2. Begin VB.Form Calculators 
  3.    Caption         =   "Mastering VB6"
  4.    ClientHeight    =   3675
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3675
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton bttnExit 
  13.       Caption         =   "E X I T"
  14.       BeginProperty Font 
  15.          Name            =   "Verdana"
  16.          Size            =   12
  17.          Charset         =   0
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   570
  24.       Left            =   780
  25.       TabIndex        =   3
  26.       Top             =   2940
  27.       Width           =   2820
  28.    End
  29.    Begin VB.CommandButton bttnGame 
  30.       Caption         =   "Play a Game"
  31.       BeginProperty Font 
  32.          Name            =   "Verdana"
  33.          Size            =   9.75
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   570
  41.       Left            =   780
  42.       TabIndex        =   2
  43.       Top             =   1755
  44.       Width           =   2820
  45.    End
  46.    Begin VB.CommandButton bttnLoan 
  47.       Caption         =   "Loan Calculator"
  48.       BeginProperty Font 
  49.          Name            =   "Verdana"
  50.          Size            =   9.75
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   570
  58.       Left            =   780
  59.       TabIndex        =   1
  60.       Top             =   1005
  61.       Width           =   2820
  62.    End
  63.    Begin VB.CommandButton bttnMath 
  64.       Caption         =   "Math Calculator"
  65.       BeginProperty Font 
  66.          Name            =   "Verdana"
  67.          Size            =   9.75
  68.          Charset         =   0
  69.          Weight          =   400
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       Height          =   570
  75.       Left            =   780
  76.       TabIndex        =   0
  77.       Top             =   270
  78.       Width           =   2820
  79.    End
  80. Attribute VB_Name = "Calculators"
  81. Attribute VB_GlobalNameSpace = False
  82. Attribute VB_Creatable = False
  83. Attribute VB_PredeclaredId = True
  84. Attribute VB_Exposed = False
  85. Private Sub bttnExit_Click()
  86.     End
  87. End Sub
  88. Private Sub bttnGame_Click()
  89. bttnGame.Left = Rnd() * (Calculators.Width - bttnGame.Width)
  90. bttnGame.Top = Rnd() * (Calculators.Height - bttnGame.Height)
  91. End Sub
  92. Private Sub bttnLoan_Click()
  93.     LoanCalc.Show
  94. End Sub
  95. Private Sub bttnMath_Click()
  96.     MathCalc.Show
  97. End Sub
  98.