Content Supported by Sourcelens Consulting

VERSION 5.00
Begin VB.UserDocument SecndDoc 
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4800
   HScrollSmallChange=   225
   ScaleHeight     =   3600
   ScaleWidth      =   4800
   VScrollSmallChange=   225
   Begin VB.CommandButton cmdGoBack 
      Caption         =   "Go Back"
      Height          =   495
      Left            =   240
      TabIndex        =   1
      Top             =   960
      Width           =   1215
   End
   Begin VB.Label lblCaption 
      Caption         =   "SecndDoc"
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   3975
   End
End
Attribute VB_Name = "SecndDoc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private Sub cmdGoBack_Click()
    ' Go back to the FristDoc ActiveX document.
   UserDocument.Hyperlink.GoBack
End Sub

Private Sub UserDocument_Show()
    ' Test to see if the global variable is set
    ' to a reference. If it is, then set the
    ' Caption property using the strDocProp property.
    ' IMPORTANT: release the reference afterwards
    ' by setting it to the keyword "Nothing."
    If Not gFirstDoc Is Nothing Then
       lblCaption.Caption = gFirstDoc.strDocProp
       Set gFirstDoc = Nothing
    End If
End Sub