''' <summary>
	''' Generiert aus einer XML-Datei eine neue Instanz dieser Auflistungsklasse.
	''' </summary>
	''' <param name="Dateiname">Name der XML-Datei, aus der die Daten für 
	''' diese AUflistungsinstanz entnommen werden sollen.</param>
	''' <returns></returns>
	''' <remarks></remarks>
	Public Shared Function XmlDeserialize(ByVal Dateiname As String) As Departments
		Try
			Dim locXmlLeser As New XmlSerializer(GetType(Departments))
			Dim locXmlDatei As New StreamReader(Dateiname)
			Return CType(locXmlLeser.Deserialize(locXmlDatei), Departments)
		Catch ex As Exception
 
		End Try
 
	End Function
 
	''' <summary>
	''' Serialisiert alle Elemente dieser Auflistung in eine XML-Datei.
	''' </summary>
	''' <param name="Dateiname">Der Dateiname der XML-Datei.</param>
	''' <remarks></remarks>
	Sub XMLSerialize(ByVal Dateiname As String)
		Dim locXmlWriter As New XmlSerializer(GetType(Departments))
		Dim locXmlDatei As New StreamWriter(Dateiname)
		locXmlWriter.Serialize(locXmlDatei, Me)
		locXmlDatei.Flush()
		locXmlDatei.Close()
	End Sub