<Serializable()> _
Public Class Item
    Private m_code As String
    Public Property Code() As String
        Get
            Return m_code.Replace("old", "new")
        End Get
        Set(ByVal Value As String)
            m_code = Value.Replace("new", "old")
        End Set
    End Property
End Class