<Serializable()> _
Public Class Person
    Implements ISerializable

    Public Sub GetObjectData(ByVal info As SerializationInfo, ByVal context As StreamingContext) Implements ISerializable.GetObjectData
        info.AddValue("Name", m_name)
        info.AddValue("Address", m_address)
        info.AddValue("Age", Age)
    End Sub

    Public Sub New()
    End Sub

    Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
        m_name = info.GetString("Name")
        m_address = info.GetString("Address")
        Age = info.GetInt32("Age")
    End Sub

    Private m_name As String = "未設定"
    Private m_address As String = "未設定"
    Public Age As Integer = 0
    Private m_temporaryID As String = "未設定"
    Public Property Name() As String
        Get
            Return m_name
        End Get
        Set(ByVal Value As String)
            m_name = Value
        End Set
    End Property
    Public ReadOnly Property Address() As String
        Get
            Return m_address
        End Get
    End Property
    Public Sub SetTemporaryID(ByVal temporaryID As String)
        m_temporaryID = temporaryID
    End Sub
    Public Sub Dump()
        System.Diagnostics.Trace.WriteLine(m_name)
        System.Diagnostics.Trace.WriteLine(m_address)
        System.Diagnostics.Trace.WriteLine(Age)
        System.Diagnostics.Trace.WriteLine(m_temporaryID)
    End Sub
End Class