Dim xs As New XmlSerializer(GetType(UserSettings))

Public Shared Function Load(Optional ByVal FileName As String = "") As _
  UserSettings
        Dim configFile As Stream = Nothing
        Dim mSetting As UserSettings = Nothing
        Try
            If FileName = "" Then FileName = Path.Combine(Path.Combine( _
              SettingManager.GetSpecialFolder(SpecialFolder.ApplicationData), _
                                                                    Application_
                                                                    .ProductNam_
                                                                    e), sFile)
 
            'Verzeichnis erstellen, falls nicht vorhanden...
            Dim d As New DirectoryInfo(Path.GetDirectoryName(FileName))
            d.Create()
 
            If IO.File.Exists(FileName) Then
                Dim xs As New XmlSerializer(GetType(UserSettings))
                configFile = IO.File.Open(FileName, FileMode.Open, _
                  FileAccess.Read)
                mSetting = DirectCast(xs.Deserialize(configFile), UserSettings)
            Else
                mSetting = New UserSettings
                mSetting.Reset()
            End If
 
            'Registry-Werte laden...
            m_LoadFromRegistry(mSetting.Registry)
            mSetting.Win_Version = GetOSVersion()
 
            'prüfen...
            mSetting.Check()
 
            mSetting.GlobalValues.UseMultithreading = _
              mSetting.Registry.UseMultiThreading And _
              mSetting.GlobalValues.CPUCount > 1
 
            Return mSetting
        Catch ex As Exception
            InfoMeldung( _
              System.Reflection.MethodInfo.GetCurrentMethod.DeclaringType.Name _
              & "-" & System.Reflection.MethodBase.GetCurrentMethod.Name & ": " _
              & ex.Message)
            mSetting = New UserSettings
            mSetting.Win_Version = GetOSVersion()
            Return mSetting
        Finally
            If Not IsNothing(configFile) Then configFile.Close()
        End Try
    End Function