home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch15 / userdoc / userdoc2.dob < prev    next >
Encoding:
Text File  |  1997-02-20  |  2.2 KB  |  76 lines
  1. VERSION 5.00
  2. Begin VB.UserDocument UserDoc2 
  3.    BackColor       =   &H00E0E0E0&
  4.    ClientHeight    =   1680
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   4800
  8.    HScrollSmallChange=   15
  9.    ScaleHeight     =   1680
  10.    ScaleWidth      =   4800
  11.    VScrollSmallChange=   15
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "Show Title Property"
  14.       BeginProperty Font 
  15.          Name            =   "MS Sans Serif"
  16.          Size            =   9.75
  17.          Charset         =   0
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   315
  24.       Left            =   120
  25.       TabIndex        =   1
  26.       Top             =   840
  27.       Width           =   1965
  28.    End
  29.    Begin VB.Label Label2 
  30.       Alignment       =   2  'Center
  31.       Caption         =   "This is the first ActiveX Document"
  32.       BeginProperty Font 
  33.          Name            =   "MS Sans Serif"
  34.          Size            =   9.75
  35.          Charset         =   0
  36.          Weight          =   700
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   285
  42.       Left            =   0
  43.       TabIndex        =   2
  44.       Top             =   270
  45.       Width           =   4815
  46.    End
  47.    Begin VB.Label Label1 
  48.       BorderStyle     =   1  'Fixed Single
  49.       BeginProperty Font 
  50.          Name            =   "MS Sans Serif"
  51.          Size            =   9.75
  52.          Charset         =   0
  53.          Weight          =   400
  54.          Underline       =   0   'False
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.       Height          =   330
  59.       Left            =   2370
  60.       TabIndex        =   0
  61.       Top             =   840
  62.       Width           =   2190
  63.    End
  64. End
  65. Attribute VB_Name = "UserDoc2"
  66. Attribute VB_GlobalNameSpace = False
  67. Attribute VB_Creatable = True
  68. Attribute VB_PredeclaredId = False
  69. Attribute VB_Exposed = True
  70. Option Explicit
  71.  
  72. Private Sub Command1_Click()
  73. Label1.Caption = UDoc.Title
  74. End Sub
  75.  
  76.