Private Sub btnProperties_Click(ByVal sender As Object, ByVal e As _
             System.EventArgs) Handles btnProperties.Click

  Dim MyApartment As New Apartment("6 North Ben Street", 550000, 6000, _
                         12000, APARTMENT, "555-1000")
  Dim MyBuilding As New Commercial("250 Industrial Drive", 320000, 3800, _
                         5800, COMMERCIAL, "")
  Dim MyHome As New Home("2 Ghent Court", 140000, 1300, 3300, HOME, "")
  Dim delta As New Home()

  Console.WriteLine(MyApartment.CallSnowRemoval())  ' Wywołanie
  Console.WriteLine(MyBuilding.CallSnowRemoval())
  Console.WriteLine(MyHome.CallSnowRemoval())
  Console.WriteLine(delta.CallSnowRemoval())

End Sub
