Accès à des membres non partagés d'une classe

Bonjour,
Je voudrais savois quelle architecture de code utiliser pour partager des information entre 2 classes suivant l'exemple suivant :
Dans cette exemple, je definie une classe maison avec un volume globale et une classe chambre dans la maison avec un volume aussi.
La chambre a une propriété PourcentageOccupation qui nécéssite l'accès à la propriété VolumeTotale de la maison... Commen faire ?

Merci pour votre aide.

Public

Class Maison

'La maison est définie avec une liste de chambres

PublicReadOnlyProperty Chambres() As List(Of Chambre)

Get

Return oChambres

EndGet

EndProperty

Private oChambres AsNew List(Of Chambre)

'La maison est définie selon son volume

PublicProperty VolumeTotale() AsDouble

Get

Return dVolumeTotale

EndGet

Set(ByVal value AsDouble)

dVolumeTotale = value

EndSet

EndProperty

Private dVolumeTotale AsDouble

'Definition d'une chambre

PublicClass Chambre

'Une chambre est définie selon son volume d'occupation en pourcentage

PublicReadOnlyProperty PourcentageOccupation() AsDouble

Get

Return dVolume / dVolumeTotale

EndGet

EndProperty

'La maison est définie selon son volume

PublicProperty Volume() AsDouble

Get

Return dVolume

EndGet

Set(ByVal value AsDouble)

dVolume = value

EndSet

EndProperty

Private dVolume AsDouble

EndClass

End

Class

 Fiko ;-)

La reponse vous convient pensez > Accepter <

---