Public Class clsSettings
 
    ' Einstellungen
    Private _Setting1 As String
    Private _Setting2 As Boolean
    ' ...
    Private _dsData As DataSet
 
 
    Private oXMLSerializer As New XmlSerializer(Me.GetType)
 
 
    Public Property Setting1 As String
        Get
            Return _Setting1
        End Get
        Set(value As String)
            _Setting1 = value
        End Set
    End Property
 
    '...
 
    Public Property dsData As dsData
        Get
            Return _dsData
        End Get
        Set(value As dsData)
            _dsData = value
        End Set
    End Property
 
End Class

    Public Sub Save(ByVal filePath As String)
 
        Using fs As New IO.FileStream(filePath, FileMode.Create)
            oXMLSerializer.Serialize(fs, Me)
        End Using
 
    End Sub
 
    Public Function Load(ByVal filePath As String) As clsSettings
        Dim myResult As clsSettings
 
        Using fs As New IO.FileStream(filePath, FileMode.Open)
            myResult = DirectCast(oXMLSerializer.Deserialize(fs), clsSettings)
        End Using
 
        '---------
        Return myResult
        '---------
    End Function