home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / fieldpak / fpdemo2p.frm < prev    next >
Text File  |  1993-11-09  |  1KB  |  52 lines
  1. VERSION 2.00
  2. Begin Form PreviewFrm 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "FieldPack demo program 2 -- Report Preview"
  5.    ClientHeight    =   5520
  6.    ClientLeft      =   255
  7.    ClientTop       =   480
  8.    ClientWidth     =   9150
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   5925
  12.    Left            =   195
  13.    LinkTopic       =   "Form3"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5520
  17.    ScaleWidth      =   9150
  18.    Top             =   135
  19.    Width           =   9270
  20.    Begin CommandButton cmdClose 
  21.       Caption         =   "Close"
  22.       Height          =   375
  23.       Left            =   3900
  24.       TabIndex        =   1
  25.       Top             =   5040
  26.       Width           =   1215
  27.    End
  28.    Begin TextBox txtReportPreview 
  29.       FontBold        =   -1  'True
  30.       FontItalic      =   0   'False
  31.       FontName        =   "Courier New"
  32.       FontSize        =   9.75
  33.       FontStrikethru  =   0   'False
  34.       FontUnderline   =   0   'False
  35.       Height          =   4755
  36.       Left            =   240
  37.       MultiLine       =   -1  'True
  38.       ScrollBars      =   3  'Both
  39.       TabIndex        =   0
  40.       Top             =   180
  41.       Width           =   8715
  42.    End
  43. End
  44. Option Explicit
  45.  
  46. Sub cmdClose_Click ()
  47.  
  48.     Unload PreviewFrm
  49.  
  50. End Sub
  51.  
  52.