Skip to content

Instantly share code, notes, and snippets.

@jasongorman

jasongorman/Room.cls

Last active April 3, 2019 07:38
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jasongorman/ac7bc54deebb6f03dc48840c7532075b to your computer and use it in GitHub Desktop.
Save jasongorman/ac7bc54deebb6f03dc48840c7532075b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Room.cls
Option Explicit
Private mWidth As Double
Private mLength As Double
Public Property Let Width(ByVal value As Double)
mWidth = value
End Property
Public Property Let Length(ByVal value As Double)
mLength = value
End Property
Public Function Area() As Double
Area = mWidth * mLength
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment