'------------------------------------------------------------------------------ ' ' This code was generated from a template. ' ' Manual changes to this file may cause unexpected behavior in your application. ' Manual changes to this file will be overwritten if the code is regenerated. ' '------------------------------------------------------------------------------ Imports System Imports System.Collections.Generic Namespace AdvancedPatternsVB Partial Public Class BuildingMf Public Property BuildingId As System.Guid Public Property Name As String Friend Property Value As Decimal Private _Address As AddressMf = New AddressMf Friend Property Address As AddressMf Get Return _Address End Get Private Set(ByVal value As AddressMf) _Address = value End Set End Property Public Overridable Property Offices As ICollection(Of OfficeMf) = New HashSet(Of OfficeMf) Private _MailRooms As ICollection(Of MailRoomMf) = New HashSet(Of MailRoomMf) Friend Property MailRooms As ICollection(Of MailRoomMf) Get Return _MailRooms End Get Private Set(ByVal value As ICollection(Of MailRoomMf)) _MailRooms = value End Set End Property End Class End Namespace