'------------------------------------------------------------------------------ ' ' This code was generated by a tool. ' Runtime Version:2.0.50215.44 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On _ Partial Friend NotInheritable Class Settings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared defaultInstance As Settings = New Settings #Region "My.Settings Auto-Save Functionality" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean _ Private Shared Sub AutoSaveSettings(ByVal sender As Object, ByVal e As EventArgs) If My.Application.SaveMySettingsOnExit Then My.Settings.Save() End If End Sub #End If #End Region Public Shared ReadOnly Property [Default]() As Settings Get #If _MyType = "WindowsForms" Then If Not addedHandler Then AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings addedHandler = True End If #End If Return defaultInstance End Get End Property End Class Namespace My _ Friend Module MySettingsProperty _ Friend ReadOnly Property Settings() As Global.Microsoft.Samples.IMEReadingString.Settings Get Return Global.Microsoft.Samples.IMEReadingString.Settings.Default End Get End Property End Module End Namespace