home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / ERROR.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-03-27  |  2.2 KB  |  74 lines
  1. VERSION 5.00
  2. Begin VB.Form ErrorFrm 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Error"
  7.    ClientHeight    =   2625
  8.    ClientLeft      =   1095
  9.    ClientTop       =   1485
  10.    ClientWidth     =   7335
  11.    BeginProperty Font 
  12.       Name            =   "MS Sans Serif"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    LinkTopic       =   "Form4"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    PaletteMode     =   1  'UseZOrder
  25.    ScaleHeight     =   2625
  26.    ScaleWidth      =   7335
  27.    Begin VB.PictureBox Picture1 
  28.       Appearance      =   0  'Flat
  29.       BackColor       =   &H00C0C0C0&
  30.       ForeColor       =   &H80000008&
  31.       Height          =   1335
  32.       Left            =   990
  33.       ScaleHeight     =   1305
  34.       ScaleWidth      =   5535
  35.       TabIndex        =   1
  36.       Top             =   330
  37.       Width           =   5565
  38.       Begin VB.Label ErrorText 
  39.          Appearance      =   0  'Flat
  40.          BackColor       =   &H00C0C0C0&
  41.          Caption         =   "Label1"
  42.          ForeColor       =   &H80000008&
  43.          Height          =   1320
  44.          Left            =   30
  45.          TabIndex        =   2
  46.          Top             =   0
  47.          Width           =   5490
  48.       End
  49.    End
  50.    Begin VB.CommandButton Command1 
  51.       Appearance      =   0  'Flat
  52.       BackColor       =   &H00808080&
  53.       Caption         =   "OK"
  54.       Default         =   -1  'True
  55.       Height          =   495
  56.       Left            =   2910
  57.       TabIndex        =   0
  58.       Top             =   1935
  59.       Width           =   1575
  60.    End
  61. Attribute VB_Name = "ErrorFrm"
  62. Attribute VB_GlobalNameSpace = False
  63. Attribute VB_Creatable = False
  64. Attribute VB_PredeclaredId = True
  65. Attribute VB_Exposed = False
  66. Private Sub Command1_Click()
  67.   Unload ErrorFrm
  68. End Sub
  69. Private Sub Form_Load()
  70.   If ErrorMessage = VBXERROR Then
  71.     ErrorText.Caption = Error$
  72.   End If
  73. End Sub
  74.