Mega Code Archive

 

Categories / VisualBasic Script / Data Type Functions

 

Rectangle class

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