Imports System.Xml.Serialization
    Public Class toolbox
 
        Public Shared Sub xmlSpeichern(Of T)(ByVal obj As T, ByVal DateiXML As _
          String)
            Dim xml As New XmlSerializer(GetType(T))
            Using sw As New IO.StreamWriter(DateiXML)
                xml.Serialize(sw, obj)
            End Using
        End Sub
 
        Public Shared Function xmlLesen(Of T)(ByVal DateiXML As String) As T
            Dim xml As New XmlSerializer(GetType(T))
            Using sr As New IO.StreamReader(DateiXML)
                Return CType(xml.Deserialize(sr), T)
            End Using
        End Function
 
 
    End Class

Imports Toolbox.Toolbox
Public Class frmDemoTest
 
    Public Structure Daten
        Public Name As String
        Public Firma As String
        Public RegCode As String
        Public ID As String
    End Structure
 
    Public Shared _Daten As New List(Of Daten)
 
    Public Sub frmDemoTest_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        '  Einstellungen speichern
        Dim tools As New Toolbox.Toolbox
        Dim g As New Daten
        g.Firma = "Tester GmbH"
        g.Name = "Test Name"
        g.ID = "Test ID"
        g.RegCode = "Test Code"
 
        _Daten.Add(g)
 
        tools.xmlSpeichern(_Daten, "XMLTest.xml")
 
    End Sub
End Class

--
Bitte um Nachsicht - ich übe noch