Data Type Functions VisualBasic Script

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