POO en vb.net

Imports System.Collections.Generic

Namespace MethodeCCM
	Public Enum Sexe
		Femme
		Homme
	End Enum

	Public Class Humain

		Public Sub New(isMarrié__1 As Boolean)
			IsMarrié = isMarrié__1
		End Sub

		Public Function NombreEnfants() As Integer
			Return Enfant.Count
		End Function

		#Region "Bloc propriété"

		' Concerne l'humain propre
		Public Property Sexe() As Sexe
			Get
				Return m_Sexe
			End Get
			Set
				m_Sexe = Value
			End Set
		End Property
		Private m_Sexe As Sexe
		Public Property DateDeNaissance() As DateTime
			Get
				Return m_DateDeNaissance
			End Get
			Set
				m_DateDeNaissance = Value
			End Set
		End Property
		Private m_DateDeNaissance As DateTime
		Public Property Nom() As String
			Get
				Return m_Nom
			End Get
			Set
				m_Nom = Value
			End Set
		End Property
		Private m_Nom As String
		Public Property Prénom() As String
			Get
				Return m_Prénom
			End Get
			Set
				m_Prénom = Value
			End Set
		End Property
		Private m_Prénom As String
		Public Property VilleDeNaissance() As String
			Get
				Return m_VilleDeNaissance
			End Get
			Set
				m_VilleDeNaissance = Value
			End Set
		End Property
		Private m_VilleDeNaissance As String
		Public Property DateDeDéces() As DateTime
			Get
				Return m_DateDeDéces
			End Get
			Set
				m_DateDeDéces = Value
			End Set
		End Property
		Private m_DateDeDéces As DateTime
		Public Property VilleEnterrement() As String
			Get
				Return m_VilleEnterrement
			End Get
			Set
				m_VilleEnterrement = Value
			End Set
		End Property
		Private m_VilleEnterrement As String
		Public Property IsMarrié() As Boolean
			Get
				Return m_IsMarrié
			End Get
			Set
				m_IsMarrié = Value
			End Set
		End Property
		Private m_IsMarrié As Boolean

		' Concerne la famille 
		Public Property Mère() As Humain
			Get
				Return m_Mère
			End Get
			Set
				m_Mère = Value
			End Set
		End Property
		Private m_Mère As Humain
		Public Property Père() As Humain
			Get
				Return m_Père
			End Get
			Set
				m_Père = Value
			End Set
		End Property
		Private m_Père As Humain
		Public Property Enfant() As List(Of Humain)
			Get
				Return m_Enfant
			End Get
			Set
				m_Enfant = Value
			End Set
		End Property
		Private m_Enfant As List(Of Humain)
		Public Property Epoux() As Humain
			Get
				Return m_Epoux
			End Get
			Set
				m_Epoux = Value
			End Set
		End Property
		Private m_Epoux As Humain
		Public Property Epouse() As Humain
			Get
				Return m_Epouse
			End Get
			Set
				m_Epouse = Value
			End Set
		End Property
		Private m_Epouse As Humain
		Public Property DateDeMariage() As DateTime
			Get
				Return m_DateDeMariage
			End Get
			Set
				m_DateDeMariage = Value
			End Set
		End Property
		Private m_DateDeMariage As DateTime
		Public Property VilleDeMariage() As String
			Get
				Return m_VilleDeMariage
			End Get
			Set
				m_VilleDeMariage = Value
			End Set
		End Property
		Private m_VilleDeMariage As String

		#End Region


	End Class
End Namespace