home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / printpro / printpro.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  1.6 KB  |  53 lines
  1. VERSION 2.00
  2. Begin Form PrintProcess 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Printing Status"
  5.    ClientHeight    =   735
  6.    ClientLeft      =   1380
  7.    ClientTop       =   2355
  8.    ClientWidth     =   7245
  9.    ControlBox      =   0   'False
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   0   'False
  12.    FontName        =   "MS Sans Serif"
  13.    FontSize        =   12
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    ForeColor       =   &H00008000&
  17.    Height          =   1140
  18.    Left            =   1320
  19.    LinkMode        =   1  'Source
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   735
  24.    ScaleWidth      =   7245
  25.    Top             =   2010
  26.    Width           =   7365
  27.    Begin Label PrintMessage 
  28.       Alignment       =   2  'Center
  29.       FontBold        =   -1  'True
  30.       FontItalic      =   0   'False
  31.       FontName        =   "MS Sans Serif"
  32.       FontSize        =   12
  33.       FontStrikethru  =   0   'False
  34.       FontUnderline   =   0   'False
  35.       ForeColor       =   &H000000FF&
  36.       Height          =   375
  37.       Left            =   120
  38.       TabIndex        =   0
  39.       Top             =   120
  40.       Width           =   6975
  41.    End
  42. Sub Form_Load ()
  43.        PrintProcess.Show 0
  44.        PrintMessage.Caption = PrintMsg
  45. End Sub
  46. Sub PrintMessage_Change ()
  47.        PrintMessage.Caption = PrintMsg
  48.        MsgBoxMsg = MsgBox("Okay to Proceed?", 1, " ")
  49. End Sub
  50. Sub SetFocusDemo ()
  51.      PrintProcess.SetFocus
  52. End Sub
  53.