BIG CLEANUP

Global_Indexer/ClassLayout.vb

@@ -140,16 +140,17 @@ Public Class ClassSetting
 End Class
 
 Public Class ClassLayout
-    Private _filename As String
+    Private ReadOnly _filename As String
+    Private ReadOnly _settings As XmlWriterSettings
     Private _reader As XmlReader
-    Private _settings As XmlWriterSettings
 
     Public Sub New(filename As String)
         _filename = filename
 
-        _settings = New XmlWriterSettings()
-        _settings.Encoding = System.Text.Encoding.UTF8
-        _settings.Indent = True
+        _settings = New XmlWriterSettings With {
+            .Encoding = System.Text.Encoding.UTF8,
+            .Indent = True
+        }
     End Sub
 
     Public Sub Save(settings As System.Collections.Generic.List(Of ClassSetting))