HYTOS

Imports Llama

Imports Plaice

Public Class AutoSPPID

    Dim objPlacement = New Placement

    Public Sub TestPipe()

        Dim datasource As LMADataSource

        datasource = objPlacement.PIDDataSource

        Dim PipeRunLocation As String

        Dim objItem As LMAItem

        Dim objConnector As LMConnector

        Dim objInputs As PlaceRunInputs

        Dim objSymbol As LMSymbol

        Dim ValveLocation As String

        PipeRunLocation = "\Piping\Routing\Process Lines\Primary Piping.sym"

        objInputs = New PlaceRunInputs

        objInputs.AddPoint(0.1, 0.1)

        objInputs.AddPoint(0.2, 0.1)

        objItem = objPlacement.PIDCreateItem(PipeRunLocation)

        objConnector = objPlacement.PIDPlaceRun(objItem, objInputs)

        Dim objPipeRun As LMPipeRun = datasource.GetPipeRun(objConnector.ModelItemID)

        objPipeRun.Attributes("OperFluidCode").Value = "AFS"

        objPipeRun.Attributes("InsulThick").Value = "25"

        objPipeRun.Attributes("NominalDiameter").Value = "6"""

        objPipeRun.Attributes("PipeRunClass").Value = "Piping"

        objPipeRun.Attributes("pipingmaterialsclass").Value = "NA1S"

        objPipeRun.Commit()

        ValveLocation = "\Piping\Valves\2 Way Common\Ball Valve.sym"

        objSymbol = objPlacement.PIDPlaceSymbol(ValveLocation, 0.15, 0.3, , 1.57)

        objInputs = New PlaceRunInputs

        objInputs.AddConnectorTarget(objConnector, 0.15, 0.1)

        objInputs.AddPoint(0.15, 0.15)

        objInputs.AddPoint(0.12, 0.15)

        objInputs.AddPoint(0.12, 0.2)

        objInputs.AddPoint(0.15, 0.2)

        objInputs.AddSymbolTarget(objSymbol, 0.15, 0.3)

        objItem = objPlacement.PIDCreateItem(PipeRunLocation)

        objConnector = objPlacement.PIDPlaceRun(objItem, objInputs)

        objPipeRun = datasource.GetPipeRun(objConnector.ModelItemID)

        objPipeRun.Attributes("flowdirection").Value = "End 1 is downstream (Outlet)"

        objPipeRun.Attributes("SP_JDesignMaxTemp").Value = "-273.15"

        objPipeRun.Attributes("SP_JAltDesignMaxTemp").Value = "-273.15"

        objPipeRun.Commit()

        objInputs = New PlaceRunInputs

        objInputs.AddSymbolTarget(objSymbol, 0.15, 0.304)

        '  objInputs.AddPoint(0.15, 0.304)

        objInputs.AddPoint(0.15, 0.33)

        objInputs.AddPoint(0.2, 0.33)

        objInputs.AddPoint(0.2, 0.25)

        objInputs.AddSymbolTarget(objSymbol, 0.2765, 0.25)

        objItem = objPlacement.PIDCreateItem(PipeRunLocation)

        objConnector = objPlacement.PIDPlaceRun(objItem, objInputs)

        objPipeRun = datasource.GetPipeRun(objConnector.ModelItemID)

        objPipeRun.Attributes("flowdirection").Value = "End 1 is downstream (Outlet)"

        objPipeRun.Attributes("SP_JDesignMaxTemp").Value = "-273.15 C"

        objPipeRun.Attributes("SP_JAltDesignMaxTemp").Value = "-273.15 C"

        '   objPipeRun.Attributes("SP_SP_JAltDesignMaxTempSI").Value = "-273.15 C"

        objPipeRun.Attributes("SP_JAltOperMaxTemp").Value = "-273.15 C"

        ' objPipeRun.Attributes("SP_SP_JAltOperMaxTempSI").Value = "-273.15 C"

        objPipeRun.Attributes("SP_JDesignMaxTemp").Value = "-273.15 C"

        ' objPipeRun.Attributes("SP_SP_JDesignMaxTempSI").Value = "-273.15 C"

        objPipeRun.Attributes("SP_JOperMaxTemp").Value = "-273.15 C"

        '  objPipeRun.Attributes("SP_SP_JOperMaxTempSI").Value = "-273.15 C"

        objPipeRun.Attributes("SP_JTestMaxTemp").Value = "-273.15 C"

        '  objPipeRun.Attributes("SP_SP_JTestMaxTempSI").Value = "-273.15 C"

        objPipeRun.Commit()

    End Sub

End Class

<?xml version="1.0" encoding="utf-8"?>

<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">

  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />

  <PropertyGroup>

    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>

    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>

    <ProjectGuid>{9D098ED7-D6D2-4762-8A2D-E5824E191039}</ProjectGuid>

    <OutputType>Library</OutputType>

    <RootNamespace>AutoSPPID</RootNamespace>

    <AssemblyName>AutoSPPID</AssemblyName>

    <FileAlignment>512</FileAlignment>

    <MyType>Windows</MyType>

    <TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>

  </PropertyGroup>

  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">

    <DebugSymbols>true</DebugSymbols>

    <DebugType>full</DebugType>

    <DefineDebug>true</DefineDebug>

    <DefineTrace>true</DefineTrace>

    <OutputPath>bin\Debug\</OutputPath>

    <DocumentationFile>AutoSPPID.xml</DocumentationFile>

    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>

  </PropertyGroup>

  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">

    <DebugType>pdbonly</DebugType>

    <DefineDebug>false</DefineDebug>

    <DefineTrace>true</DefineTrace>

    <Optimize>true</Optimize>

    <OutputPath>bin\Release\</OutputPath>

    <DocumentationFile>AutoSPPID.xml</DocumentationFile>

    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>

  </PropertyGroup>

  <PropertyGroup>

    <OptionExplicit>On</OptionExplicit>

  </PropertyGroup>

  <PropertyGroup>

    <OptionCompare>Binary</OptionCompare>

  </PropertyGroup>

  <PropertyGroup>

    <OptionStrict>Off</OptionStrict>

  </PropertyGroup>

  <PropertyGroup>

    <OptionInfer>On</OptionInfer>

  </PropertyGroup>

  <ItemGroup>

    <Reference Include="System" />

    <Reference Include="System.Data" />

    <Reference Include="System.Xml" />

    <Reference Include="System.Core" />

    <Reference Include="System.Xml.Linq" />

    <Reference Include="System.Data.DataSetExtensions" />

    <Reference Include="System.Net.Http" />

  </ItemGroup>

  <ItemGroup>

    <Import Include="Microsoft.VisualBasic" />

    <Import Include="System" />

    <Import Include="System.Collections" />

    <Import Include="System.Collections.Generic" />

    <Import Include="System.Data" />

    <Import Include="System.Diagnostics" />

    <Import Include="System.Linq" />

    <Import Include="System.Xml.Linq" />

    <Import Include="System.Threading.Tasks" />

  </ItemGroup>

  <ItemGroup>

    <Compile Include="AutoSPPID.vb" />

    <Compile Include="My Project\AssemblyInfo.vb" />

    <Compile Include="My Project\Application.Designer.vb">

      <AutoGen>True</AutoGen>

      <DependentUpon>Application.myapp</DependentUpon>

    </Compile>

    <Compile Include="My Project\Resources.Designer.vb">

      <AutoGen>True</AutoGen>

      <DesignTime>True</DesignTime>

      <DependentUpon>Resources.resx</DependentUpon>

    </Compile>

    <Compile Include="My Project\Settings.Designer.vb">

      <AutoGen>True</AutoGen>

      <DependentUpon>Settings.settings</DependentUpon>

      <DesignTimeSharedInput>True</DesignTimeSharedInput>

    </Compile>

  </ItemGroup>

  <ItemGroup>

    <EmbeddedResource Include="My Project\Resources.resx">

      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>

      <LastGenOutput>Resources.Designer.vb</LastGenOutput>

      <CustomToolNamespace>My.Resources</CustomToolNamespace>

      <SubType>Designer</SubType>

    </EmbeddedResource>

  </ItemGroup>

  <ItemGroup>

    <None Include="My Project\Application.myapp">

      <Generator>MyApplicationCodeGenerator</Generator>

      <LastGenOutput>Application.Designer.vb</LastGenOutput>

    </None>

    <None Include="My Project\Settings.settings">

      <Generator>SettingsSingleFileGenerator</Generator>

      <CustomToolNamespace>My</CustomToolNamespace>

      <LastGenOutput>Settings.Designer.vb</LastGenOutput>

    </None>

  </ItemGroup>

  <ItemGroup>

    <COMReference Include="ISPClientData3">

      <Guid>{A32983E1-A1BD-11D3-BBEE-0800363EAF03}</Guid>

      <VersionMajor>2</VersionMajor>

      <VersionMinor>0</VersionMinor>

      <Lcid>0</Lcid>

      <WrapperTool>tlbimp</WrapperTool>

      <Isolated>False</Isolated>

      <EmbedInteropTypes>True</EmbedInteropTypes>

    </COMReference>

    <COMReference Include="ISPPropertyInf">

      <Guid>{E0356D80-06B4-11D2-B793-080036EEB703}</Guid>

      <VersionMajor>1</VersionMajor>

      <VersionMinor>1</VersionMinor>

      <Lcid>0</Lcid>

      <WrapperTool>tlbimp</WrapperTool>

      <Isolated>False</Isolated>

      <EmbedInteropTypes>True</EmbedInteropTypes>

    </COMReference>

    <COMReference Include="Llama">

      <Guid>{425D14E8-A0C1-4F4A-9FB8-4D7CA982F144}</Guid>

      <VersionMajor>6</VersionMajor>

      <VersionMinor>0</VersionMinor>

      <Lcid>0</Lcid>

      <WrapperTool>tlbimp</WrapperTool>

      <Isolated>False</Isolated>

      <EmbedInteropTypes>True</EmbedInteropTypes>

    </COMReference>

    <COMReference Include="NEWENUMWRAPPERLib">

      <Guid>{58B86513-1FA4-4928-9D79-1076AC6F69EF}</Guid>

      <VersionMajor>1</VersionMajor>

      <VersionMinor>0</VersionMinor>

      <Lcid>0</Lcid>

      <WrapperTool>tlbimp</WrapperTool>

      <Isolated>False</Isolated>

      <EmbedInteropTypes>True</EmbedInteropTypes>

    </COMReference>

    <COMReference Include="PIDCacheAccessInfLib">

      <Guid>{CB6C022D-D17C-4E18-9B36-3A0D8B3282A2}</Guid>

      <VersionMajor>1</VersionMajor>

      <VersionMinor>0</VersionMinor>

      <Lcid>0</Lcid>

      <WrapperTool>tlbimp</WrapperTool>

      <Isolated>False</Isolated>

      <EmbedInteropTypes>True</EmbedInteropTypes>

    </COMReference>

    <COMReference Include="PidObjectManagerInf">

      <Guid>{534174BA-6991-4F8B-8DD0-FE2E46B6A67C}</Guid>

      <VersionMajor>2</VersionMajor>

      <VersionMinor>0</VersionMinor>

      <Lcid>0</Lcid>

      <WrapperTool>tlbimp</WrapperTool>

      <Isolated>False</Isolated>

      <EmbedInteropTypes>True</EmbedInteropTypes>

    </COMReference>

    <COMReference Include="Plaice">

      <Guid>{0CD9BF08-A064-44F4-8A5E-9A39006613FE}</Guid>

      <VersionMajor>5</VersionMajor>

      <VersionMinor>0</VersionMinor>

      <Lcid>0</Lcid>

      <WrapperTool>tlbimp</WrapperTool>

      <Isolated>False</Isolated>

      <EmbedInteropTypes>True</EmbedInteropTypes>

    </COMReference>

    <COMReference Include="VBA">

      <Guid>{000204EF-0000-0000-C000-000000000046}</Guid>

      <VersionMajor>6</VersionMajor>

      <VersionMinor>0</VersionMinor>

      <Lcid>9</Lcid>

      <WrapperTool>tlbimp</WrapperTool>

      <Isolated>False</Isolated>

      <EmbedInteropTypes>True</EmbedInteropTypes>

    </COMReference>

  </ItemGroup>

  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />

</Project>

'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'     Runtime Version:4.0.30319.42000

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------

Option Strict On

Option Explicit On

<?xml version="1.0" encoding="utf-8"?>

<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">

  <MySubMain>false</MySubMain>

  <SingleInstance>false</SingleInstance>

  <ShutdownMode>0</ShutdownMode>

  <EnableVisualStyles>true</EnableVisualStyles>

  <AuthenticationMode>0</AuthenticationMode>

  <ApplicationType>1</ApplicationType>

  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>

</MyApplicationData>

Imports System

Imports System.Reflection

Imports System.Runtime.InteropServices

' 어셈블리에 대한 일반 정보는 다음 특성 집합을 통해 

' 제어됩니다. 어셈블리와 관련된 정보를 수정하려면

' 이러한 특성 값을 변경하세요.

' 어셈블리 특성 값을 검토합니다.

<Assembly: AssemblyTitle("AutoSPPID")>

<Assembly: AssemblyDescription("")>

<Assembly: AssemblyCompany("")>

<Assembly: AssemblyProduct("AutoSPPID")>

<Assembly: AssemblyCopyright("Copyright ©  2018")>

<Assembly: AssemblyTrademark("")>

<Assembly: ComVisible(False)>

'이 프로젝트가 COM에 노출되는 경우 다음 GUID는 typelib의 ID를 나타냅니다.

<Assembly: Guid("c692d11c-ab58-410d-8d2b-6a1124163ba1")>

' 어셈블리의 버전 정보는 다음 네 가지 값으로 구성됩니다.

'

'      주 버전

'      부 버전 

'      빌드 번호

'      수정 버전

'

' 모든 값을 지정하거나 아래와 같이 '*'를 사용하여 빌드 번호 및 수정 번호가 자동으로

' 지정되도록 할 수 있습니다.

' <Assembly: AssemblyVersion("1.0.*")>

<Assembly: AssemblyVersion("1.0.0.0")>

<Assembly: AssemblyFileVersion("1.0.0.0")>

'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'     Runtime Version:4.0.30319.42000

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------

Option Strict On

Option Explicit On

Namespace My.Resources

    'This class was auto-generated by the StronglyTypedResourceBuilder

    'class via a tool like ResGen or Visual Studio.

    'To add or remove a member, edit your .ResX file then rerun ResGen

    'with the /str option, or rebuild your VS project.

    '''<summary>

    '''  A strongly-typed resource class, for looking up localized strings, etc.

    '''</summary>

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _

     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _

     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _

     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

    Friend Module Resources

        Private resourceMan As Global.System.Resources.ResourceManager

        Private resourceCulture As Global.System.Globalization.CultureInfo

        '''<summary>

        '''  Returns the cached ResourceManager instance used by this class.

        '''</summary>

        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _

        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager

            Get

                If Object.ReferenceEquals(resourceMan, Nothing) Then

                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("AutoSPPID.Resources", GetType(Resources).Assembly)

                    resourceMan = temp

                End If

                Return resourceMan

            End Get

        End Property

        '''<summary>

        '''  Overrides the current thread's CurrentUICulture property for all

        '''  resource lookups using this strongly typed resource class.

        '''</summary>

        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _

        Friend Property Culture() As Global.System.Globalization.CultureInfo

            Get

                Return resourceCulture

            End Get

            Set(ByVal value As Global.System.Globalization.CultureInfo)

                resourceCulture = value

            End Set

        End Property

    End Module

End Namespace

<?xml version="1.0" encoding="utf-8"?>

<root>

  <!-- 

    Microsoft ResX Schema 

    Version 2.0

    The primary goals of this format is to allow a simple XML format 

    that is mostly human readable. The generation and parsing of the 

    various data types are done through the TypeConverter classes 

    associated with the data types.

    Example:

    ... ado.net/XML headers & schema ...

    <resheader name="resmimetype">text/microsoft-resx</resheader>

    <resheader name="version">2.0</resheader>

    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>

    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>

    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>

    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>

    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">

        <value>[base64 mime encoded serialized .NET Framework object]</value>

    </data>

    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>

        <comment>This is a comment</comment>

    </data>

    There are any number of "resheader" rows that contain simple 

    name/value pairs.

    Each data row contains a name, and value. The row also contains a 

    type or mimetype. Type corresponds to a .NET class that support 

    text/value conversion through the TypeConverter architecture. 

    Classes that don't support this are serialized and stored with the 

    mimetype set.

    The mimetype is used for serialized objects, and tells the 

    ResXResourceReader how to depersist the object. This is currently not 

    extensible. For a given mimetype the value must be set accordingly:

    Note - application/x-microsoft.net.object.binary.base64 is the format 

    that the ResXResourceWriter will generate, however the reader can 

    read any of the formats listed below.

    mimetype: application/x-microsoft.net.object.binary.base64

    value   : The object must be serialized with 

            : System.Serialization.Formatters.Binary.BinaryFormatter

            : and then encoded with base64 encoding.

    mimetype: application/x-microsoft.net.object.soap.base64

    value   : The object must be serialized with 

            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter

            : and then encoded with base64 encoding.

    mimetype: application/x-microsoft.net.object.bytearray.base64

    value   : The object must be serialized into a byte array 

            : using a System.ComponentModel.TypeConverter

            : and then encoded with base64 encoding.

    -->

  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">

    <xsd:element name="root" msdata:IsDataSet="true">

      <xsd:complexType>

        <xsd:choice maxOccurs="unbounded">

          <xsd:element name="metadata">

            <xsd:complexType>

              <xsd:sequence>

                <xsd:element name="value" type="xsd:string" minOccurs="0" />

              </xsd:sequence>

              <xsd:attribute name="name" type="xsd:string" />

              <xsd:attribute name="type" type="xsd:string" />

              <xsd:attribute name="mimetype" type="xsd:string" />

            </xsd:complexType>

          </xsd:element>

          <xsd:element name="assembly">

            <xsd:complexType>

              <xsd:attribute name="alias" type="xsd:string" />

              <xsd:attribute name="name" type="xsd:string" />

            </xsd:complexType>

          </xsd:element>

          <xsd:element name="data">

            <xsd:complexType>

              <xsd:sequence>

                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />

                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />

              </xsd:sequence>

              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />

              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />

              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />

            </xsd:complexType>

          </xsd:element>

          <xsd:element name="resheader">

            <xsd:complexType>

              <xsd:sequence>

                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />

              </xsd:sequence>

              <xsd:attribute name="name" type="xsd:string" use="required" />

            </xsd:complexType>

          </xsd:element>

        </xsd:choice>

      </xsd:complexType>

    </xsd:element>

  </xsd:schema>

  <resheader name="resmimetype">

    <value>text/microsoft-resx</value>

  </resheader>

  <resheader name="version">

    <value>2.0</value>

  </resheader>

  <resheader name="reader">

    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>

  </resheader>

  <resheader name="writer">

    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>

  </resheader>

</root>

'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'     Runtime Version:4.0.30319.42000

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------

Option Strict On

Option Explicit On

Namespace My

    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _

     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _

     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _

    Partial Friend NotInheritable Class MySettings

        Inherits Global.System.Configuration.ApplicationSettingsBase

        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)

#Region "My.Settings Auto-Save Functionality"

#If _MyType = "WindowsForms" Then

        Private Shared addedHandler As Boolean

        Private Shared addedHandlerLockObject As New Object

        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _

        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)

            If My.Application.SaveMySettingsOnExit Then

                My.Settings.Save()

            End If

        End Sub

#End If

#End Region

        Public Shared ReadOnly Property [Default]() As MySettings

            Get

#If _MyType = "WindowsForms" Then

                   If Not addedHandler Then

                        SyncLock addedHandlerLockObject

                            If Not addedHandler Then

                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings

                                addedHandler = True

                            End If

                        End SyncLock

                    End If

#End If

                Return defaultInstance

            End Get

        End Property

    End Class

End Namespace

Namespace My

    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _

     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _

    Friend Module MySettingsProperty

        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _

        Friend ReadOnly Property Settings() As Global.AutoSPPID.My.MySettings

            Get

                Return Global.AutoSPPID.My.MySettings.Default

            End Get

        End Property

    End Module

End Namespace

<?xml version='1.0' encoding='utf-8'?>

<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">

  <Profiles>

    <Profile Name="(Default)" />

  </Profiles>

  <Settings />

</SettingsFile>