Public Class PersonName Public FirstName As String Public FamilyName As String Public Sub New(ByVal familyName As String, ByVal firstName As String) Me.FirstName = firstName Me.FamilyName = familyName End Sub Public Sub New() Me.FirstName = "ݒ" Me.FamilyName = "ݒ" End Sub End Class Public Class Person Private m_name As PersonName = New PersonName Private m_age As Integer = 0 Public Property Name() As PersonName Get Return m_name End Get Set(ByVal Value As PersonName) m_name = Value End Set End Property Public Property Age() As Integer Get Return m_age End Get Set(ByVal Value As Integer) m_age = Value End Set End Property Public Sub Dump() Trace.WriteLine(m_name.FamilyName) Trace.WriteLine(m_name.FirstName) Trace.WriteLine(m_age) End Sub End Class