Public Class YadaYadaProjectInstaller
    Public Sub New()
        MyBase.New()
        InitializeComponent()
    End Sub

    Public Overrides Sub Install(stateSaver As IDictionary)
        RetrieveServiceName(YadaYadaServiceInstaller)
        MyBase.Install(stateSaver)
    End Sub

    Public Overrides Sub Uninstall(savedState As IDictionary)
        RetrieveServiceName(YadaYadaServiceInstaller)
        MyBase.Uninstall(savedState)
    End Sub

    Private Sub RetrieveServiceName(inService As ServiceProcess.ServiceInstaller)
        Dim serviceName As String = Context.Parameters("servicename")

        If (Not String.IsNullOrEmpty(serviceName)) Then
			''Do stuff
        End If
    End Sub
End Class

<System.ComponentModel.RunInstaller(True)> Partial Class YadaYadaProjectInstaller
    Inherits System.Configuration.Install.Installer

    'Installer overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Component Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Component Designer
    'It can be modified using the Component Designer.
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.YadaYadaServiceProcessInstaller = New System.ServiceProcess.ServiceProcessInstaller()
        Me.YadaYadaServiceInstaller = New System.ServiceProcess.ServiceInstaller()
        '
        'YadaYadaServiceProcessInstaller
        '
        Me.YadaYadaServiceProcessInstaller.Account = System.ServiceProcess.ServiceAccount.LocalSystem
        Me.YadaYadaServiceProcessInstaller.Password = Nothing
        Me.YadaYadaServiceProcessInstaller.Username = Nothing
        '
        'YadaYadaServiceInstaller
        '
        Me.YadaYadaServiceInstaller.DelayedAutoStart = True
        Me.YadaYadaServiceInstaller.Description = "Service long description"
        Me.YadaYadaServiceInstaller.DisplayName = "Service common name"
        Me.YadaYadaServiceInstaller.ServiceName = "Name"
        Me.YadaYadaServiceInstaller.ServicesDependedOn = New String() {"DepedencyX"}
        Me.YadaYadaServiceInstaller.StartType = System.ServiceProcess.ServiceStartMode.Automatic
        '
        'YadaYadaProjectInstaller
        '
        Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.YadaYadaServiceProcessInstaller, Me.YadaYadaServiceInstaller})

    End Sub

    Friend WithEvents YadaYadaServiceProcessInstaller As System.ServiceProcess.ServiceProcessInstaller
    Friend WithEvents YadaYadaServiceInstaller As System.ServiceProcess.ServiceInstaller
End Class