Public Sub New()  ' Konstruktor Apartment bez argumentów

End Sub

' Konstruktor z inicjalizującą listą argumentów 
Public Sub New(ByVal Addr As String, ByVal Price As Double, ByVal Payment _
        As Double, ByVal Taxes As Double, ByVal Bldg As Integer)
  MyBase.Address = Addr
  MyBase.PurchasePrice = Price
  MyBase.MonthlyPayment = Payment
  MyBase.Taxes = Taxes
  MyBase.BuildingType = Bldg
End Sub
