VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CShape"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private Extent As CRect

Private Sub Class_Initialize()
    Set Extent = New CRect
End Sub

Private Sub Class_Terminate()
    Set Extent = Nothing
End Sub

Public Property Get Top() As Double
    Top = Extent.Top
End Property
Public Property Get Bottom() As Double
    Bottom = Extent.Bottom
End Property
Public Property Get Left() As Double
    Left = Extent.Left
End Property
Public Property Get Right() As Double
    Right = Extent.Right
End Property