Imports System.Xml.Serialization
Imports System.IO
 
    <Serializable()> _
    Public MustInherit Class SerialMeXML
        Private typ As Type = [GetType]()
        Friend SaveFileName As String
        Private _ExtraTypes() As Type
#Region "Constructor "
 
        Public Sub New()
        End Sub
        Public Sub New(ByVal Extra_Types() As Type)
            _ExtraTypes = Extra_Types
        End Sub
 
        Public Sub New(ByVal Filename As String)
            SaveFileName = Filename
        End Sub
        Public Sub New(ByVal FileName As String, ByVal Extra_Types() As Type)
            _ExtraTypes = Extra_Types
            SaveFileName = FileName
        End Sub
#End Region
 
#Region "Save "
 
        Public Sub SaveMeXML()
            Save(SaveFileName)
        End Sub
 
 
        Public Sub SaveMeXML(ByVal FileName As String)
            Save(FileName)
        End Sub
        Private Sub Save(ByVal FileName As String)
            If FileName = String.Empty Then
                Throw New FileNotFoundException
            End If
            Dim mySerializer As XmlSerializer
            If _ExtraTypes Is Nothing Then
                mySerializer = New XmlSerializer(typ)
            Else
                mySerializer = New XmlSerializer(typ, _ExtraTypes)
            End If
            Dim myWriter As StreamWriter = New StreamWriter(FileName)
            Try
                mySerializer.Serialize(myWriter, Me)
            Catch ex As Exception
                MsgBox("Fehler:" & vbCrLf & ex.Message)
            Finally
                myWriter.Close()
            End Try
        End Sub
#End Region
 
#Region "Load "
 
        Public Function LoadMeXML() As Object
            Return Load(SaveFileName)
        End Function
 
 
        Public Function LoadMeXML(ByVal FileName As String) As Object
            Return Load(FileName)
        End Function
 
        Private Function Load(ByVal FileName As String) As Object
            If FileName = String.Empty Then
                Throw New FileNotFoundException
            End If
            Dim tmp As Object
            Try
 
                Dim mySerializer As XmlSerializer
                If _ExtraTypes Is Nothing Then
                    mySerializer = New XmlSerializer(typ)
                Else
                    mySerializer = New XmlSerializer(typ, _ExtraTypes)
                End If
 
                Dim myFileStream As FileStream = New FileStream(FileName, _
                  FileMode.Open)
 
                tmp = CType(mySerializer.Deserialize(myFileStream), Object)
                myFileStream.Close()
            Catch ex As Exception
                MsgBox("Fehler:" & vbCrLf & ex.Message)
                Return Nothing
            End Try
            Return tmp
        End Function
#End Region
    End Class

__________________________________________________________________________
Ein Programmierer ist eine Maschine die Koffein in Programmcode umwandelt!
Und Bier in Bug?s

May the source code be with you.