Public Class Datensatz
 
    Public PName As String
    Public PMyPath As String
    Public PKonten As List(Of String)
 
    Sub New()
    End Sub
    Sub New(ByVal DatensatzName As String, ByVal DateiPfad As String)
        PName = DatensatzName
        PMyPath = DateiPfad
        PKonten = New List(Of String)
    End Sub
 
    Function Load() As Datensatz
        Try
            Dim xmlSer As System.Xml.Serialization.XmlSerializer
            Dim myStream As System.IO.FileStream
            xmlSer = New System.Xml.Serialization.XmlSerializer(GetType( _
              Datensatz))
            myStream = New System.IO.FileStream(PMyPath, _
            System.IO.FileMode.Open)
            Load = xmlSer.Deserialize(myStream)
 
            Load.PMyPath = PMyPath
            myStream.Close()
            myStream = Nothing
            xmlSer = Nothing
        Catch ex As Exception
            MsgBox("Public Class Datensatz.Load(): " & ex.Message.ToString)
            Load = Nothing
            Throw ex
        End Try
    End Function
    Sub Save()
        Try
            Dim xmlSer As System.Xml.Serialization.XmlSerializer
            Dim myStream As System.IO.FileStream
            xmlSer = New System.Xml.Serialization.XmlSerializer(GetType( _
              Datensatz))
 
            Dim obj As Datensatz = Me
            myStream = New System.IO.FileStream(PMyPath, _
              System.IO.FileMode.Create)
            xmlSer.Serialize(myStream, obj)
            myStream.Close()
        Catch ex As Exception
            MsgBox("Public Class Datensatz.Save(): " & ex.Message.ToString)
            Throw ex
        End Try
 
    End Sub
 
End Class

Public Class Form1
 
    Dim fpusatz1 As New Datensatz("test", "C:\fputest1.xml")
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        fpusatz1.Save()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Try
            fpusatz1 = fpusatz1.Load
        Catch ex As Exception
            fpusatz1 = New Datensatz("test", "C:\fputest1.xml")
            fpusatz1.Save()
        End Try
 
    End Sub
 
End Class