home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 4 #14 / CDRTODAY.iso / STATUS.FRM < prev    next >
Text File  |  1997-06-19  |  2KB  |  76 lines
  1. VERSION 2.00
  2. Begin Form StatusDlg 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Copiando"
  6.    ClientHeight    =   2100
  7.    ClientLeft      =   1785
  8.    ClientTop       =   3570
  9.    ClientWidth     =   5850
  10.    ControlBox      =   0   'False
  11.    Height          =   2505
  12.    Left            =   1725
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2100
  18.    ScaleWidth      =   5850
  19.    Top             =   3225
  20.    Width           =   5970
  21.    Begin PictureBox Picture2 
  22.       ForeColor       =   &H00000000&
  23.       Height          =   300
  24.       Left            =   120
  25.       ScaleHeight     =   270
  26.       ScaleWidth      =   5505
  27.       TabIndex        =   1
  28.       Top             =   1440
  29.       Width           =   5535
  30.    End
  31.    Begin PictureBox Picture1 
  32.       AutoRedraw      =   -1  'True
  33.       BorderStyle     =   0  'None
  34.       Height          =   255
  35.       Left            =   120
  36.       ScaleHeight     =   255
  37.       ScaleWidth      =   4455
  38.       TabIndex        =   0
  39.       Top             =   2280
  40.       Width           =   4455
  41.    End
  42.    Begin Label Label1 
  43.       Height          =   495
  44.       Left            =   120
  45.       TabIndex        =   2
  46.       Top             =   240
  47.       Width           =   5535
  48.    End
  49.    Begin Label Label2 
  50.       Height          =   495
  51.       Left            =   120
  52.       TabIndex        =   3
  53.       Top             =   720
  54.       Width           =   5535
  55.    End
  56.    Begin Label total 
  57.       Caption         =   "Total"
  58.       Height          =   255
  59.       Left            =   120
  60.       TabIndex        =   4
  61.       Top             =   1920
  62.       Visible         =   0   'False
  63.       Width           =   855
  64.    End
  65. End
  66.  
  67. Sub Form_Load ()
  68.     Me.Top = 0
  69.     Me.Left = 0
  70. End Sub
  71.  
  72. Sub Form_Unload (Cancel As Integer)
  73.     StatusDlg.total.Tag = 0
  74. End Sub
  75.  
  76.