Public Shared Sub xmlSpeichern(Of T As IList)_
        (ByVal obj As T, ByVal DateiXML As String)
 
     Dim xml As New XmlSerializer(GetType(T))
 
     Using fs As New IO.FileStream(DateiXML, _
         IO.FileMode.OpenOrCreate, IO.FileAccess.Write, IO.FileShare.None)
         xml.Serialize(fs, obj)
     End Using
End Sub