Option Compare Database
Option Explicit
Private dblHeight As Double
Private dblWidth As Double
Public Property Let Height(dblParam As Double)
dblHeight = dblParam
End Property
Public Property Let Width(dblParam As Double)
dblWidth = dblParam
End Property
Public Property Get Height() As Double
Height = dblHeight
End Property
Public Property Get Width() As Double
Width = dblWidth
End Property
Public Property Get Area() As Double
Area = (dblHeight * dblWidth) / 2
End Property
Public Sub DoubleSides()
dblHeight = dblHeight * 2
dblWidth = dblWidth * 2
End Sub