Public Class Person 
  Inherits BusinessEntity(of Person )
 
protected overrides sub AddValidatioRules()
  ValidationRules.Add( new StringRequiredRule("LastName"))
...
end sub
 
 
End Class

Dim kunde as New Person
kunde.Firstname ="Max"
kunde.Lastname = "Mustermann"
 
Dim adress as Adress = kunde.Adresses.Add( new Adress)
adress.AdressType = Adresstype.BillingAdress
adress.Street=...
 
adress = kunde.Adresses.Add( new Adress)
adress.AdressTyoe = AdressType.DeliveryAdress
adress.Street=...
 
Session.Persist( kunde )