<Serializable()> Public Class clsFenster
    Implements System.ICloneable
 
    Public Function Clone() As Object Implements System.ICloneable.Clone
        Return MyBase.MemberwiseClone
    End Function
 
    Public objHintergrundbild As Object
 
    <Xml.Serialization.XmlIgnore()> _
    Public Property Hintergrundbild() As Image
        Get
 
            Dim strToByte() As Byte
            strToByte = objHintergrundbild
            If Not strToByte Is Nothing Then
                Return Image.FromStream(New System.IO.MemoryStream(strToByte))
            End If
            Return Nothing
        End Get
        Set(ByVal Value As Image)
 
            Dim msMemoryStream As New System.IO.MemoryStream()
 
            Value.Save(msMemoryStream, System.Drawing.Imaging.ImageFormat.Png)
            Dim myByte(msMemoryStream.Length - 1) As Byte
            msMemoryStream.Position = 0 : msMemoryStream.Read(myByte, 0, _
              msMemoryStream.Length)
            objHintergrundbild = myByte
        End Set
    End Property
 
 
    Public objAusrichtungsbild As Object
 
    <Xml.Serialization.XmlIgnore()> _
    Public Property Ausrichtungsbild() As Image
        Get
 
            Dim strToByte() As Byte
            strToByte = objAusrichtungsbild
            Return Image.FromStream(New System.IO.MemoryStream(strToByte))
 
        End Get
        Set(ByVal Value As Image)
 
            Dim msMemoryStream As New System.IO.MemoryStream()
 
            Value.Save(msMemoryStream, System.Drawing.Imaging.ImageFormat.Png)
            Dim myByte(msMemoryStream.Length - 1) As Byte
            msMemoryStream.Position = 0 : msMemoryStream.Read(myByte, 0, _
              msMemoryStream.Length)
            objAusrichtungsbild = myByte
        End Set
    End Property
 
 
    Public objHintergrund As Object
 
    <Xml.Serialization.XmlIgnore()> _
    Public Property Hintergrund() As Image
        Get
 
            Dim strToByte() As Byte
            strToByte = objHintergrund
            Return Image.FromStream(New System.IO.MemoryStream(strToByte))
 
        End Get
        Set(ByVal Value As Image)
 
            Dim msMemoryStream As New System.IO.MemoryStream()
 
            Value.Save(msMemoryStream, System.Drawing.Imaging.ImageFormat.Png)
            Dim myByte(msMemoryStream.Length - 1) As Byte
            msMemoryStream.Position = 0 : msMemoryStream.Read(myByte, 0, _
              msMemoryStream.Length)
            objHintergrund = myByte
        End Set
    End Property
 
 
    Public Aufnahmedatum As Date
    Public Aufnahmezeit As String
    Public polygon As New ArrayList
    Public vMarker As New clsMarker
 
End Class
 
Public Class clsMarker
    Public Koordinaten As PointF
    Public vAusrichtung As enuAusrichtung
End Class

Try
            Dim ser As XmlSerializer = New XmlSerializer(GetType(clsFenster))
            writer = New XmlTextWriter(strFileName, New _
              System.Text.UTF8Encoding())
            ser.Serialize(writer, vFenster)
            writer.Close()
        Catch ex As Exception
            Throw ex
        Finally
 
        End Try