'------------------------------------------------------------------------------ ' ' This code was generated by a tool. ' Runtime Version:2.0.41023.0 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Partial NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared m_Default As MySettings Private Shared gate As Object = New Object Public Shared ReadOnly Property [Default]() As MySettings Get If (MySettings.m_Default Is Nothing) Then Global.System.Threading.Monitor.Enter(MySettings.gate) Try If (MySettings.m_Default Is Nothing) Then Dim tmpObj As MySettings tmpObj = New MySettings Global.System.Threading.Thread.MemoryBarrier MySettings.m_Default = tmpObj End If Finally Global.System.Threading.Monitor.Exit(MySettings.gate) End Try End If Return MySettings.m_Default End Get End Property End Class