Imports System.ComponentModel
Imports System.Configuration.Install
Imports Microsoft.Win32
Public Class ProjectInstaller

    Public Sub New()
        MyBase.New()

        'Add initialization code after the call to InitializeComponent
        'This call is required by the Component Designer.
        InitializeComponent()

        'Add initialization code after the call to InitializeComponent
        Dim si As New ServiceProcess.ServiceInstaller
        si.ServiceName = "StorePlanService"
        si.DisplayName = "StorePlanService"
        si.StartType = ServiceProcess.ServiceStartMode.Manual

        Me.Installers.Add(si)
        Dim spi As New ServiceProcess.ServiceProcessInstaller()
        spi.Account = System.ServiceProcess.ServiceAccount.LocalSystem
        spi.Password = Nothing
        spi.Username = Nothing
        Me.Installers.Add(spi)

        Dim ckey As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\StorePlanService", True)

        If ckey.GetValue("Type") <> Nothing Then
            ckey.SetValue("Type", (ckey.GetValue("Type") Or 256))
        End If

    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub