Public Class Item
    Private m_code As String
    Public Property Code() As String
        Get
            Return m_code
        End Get
        Set(ByVal Value As String)
            m_code = Value
        End Set
    End Property

    Public Sub New()
    End Sub

    Public Sub New(ByVal filename As String)
        Dim doc As XmlDocument = New XmlDocument
        doc.Load(filename)
        Code = doc.SelectSingleNode("/item/code").InnerText
    End Sub

    Public Sub Save(ByVal filename As String)
        Dim doc As XmlDocument = New XmlDocument
        Dim itemElement As XmlElement = doc.CreateElement("item")
        doc.AppendChild(itemElement)
        Dim codeElement As XmlElement = doc.CreateElement("code")
        itemElement.AppendChild(codeElement)
        codeElement.InnerText = Code
        doc.Save(filename)
    End Sub
End Class