home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  2.9 KB  |  94 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Printer Options"
  4.    ClientHeight    =   1770
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   6765
  8.    Height          =   2175
  9.    Left            =   1035
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   1770
  12.    ScaleWidth      =   6765
  13.    Top             =   1140
  14.    Width           =   6885
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "Reset Number of Copies"
  17.       BeginProperty Font 
  18.          name            =   "MS Sans Serif"
  19.          charset         =   1
  20.          weight          =   700
  21.          size            =   8.25
  22.          underline       =   0   'False
  23.          italic          =   0   'False
  24.          strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   255
  27.       Left            =   3600
  28.       TabIndex        =   3
  29.       Top             =   1080
  30.       Width           =   2655
  31.    End
  32.    Begin VB.CommandButton Command1 
  33.       Caption         =   "Accept Number of Copies"
  34.       BeginProperty Font 
  35.          name            =   "MS Sans Serif"
  36.          charset         =   1
  37.          weight          =   700
  38.          size            =   8.25
  39.          underline       =   0   'False
  40.          italic          =   0   'False
  41.          strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   255
  44.       Left            =   360
  45.       TabIndex        =   2
  46.       Top             =   1080
  47.       Width           =   2415
  48.    End
  49.    Begin VB.TextBox Num_Copies 
  50.       BeginProperty Font 
  51.          name            =   "MS Sans Serif"
  52.          charset         =   1
  53.          weight          =   700
  54.          size            =   8.25
  55.          underline       =   0   'False
  56.          italic          =   0   'False
  57.          strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   375
  60.       Left            =   5400
  61.       TabIndex        =   1
  62.       Text            =   "1"
  63.       Top             =   480
  64.       Width           =   495
  65.    End
  66.    Begin VB.Label Label2 
  67.       Caption         =   "Please enter the number of copies you wish to print :"
  68.       BeginProperty Font 
  69.          name            =   "MS Sans Serif"
  70.          charset         =   1
  71.          weight          =   700
  72.          size            =   8.25
  73.          underline       =   0   'False
  74.          italic          =   0   'False
  75.          strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   255
  78.       Left            =   360
  79.       TabIndex        =   0
  80.       Top             =   480
  81.       Width           =   4815
  82.    End
  83. Attribute VB_Name = "Form2"
  84. Attribute VB_Creatable = False
  85. Attribute VB_Exposed = False
  86. Private Sub Command1_Click()
  87.     Number_Of_Copies = Num_Copies
  88.     Form2.Hide
  89. End Sub
  90. Private Sub Command2_Click()
  91.     Num_Copies.SetFocus
  92.     Num_Copies.Text = "1"
  93. End Sub
  94.