' Copyright 2008 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See use restrictions at <your ArcGIS install location>/developerkit/userestrictions.txt.
' 




Option Explicit

Dim m_sPageName As String
Dim m_dRotation As Double
Dim m_dScale As Double
Dim m_dShape As IPolygon

Public Property Get PageName() As String
9:   PageName = m_sPageName
End Property

Public Property Let PageName(RHS As String)
13:   m_sPageName = RHS
End Property

Public Property Get PageRotation() As Double
17:   PageRotation = m_dRotation
End Property

Public Property Let PageRotation(RHS As Double)
21:   m_dRotation = RHS
End Property

Public Property Get PageScale() As Double
25:   PageScale = m_dScale
End Property

Public Property Let PageScale(RHS As Double)
29:   m_dScale = RHS
End Property

Public Property Get PageShape() As IPolygon
33:   Set PageShape = m_dShape
End Property

Public Property Set PageShape(RHS As IPolygon)
37:   Set m_dShape = RHS
End Property