Public Class Settings
 
    Public Class Language
 
        Sub New()
 
        End Sub
 
        Sub New(ByVal name As String, ByVal document As String)
            Me.mName = name
            Me.mDocument = document
        End Sub
 
        Private mName As String = String.Empty
        Private mDocument As String = String.Empty
 
        Public Property Name() As String
            Get
                Return mName
            End Get
            Set(ByVal value As String)
                mName = value
            End Set
        End Property
 
        Public Property Document() As String
            Get
                Return mDocument
            End Get
            Set(ByVal value As String)
                mDocument = value
            End Set
        End Property
    End Class
 
    Public Class ServerCommand
 
        Sub New()
 
        End Sub
 
        Sub New(ByVal name As String, ByVal entry As String)
            Me.mName = name
            Me.mEntry = entry
        End Sub
 
        Private mName As String = String.Empty
        Private mEntry As String = String.Empty
 
        Public Property Name() As String
            Get
                Return mName
            End Get
            Set(ByVal value As String)
                mName = value
            End Set
        End Property
 
        Public Property Entry() As String
            Get
                Return mEntry
            End Get
            Set(ByVal value As String)
                mEntry = value
            End Set
        End Property
    End Class
 
    Private mLanguages As New List(Of Language)
    Private mServerCommands As New List(Of ServerCommand)
 
    Public Property Languages() As List(Of Language)
        Get
            Return mLanguages
        End Get
        Set(ByVal value As List(Of Language))
            mLanguages = value
        End Set
    End Property
 
    Public Property ServerCommands() As List(Of ServerCommand)
        Get
            Return mServerCommands
        End Get
        Set(ByVal value As List(Of ServerCommand))
            mServerCommands = value
        End Set
    End Property
 
    Public Shared Function Load(ByVal fileName As String) As Settings
        Try
            Dim myStream As New IO.FileStream(fileName, IO.FileMode.Open)
            Dim mySerializer As New Xml.Serialization.XmlSerializer(GetType( _
              Settings))
            Dim mySettings As Settings
            mySettings = mySerializer.Deserialize(myStream)
            myStream.Close()
            myStream.Dispose()
 
            Return mySettings
        Catch ex As Exception
            Return New Settings
        End Try
    End Function
 
    Public Sub Save(ByVal fileName As String)
        Dim myStream As New IO.FileStream(fileName, IO.FileMode.Create)
        Dim mySerializer As New Xml.Serialization.XmlSerializer(GetType( _
          Settings))
        mySerializer.Serialize(myStream, Me)
        myStream.Flush()
        myStream.Dispose()
        myStream.Close()
    End Sub

        Dim mySettings As Settings
        mySettings = Settings.Load("C:\Users\cs\Desktop\test.xml")
 
        mySettings.Languages.Add(New Settings.Language("TEST", "TEST"))
        mySettings.ServerCommands.Add(New Settings.ServerCommand("TEST", _
          "TEST"))
 
        mySettings.Save("C:\Users\cs\Desktop\test.xml")