Mega Code Archive
Creating the MyRectangle Class
<![CDATA[
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
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ClassDemo()
Dim objRect As MyRectangle
Set objRect = New MyRectangle
objRect.Height = 5
objRect.Width = 8
Debug.Print "The area of a rectangle measuring " & objRect.Height & _
" x " & objRect.Width & " is " & objRect.Area
Set objRect = Nothing
End Sub
]]>