Public Class Setting
    Public Fenster() As Daten
    Public Heute, Monat, Jahr, Benutzer As Boolean
    Public benDatum, benZeit As String
 
 
    Structure stPolygon
        Public Hintergrundbild As String
        Public massstab As Boolean
        Public sun1_R As PointF
        Public sun1_B As PointF
        Public sun1_Datum As Date
        Public sun2_R As PointF
        Public sun2_B As PointF
        Public sun2_Datum As Date
        Public polygon As ArrayList
        Public Marker As ArrayList
 
        ' Public Punkt() As TPunkt
    End Structure
 
    Structure Daten
        Public name As String
        Public Lamellenbreite As Double
        Public Lamellenhoehe As Double
        Public LamellenAbstand As Double
        Public HoeheGesamt As Double
        Public HalbeHoehe As Double
        Public aH As Double
        Public iH As Double
        Public Ausrichtung As Double
        Public Polygon As stPolygon
 
        'Public Frame() As TFrame
    End Structure
 
End Class

        Dim writer As New XmlSerializer(GetType(Setting))
        Dim file As New StreamWriter("Suntracker.xml")
        writer.Serialize(file, Settings)
        file.Close()

If File.Exists("Sutracker.xml") Then
            Dim reader = New XmlSerializer(GetType(Setting))
            Dim file = New StreamReader("Suntracker.xml")
            Settings = CType(reader.Deserialize(file), Setting)
            'Settings = Serializer.DeSerialize(Of Setting)("Suntracker.xml")
 
        End If

<?xml version="1.0"?>
<doc>
<assembly>
<name>
Suntracker
</name>
</assembly>
<members>
<member name="P:Suntrack.My.Resources.Resources.ResourceManager">
	<summary>
  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser _
    Klasse verwendet wird.
</summary>
</member><member name="P:Suntrack.My.Resources.Resources.Culture">
	<summary>
  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member><member name="T:Suntrack.My.Resources.Resources">
	<summary>
  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten _
    Zeichenfolgen usw.
</summary>
</member>
</members>
</doc>