Public Class Item Private doc As XmlDocument = New XmlDocument Public Property Code() As String Get Return doc.SelectSingleNode("/item/code").InnerText End Get Set(ByVal Value As String) doc.SelectSingleNode("/item/code").InnerText = Value End Set End Property Public Sub New() Dim itemElement As XmlElement = doc.CreateElement("item") doc.AppendChild(itemElement) Dim codeElement As XmlElement = doc.CreateElement("code") itemElement.AppendChild(codeElement) End Sub Public Sub New(ByVal filename As String) doc.Load(filename) End Sub Public Sub Save(ByVal filename As String) doc.Save(filename) End Sub End Class