VERSION 5.00
Begin VB.UserDocument UserDoc1
BackColor = &H00E0E0E0&
ClientHeight = 1935
ClientLeft = 0
ClientTop = 0
ClientWidth = 5265
HScrollSmallChange= 225
ScaleHeight = 1935
ScaleWidth = 5265
VScrollSmallChange= 225
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2595
TabIndex = 1
Text = "Text1"
Top = 780
Width = 2460
End
Begin VB.CommandButton Command1
Caption = "Show Second Document"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 2580
TabIndex = 0
Top = 1335
Width = 2460
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "This is the first ActiveX Document"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 240
TabIndex = 3
Top = 90
Width = 4815
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Set Title Property"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 345
TabIndex = 2
Top = 840
Width = 1860
End
End
Attribute VB_Name = "UserDoc1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Dim m_Title
Public Property Get Title() As String
Title = m_Title
End Property
Public Property Let Title(ByVal vNewValue As String)
m_Title = vNewValue
End Property
Private Sub Text1_Change()
Set UDoc = Me
UDoc.Title = Text1.Text
End Sub
Private Sub UserDocument_ReadProperties(PropBag As PropertyBag)
m_Title = PropBag.ReadProperty("Title", "")
End Sub
Private Sub UserDocument_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Title", m_Title, ""
End Sub
Private Sub Command1_Click()
UserDocument.Hyperlink.NavigateTo "c: