home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Calculator213966162009.psc / Forms / frmCalculator.frm next >
Text File  |  2008-08-30  |  2KB  |  59 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCalculator 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Calculator"
  6.    ClientHeight    =   6492
  7.    ClientLeft      =   36
  8.    ClientTop       =   420
  9.    ClientWidth     =   7932
  10.    FillStyle       =   0  'Solid
  11.    BeginProperty Font 
  12.       Name            =   "Arial"
  13.       Size            =   10.8
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "frmCalculator.frx":0000
  21.    KeyPreview      =   -1  'True
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    ScaleHeight     =   541
  26.    ScaleMode       =   3  'Pixel
  27.    ScaleWidth      =   661
  28.    StartUpPosition =   2  'CenterScreen
  29.    Begin Caclulator.Calculator Calculator1 
  30.       Height          =   4656
  31.       Left            =   840
  32.       TabIndex        =   0
  33.       Top             =   960
  34.       Width           =   6300
  35.       _ExtentX        =   11113
  36.       _ExtentY        =   8213
  37.       ReceiptVisible  =   -1  'True
  38.    End
  39. End
  40. Attribute VB_Name = "frmCalculator"
  41. Attribute VB_GlobalNameSpace = False
  42. Attribute VB_Creatable = False
  43. Attribute VB_PredeclaredId = True
  44. Attribute VB_Exposed = False
  45. Option Explicit
  46.  
  47. Private Sub Calculator1_Closing(Value As String)
  48.  
  49.    Calculator1.Visible = False
  50.  
  51. End Sub
  52.  
  53. Private Sub Form_Click()
  54.  
  55.    If Not Calculator1.Visible Then Calculator1.Visible = True
  56.  
  57. End Sub
  58.  
  59.