Partial Class Form1 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. 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 Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Private Sub InitializeComponent() Dim ChartArea4 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() Dim Legend4 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() Dim Series4 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() Me.txtTotalCost = New System.Windows.Forms.TextBox() Me.txtAnyway = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.lblEnEffCosts = New System.Windows.Forms.Label() Me.txtEnEffCost = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.txtOwnCap = New System.Windows.Forms.TextBox() Me.Label6 = New System.Windows.Forms.Label() Me.txtSubsidies = New System.Windows.Forms.TextBox() Me.Label7 = New System.Windows.Forms.Label() Me.txtBorrowed = New System.Windows.Forms.TextBox() Me.Label8 = New System.Windows.Forms.Label() Me.txtIntRate = New System.Windows.Forms.TextBox() Me.Label9 = New System.Windows.Forms.Label() Me.txtLoanTerm = New System.Windows.Forms.TextBox() Me.Label10 = New System.Windows.Forms.Label() Me.txtDiscRate = New System.Windows.Forms.TextBox() Me.Label11 = New System.Windows.Forms.Label() Me.txtOppInt = New System.Windows.Forms.TextBox() Me.Label12 = New System.Windows.Forms.Label() Me.txtLoanMthlyRepay = New System.Windows.Forms.TextBox() Me.Label13 = New System.Windows.Forms.Label() Me.txtTotalRepay = New System.Windows.Forms.TextBox() Me.Label14 = New System.Windows.Forms.Label() Me.txtNPVLoan = New System.Windows.Forms.TextBox() Me.Label15 = New System.Windows.Forms.Label() Me.txtOppCosts = New System.Windows.Forms.TextBox() Me.Label16 = New System.Windows.Forms.Label() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.Label17 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() Me.txtPreRetCons = New System.Windows.Forms.TextBox() Me.txtEnSaved = New System.Windows.Forms.TextBox() Me.Label19 = New System.Windows.Forms.Label() Me.txtFloorArea = New System.Windows.Forms.TextBox() Me.Label20 = New System.Windows.Forms.Label() Me.txtEnCost = New System.Windows.Forms.TextBox() Me.comboPreRet = New System.Windows.Forms.ComboBox() Me.Label21 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label() Me.comboPostRet = New System.Windows.Forms.ComboBox() Me.Label23 = New System.Windows.Forms.Label() Me.txtCO2TaxRate = New System.Windows.Forms.TextBox() Me.Label24 = New System.Windows.Forms.Label() Me.Label25 = New System.Windows.Forms.Label() Me.txtPreRetCO2 = New System.Windows.Forms.TextBox() Me.txtPostRetCO2 = New System.Windows.Forms.TextBox() Me.Label26 = New System.Windows.Forms.Label() Me.txt25YCO2sav = New System.Windows.Forms.TextBox() Me.Label27 = New System.Windows.Forms.Label() Me.txtEuroPTCO2 = New System.Windows.Forms.TextBox() Me.Label28 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label() Me.txtEnCostSav = New System.Windows.Forms.TextBox() Me.txtNPVEnCostSav = New System.Windows.Forms.TextBox() Me.Label31 = New System.Windows.Forms.Label() Me.txtNPVTaxSav = New System.Windows.Forms.TextBox() Me.txtPostRetCons = New System.Windows.Forms.TextBox() Me.Label33 = New System.Windows.Forms.Label() Me.Label34 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label() Me.txtTotCosts2 = New System.Windows.Forms.TextBox() Me.txtTotSav2 = New System.Windows.Forms.TextBox() Me.txtNetLossGain = New System.Windows.Forms.TextBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.Label36 = New System.Windows.Forms.Label() Me.btnInfo = New System.Windows.Forms.Button() Me.Chart1 = New System.Windows.Forms.DataVisualization.Charting.Chart() Me.Label38 = New System.Windows.Forms.Label() Me.txtEnCostPost = New System.Windows.Forms.TextBox() Me.Label41 = New System.Windows.Forms.Label() Me.txtPVannaulIncome = New System.Windows.Forms.TextBox() Me.Label42 = New System.Windows.Forms.Label() Me.txtPCRecov = New System.Windows.Forms.TextBox() Me.txtCostNeutRentInc = New System.Windows.Forms.TextBox() Me.Label43 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.Label44 = New System.Windows.Forms.Label() Me.txtAltInvHzn = New System.Windows.Forms.TextBox() Me.PictureBox3 = New System.Windows.Forms.PictureBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.txtNPVSubLoanRepayments = New System.Windows.Forms.TextBox() Me.txtSubLoanTotRepay = New System.Windows.Forms.TextBox() Me.txtSubLoanMthlyRepay = New System.Windows.Forms.TextBox() Me.Label54 = New System.Windows.Forms.Label() Me.Label53 = New System.Windows.Forms.Label() Me.Label52 = New System.Windows.Forms.Label() Me.txtSubLoanYrs = New System.Windows.Forms.TextBox() Me.txtSubIntRate = New System.Windows.Forms.TextBox() Me.txtSubLoan = New System.Windows.Forms.TextBox() Me.Label50 = New System.Windows.Forms.Label() Me.Label49 = New System.Windows.Forms.Label() Me.Label48 = New System.Windows.Forms.Label() Me.Label45 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() Me.Label51 = New System.Windows.Forms.Label() Me.txtNonSubLoan = New System.Windows.Forms.TextBox() Me.Label47 = New System.Windows.Forms.Label() Me.Panel3 = New System.Windows.Forms.Panel() Me.Label55 = New System.Windows.Forms.Label() Me.Label56 = New System.Windows.Forms.Label() Me.txtNPVTotCost = New System.Windows.Forms.TextBox() Me.Panel4 = New System.Windows.Forms.Panel() Me.Label64 = New System.Windows.Forms.Label() Me.txtPVLifetime = New System.Windows.Forms.TextBox() Me.Label60 = New System.Windows.Forms.Label() Me.txtNPVPVEarnings = New System.Windows.Forms.TextBox() Me.Label59 = New System.Windows.Forms.Label() Me.txtPVProdn = New System.Windows.Forms.TextBox() Me.Label58 = New System.Windows.Forms.Label() Me.Label57 = New System.Windows.Forms.Label() Me.Label61 = New System.Windows.Forms.Label() Me.txtRenLifetime = New System.Windows.Forms.TextBox() Me.lblExpl1 = New System.Windows.Forms.Label() Me.lblExpl2 = New System.Windows.Forms.Label() Me.Label62 = New System.Windows.Forms.Label() Me.txtEnPriceInfln = New System.Windows.Forms.TextBox() Me.Label63 = New System.Windows.Forms.Label() Me.Panel5 = New System.Windows.Forms.Panel() Me.Label37 = New System.Windows.Forms.Label() Me.txtPVCO2SavPy = New System.Windows.Forms.TextBox() Me.Panel6 = New System.Windows.Forms.Panel() Me.Label70 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() Me.Panel7 = New System.Windows.Forms.Panel() Me.txtCO2pcInc = New System.Windows.Forms.TextBox() Me.Label46 = New System.Windows.Forms.Label() Me.Label40 = New System.Windows.Forms.Label() Me.Label65 = New System.Windows.Forms.Label() Me.txtPCPayback = New System.Windows.Forms.TextBox() Me.Panel8 = New System.Windows.Forms.Panel() Me.Label30 = New System.Windows.Forms.Label() Me.Label66 = New System.Windows.Forms.Label() Me.Panel9 = New System.Windows.Forms.Panel() Me.Label67 = New System.Windows.Forms.Label() Me.Panel10 = New System.Windows.Forms.Panel() Me.Label3 = New System.Windows.Forms.Label() Me.btnExport = New System.Windows.Forms.Button() Me.txtRunNum = New System.Windows.Forms.TextBox() Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.Label39 = New System.Windows.Forms.Label() Me.txtScenario = New System.Windows.Forms.TextBox() Me.txtPath = New System.Windows.Forms.TextBox() Me.Label68 = New System.Windows.Forms.Label() Me.Label69 = New System.Windows.Forms.Label() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Chart1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel4.SuspendLayout() Me.Panel5.SuspendLayout() Me.Panel6.SuspendLayout() Me.Panel7.SuspendLayout() Me.Panel8.SuspendLayout() Me.Panel9.SuspendLayout() Me.Panel10.SuspendLayout() Me.SuspendLayout() ' 'txtTotalCost ' Me.txtTotalCost.Location = New System.Drawing.Point(244, 38) Me.txtTotalCost.Name = "txtTotalCost" Me.txtTotalCost.Size = New System.Drawing.Size(92, 26) Me.txtTotalCost.TabIndex = 1 Me.txtTotalCost.Text = "207016" ' 'txtAnyway ' Me.txtAnyway.Location = New System.Drawing.Point(246, 91) Me.txtAnyway.Name = "txtAnyway" Me.txtAnyway.Size = New System.Drawing.Size(92, 26) Me.txtAnyway.TabIndex = 2 Me.txtAnyway.Text = "114069" ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(8, 31) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(220, 48) Me.Label1.TabIndex = 3 Me.Label1.Text = "Total cost of job (€) INCLUDING PV if any" ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(6, 79) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(203, 45) Me.Label2.TabIndex = 4 Me.Label2.Text = """Anyway"" costs (not for energy efficiency (€)" ' 'Label4 ' Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.Location = New System.Drawing.Point(9, 128) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(220, 51) Me.Label4.TabIndex = 6 Me.Label4.Text = "Hence energy efficiency costs (€)" ' 'lblEnEffCosts ' Me.lblEnEffCosts.AutoSize = True Me.lblEnEffCosts.Location = New System.Drawing.Point(241, 124) Me.lblEnEffCosts.Name = "lblEnEffCosts" Me.lblEnEffCosts.Size = New System.Drawing.Size(0, 20) Me.lblEnEffCosts.TabIndex = 7 ' 'txtEnEffCost ' Me.txtEnEffCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtEnEffCost.Location = New System.Drawing.Point(243, 128) Me.txtEnEffCost.Name = "txtEnEffCost" Me.txtEnEffCost.ReadOnly = True Me.txtEnEffCost.Size = New System.Drawing.Size(93, 26) Me.txtEnEffCost.TabIndex = 8 ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(9, 177) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(195, 20) Me.Label5.TabIndex = 9 Me.Label5.Text = "Own capital investment (€)" ' 'txtOwnCap ' Me.txtOwnCap.Location = New System.Drawing.Point(245, 174) Me.txtOwnCap.Name = "txtOwnCap" Me.txtOwnCap.Size = New System.Drawing.Size(93, 26) Me.txtOwnCap.TabIndex = 10 Me.txtOwnCap.Text = "20702" ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(8, 212) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(146, 20) Me.Label6.TabIndex = 11 Me.Label6.Text = "Subsidies, if any (€)" ' 'txtSubsidies ' Me.txtSubsidies.Location = New System.Drawing.Point(246, 212) Me.txtSubsidies.Name = "txtSubsidies" Me.txtSubsidies.Size = New System.Drawing.Size(93, 26) Me.txtSubsidies.TabIndex = 12 Me.txtSubsidies.Text = "0" ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(8, 248) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(206, 20) Me.Label7.TabIndex = 13 Me.Label7.Text = "Hence total loan needed (€)" ' 'txtBorrowed ' Me.txtBorrowed.Location = New System.Drawing.Point(247, 248) Me.txtBorrowed.Name = "txtBorrowed" Me.txtBorrowed.ReadOnly = True Me.txtBorrowed.Size = New System.Drawing.Size(93, 26) Me.txtBorrowed.TabIndex = 14 ' 'Label8 ' Me.Label8.AutoSize = True Me.Label8.Location = New System.Drawing.Point(6, 56) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(135, 20) Me.Label8.TabIndex = 15 Me.Label8.Text = "Interest rate (%/y)" ' 'txtIntRate ' Me.txtIntRate.Location = New System.Drawing.Point(275, 53) Me.txtIntRate.Name = "txtIntRate" Me.txtIntRate.Size = New System.Drawing.Size(69, 26) Me.txtIntRate.TabIndex = 16 Me.txtIntRate.Text = "4" ' 'Label9 ' Me.Label9.AutoSize = True Me.Label9.Location = New System.Drawing.Point(9, 88) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(149, 20) Me.Label9.TabIndex = 17 Me.Label9.Text = "Term of loan (years)" ' 'txtLoanTerm ' Me.txtLoanTerm.Location = New System.Drawing.Point(275, 85) Me.txtLoanTerm.Name = "txtLoanTerm" Me.txtLoanTerm.Size = New System.Drawing.Size(69, 26) Me.txtLoanTerm.TabIndex = 18 Me.txtLoanTerm.Text = "25" ' 'Label10 ' Me.Label10.AutoSize = True Me.Label10.Location = New System.Drawing.Point(9, 285) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(178, 20) Me.Label10.TabIndex = 19 Me.Label10.Text = "Your discount rate (%/y)" ' 'txtDiscRate ' Me.txtDiscRate.Location = New System.Drawing.Point(269, 287) Me.txtDiscRate.Name = "txtDiscRate" Me.txtDiscRate.Size = New System.Drawing.Size(69, 26) Me.txtDiscRate.TabIndex = 20 Me.txtDiscRate.Text = "6" ' 'Label11 ' Me.Label11.AutoSize = True Me.Label11.Location = New System.Drawing.Point(10, 36) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(250, 20) Me.Label11.TabIndex = 21 Me.Label11.Text = "Alternative investment return (%/y)" ' 'txtOppInt ' Me.txtOppInt.Location = New System.Drawing.Point(272, 33) Me.txtOppInt.Name = "txtOppInt" Me.txtOppInt.Size = New System.Drawing.Size(69, 26) Me.txtOppInt.TabIndex = 22 Me.txtOppInt.Text = "7" ' 'Label12 ' Me.Label12.AutoSize = True Me.Label12.Location = New System.Drawing.Point(9, 120) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(230, 20) Me.Label12.TabIndex = 23 Me.Label12.Text = "Monthly repayments on loan (€)" ' 'txtLoanMthlyRepay ' Me.txtLoanMthlyRepay.Location = New System.Drawing.Point(276, 117) Me.txtLoanMthlyRepay.Name = "txtLoanMthlyRepay" Me.txtLoanMthlyRepay.ReadOnly = True Me.txtLoanMthlyRepay.Size = New System.Drawing.Size(68, 26) Me.txtLoanMthlyRepay.TabIndex = 24 ' 'Label13 ' Me.Label13.AutoSize = True Me.Label13.Location = New System.Drawing.Point(9, 152) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(135, 20) Me.Label13.TabIndex = 25 Me.Label13.Text = "Total Repayed (€)" ' 'txtTotalRepay ' Me.txtTotalRepay.Location = New System.Drawing.Point(254, 149) Me.txtTotalRepay.Name = "txtTotalRepay" Me.txtTotalRepay.ReadOnly = True Me.txtTotalRepay.Size = New System.Drawing.Size(90, 26) Me.txtTotalRepay.TabIndex = 26 ' 'Label14 ' Me.Label14.AutoSize = True Me.Label14.Location = New System.Drawing.Point(9, 182) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(243, 20) Me.Label14.TabIndex = 27 Me.Label14.Text = "Net Pres Value of repayments (€)" ' 'txtNPVLoan ' Me.txtNPVLoan.Location = New System.Drawing.Point(253, 179) Me.txtNPVLoan.Name = "txtNPVLoan" Me.txtNPVLoan.ReadOnly = True Me.txtNPVLoan.Size = New System.Drawing.Size(91, 26) Me.txtNPVLoan.TabIndex = 28 ' 'Label15 ' Me.Label15.AutoSize = True Me.Label15.Location = New System.Drawing.Point(10, 118) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(207, 20) Me.Label15.TabIndex = 29 Me.Label15.Text = "NPV of opportunity costs (€)" ' 'txtOppCosts ' Me.txtOppCosts.Location = New System.Drawing.Point(247, 119) Me.txtOppCosts.Name = "txtOppCosts" Me.txtOppCosts.ReadOnly = True Me.txtOppCosts.Size = New System.Drawing.Size(90, 26) Me.txtOppCosts.TabIndex = 30 ' 'Label16 ' Me.Label16.AutoSize = True Me.Label16.Location = New System.Drawing.Point(9, 35) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(262, 20) Me.Label16.TabIndex = 31 Me.Label16.Text = "Pre-retrofit consumption (kWh/m2/y)" ' 'PictureBox1 ' Me.PictureBox1.BackColor = System.Drawing.SystemColors.ActiveCaption Me.PictureBox1.Location = New System.Drawing.Point(368, 71) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(14, 761) Me.PictureBox1.TabIndex = 32 Me.PictureBox1.TabStop = False ' 'Label17 ' Me.Label17.AutoSize = True Me.Label17.Location = New System.Drawing.Point(9, 76) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(270, 20) Me.Label17.TabIndex = 33 Me.Label17.Text = "Post-retrofit consumption (kWh/m2/y)" ' 'Label18 ' Me.Label18.AutoSize = True Me.Label18.Location = New System.Drawing.Point(11, 134) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(237, 20) Me.Label18.TabIndex = 34 Me.Label18.Text = "Hence energy saved (kWh/m2/y)" ' 'txtPreRetCons ' Me.txtPreRetCons.Location = New System.Drawing.Point(287, 31) Me.txtPreRetCons.Name = "txtPreRetCons" Me.txtPreRetCons.Size = New System.Drawing.Size(77, 26) Me.txtPreRetCons.TabIndex = 35 Me.txtPreRetCons.Text = "114.4" ' 'txtEnSaved ' Me.txtEnSaved.Location = New System.Drawing.Point(289, 128) Me.txtEnSaved.Name = "txtEnSaved" Me.txtEnSaved.ReadOnly = True Me.txtEnSaved.Size = New System.Drawing.Size(77, 26) Me.txtEnSaved.TabIndex = 37 ' 'Label19 ' Me.Label19.AutoSize = True Me.Label19.Location = New System.Drawing.Point(11, 170) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(112, 20) Me.Label19.TabIndex = 38 Me.Label19.Text = "Floor aea (m2)" ' 'txtFloorArea ' Me.txtFloorArea.Location = New System.Drawing.Point(289, 164) Me.txtFloorArea.Name = "txtFloorArea" Me.txtFloorArea.Size = New System.Drawing.Size(77, 26) Me.txtFloorArea.TabIndex = 39 Me.txtFloorArea.Text = "350" ' 'Label20 ' Me.Label20.AutoSize = True Me.Label20.Location = New System.Drawing.Point(12, 248) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(228, 20) Me.Label20.TabIndex = 40 Me.Label20.Text = "Pre.retrofit energy cost (€/kWh)" ' 'txtEnCost ' Me.txtEnCost.Location = New System.Drawing.Point(287, 248) Me.txtEnCost.Name = "txtEnCost" Me.txtEnCost.Size = New System.Drawing.Size(77, 26) Me.txtEnCost.TabIndex = 41 Me.txtEnCost.Text = "0.09" ' 'comboPreRet ' Me.comboPreRet.FormattingEnabled = True Me.comboPreRet.Items.AddRange(New Object() {"Gas", "Oil", "Coal", "Wood pellets", "Electricity"}) Me.comboPreRet.Location = New System.Drawing.Point(238, 204) Me.comboPreRet.Name = "comboPreRet" Me.comboPreRet.Size = New System.Drawing.Size(129, 28) Me.comboPreRet.TabIndex = 42 Me.comboPreRet.Text = "Gas" ' 'Label21 ' Me.Label21.AutoSize = True Me.Label21.Location = New System.Drawing.Point(12, 207) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(188, 20) Me.Label21.TabIndex = 43 Me.Label21.Text = "Pre-retrofit energy source" ' 'Label22 ' Me.Label22.AutoSize = True Me.Label22.Location = New System.Drawing.Point(4, 37) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(162, 20) Me.Label22.TabIndex = 44 Me.Label22.Text = "CO2 tax rate (€/tCO2)" ' 'comboPostRet ' Me.comboPostRet.FormattingEnabled = True Me.comboPostRet.Items.AddRange(New Object() {"Gas", "Oil", "Coal", "Wood pellets", "Electricity"}) Me.comboPostRet.Location = New System.Drawing.Point(239, 286) Me.comboPostRet.Name = "comboPostRet" Me.comboPostRet.Size = New System.Drawing.Size(128, 28) Me.comboPostRet.TabIndex = 45 Me.comboPostRet.Text = "Gas" ' 'Label23 ' Me.Label23.AutoSize = True Me.Label23.Location = New System.Drawing.Point(13, 289) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(196, 20) Me.Label23.TabIndex = 46 Me.Label23.Text = "Post-retrofit energy source" ' 'txtCO2TaxRate ' Me.txtCO2TaxRate.Location = New System.Drawing.Point(258, 34) Me.txtCO2TaxRate.Name = "txtCO2TaxRate" Me.txtCO2TaxRate.Size = New System.Drawing.Size(73, 26) Me.txtCO2TaxRate.TabIndex = 47 Me.txtCO2TaxRate.Text = "30" ' 'Label24 ' Me.Label24.AutoSize = True Me.Label24.Location = New System.Drawing.Point(6, 38) Me.Label24.Name = "Label24" Me.Label24.Size = New System.Drawing.Size(226, 20) Me.Label24.TabIndex = 48 Me.Label24.Tag = "Pre-Retroft Emissions tCO2/y" Me.Label24.Text = "Pre-Retroft Emissions (tCO2/y)" ' 'Label25 ' Me.Label25.AutoSize = True Me.Label25.Location = New System.Drawing.Point(6, 71) Me.Label25.Name = "Label25" Me.Label25.Size = New System.Drawing.Size(234, 20) Me.Label25.TabIndex = 49 Me.Label25.Tag = "Pre-Retroft Emissions tCO2/y" Me.Label25.Text = "Post-Retroft Emissions (tCO2/y)" ' 'txtPreRetCO2 ' Me.txtPreRetCO2.Location = New System.Drawing.Point(295, 35) Me.txtPreRetCO2.Name = "txtPreRetCO2" Me.txtPreRetCO2.ReadOnly = True Me.txtPreRetCO2.Size = New System.Drawing.Size(73, 26) Me.txtPreRetCO2.TabIndex = 50 ' 'txtPostRetCO2 ' Me.txtPostRetCO2.Location = New System.Drawing.Point(294, 71) Me.txtPostRetCO2.Name = "txtPostRetCO2" Me.txtPostRetCO2.ReadOnly = True Me.txtPostRetCO2.Size = New System.Drawing.Size(73, 26) Me.txtPostRetCO2.TabIndex = 51 ' 'Label26 ' Me.Label26.AutoSize = True Me.Label26.Location = New System.Drawing.Point(4, 156) Me.Label26.Name = "Label26" Me.Label26.Size = New System.Drawing.Size(273, 20) Me.Label26.TabIndex = 52 Me.Label26.Text = "CO2 savings in system lifetime (tCO2)" ' 'txt25YCO2sav ' Me.txt25YCO2sav.Location = New System.Drawing.Point(293, 153) Me.txt25YCO2sav.Name = "txt25YCO2sav" Me.txt25YCO2sav.ReadOnly = True Me.txt25YCO2sav.Size = New System.Drawing.Size(74, 26) Me.txt25YCO2sav.TabIndex = 53 ' 'Label27 ' Me.Label27.AutoSize = True Me.Label27.Location = New System.Drawing.Point(4, 200) Me.Label27.Name = "Label27" Me.Label27.Size = New System.Drawing.Size(206, 20) Me.Label27.TabIndex = 54 Me.Label27.Text = "Cost of CO2 saved (€/tCO2)" ' 'txtEuroPTCO2 ' Me.txtEuroPTCO2.Location = New System.Drawing.Point(293, 194) Me.txtEuroPTCO2.Name = "txtEuroPTCO2" Me.txtEuroPTCO2.ReadOnly = True Me.txtEuroPTCO2.Size = New System.Drawing.Size(73, 26) Me.txtEuroPTCO2.TabIndex = 55 ' 'Label28 ' Me.Label28.AutoSize = True Me.Label28.Location = New System.Drawing.Point(11, 417) Me.Label28.Name = "Label28" Me.Label28.Size = New System.Drawing.Size(261, 20) Me.Label28.TabIndex = 56 Me.Label28.Text = "Monthly energy cost savings (€/mth)" ' 'Label29 ' Me.Label29.AutoSize = True Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label29.Location = New System.Drawing.Point(11, 465) Me.Label29.Name = "Label29" Me.Label29.Size = New System.Drawing.Size(255, 20) Me.Label29.TabIndex = 57 Me.Label29.Text = "NPV of energy cost savings (€)" ' 'txtEnCostSav ' Me.txtEnCostSav.Location = New System.Drawing.Point(291, 417) Me.txtEnCostSav.Name = "txtEnCostSav" Me.txtEnCostSav.ReadOnly = True Me.txtEnCostSav.Size = New System.Drawing.Size(74, 26) Me.txtEnCostSav.TabIndex = 58 ' 'txtNPVEnCostSav ' Me.txtNPVEnCostSav.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtNPVEnCostSav.Location = New System.Drawing.Point(291, 462) Me.txtNPVEnCostSav.Name = "txtNPVEnCostSav" Me.txtNPVEnCostSav.ReadOnly = True Me.txtNPVEnCostSav.Size = New System.Drawing.Size(75, 26) Me.txtNPVEnCostSav.TabIndex = 59 ' 'Label31 ' Me.Label31.AutoSize = True Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label31.Location = New System.Drawing.Point(5, 110) Me.Label31.Name = "Label31" Me.Label31.Size = New System.Drawing.Size(226, 20) Me.Label31.TabIndex = 61 Me.Label31.Text = "NPV of CO2 tax savings (€)" ' 'txtNPVTaxSav ' Me.txtNPVTaxSav.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtNPVTaxSav.Location = New System.Drawing.Point(256, 108) Me.txtNPVTaxSav.Name = "txtNPVTaxSav" Me.txtNPVTaxSav.ReadOnly = True Me.txtNPVTaxSav.Size = New System.Drawing.Size(73, 26) Me.txtNPVTaxSav.TabIndex = 63 ' 'txtPostRetCons ' Me.txtPostRetCons.Location = New System.Drawing.Point(288, 82) Me.txtPostRetCons.Name = "txtPostRetCons" Me.txtPostRetCons.Size = New System.Drawing.Size(76, 26) Me.txtPostRetCons.TabIndex = 64 Me.txtPostRetCons.Text = "72.1" ' 'Label33 ' Me.Label33.AutoSize = True Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label33.Location = New System.Drawing.Point(8, 48) Me.Label33.Name = "Label33" Me.Label33.Size = New System.Drawing.Size(335, 22) Me.Label33.TabIndex = 67 Me.Label33.Text = "Your total net present value costs are (€)" ' 'Label34 ' Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label34.Location = New System.Drawing.Point(8, 83) Me.Label34.Name = "Label34" Me.Label34.Size = New System.Drawing.Size(404, 69) Me.Label34.TabIndex = 68 Me.Label34.Text = "Your total NPV benefits (savings) over the lifetime of the retrofit (and of the P" & "V, if any) will be (€)" ' 'Label35 ' Me.Label35.AutoSize = True Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label35.ForeColor = System.Drawing.Color.Crimson Me.Label35.Location = New System.Drawing.Point(8, 159) Me.Label35.Name = "Label35" Me.Label35.Size = New System.Drawing.Size(354, 22) Me.Label35.TabIndex = 69 Me.Label35.Text = "Hence your NPV net loss or gain is (€)" ' 'txtTotCosts2 ' Me.txtTotCosts2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtTotCosts2.Location = New System.Drawing.Point(418, 42) Me.txtTotCosts2.Name = "txtTotCosts2" Me.txtTotCosts2.ReadOnly = True Me.txtTotCosts2.Size = New System.Drawing.Size(98, 28) Me.txtTotCosts2.TabIndex = 70 ' 'txtTotSav2 ' Me.txtTotSav2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtTotSav2.Location = New System.Drawing.Point(418, 93) Me.txtTotSav2.Name = "txtTotSav2" Me.txtTotSav2.ReadOnly = True Me.txtTotSav2.Size = New System.Drawing.Size(98, 28) Me.txtTotSav2.TabIndex = 71 ' 'txtNetLossGain ' Me.txtNetLossGain.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtNetLossGain.Location = New System.Drawing.Point(418, 155) Me.txtNetLossGain.Name = "txtNetLossGain" Me.txtNetLossGain.ReadOnly = True Me.txtNetLossGain.Size = New System.Drawing.Size(98, 28) Me.txtNetLossGain.TabIndex = 72 ' 'PictureBox2 ' Me.PictureBox2.BackColor = System.Drawing.SystemColors.ActiveCaption Me.PictureBox2.Location = New System.Drawing.Point(1171, 76) Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Size = New System.Drawing.Size(14, 754) Me.PictureBox2.TabIndex = 74 Me.PictureBox2.TabStop = False ' 'Label36 ' Me.Label36.AutoSize = True Me.Label36.Location = New System.Drawing.Point(11, 142) Me.Label36.Name = "Label36" Me.Label36.Size = New System.Drawing.Size(0, 20) Me.Label36.TabIndex = 76 ' 'btnInfo ' Me.btnInfo.BackColor = System.Drawing.Color.MistyRose Me.btnInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnInfo.Location = New System.Drawing.Point(87, 52) Me.btnInfo.Name = "btnInfo" Me.btnInfo.Size = New System.Drawing.Size(167, 43) Me.btnInfo.TabIndex = 80 Me.btnInfo.Text = "Instructions" Me.btnInfo.UseVisualStyleBackColor = False ' 'Chart1 ' ChartArea4.Name = "ChartArea1" Me.Chart1.ChartAreas.Add(ChartArea4) Legend4.Name = "Legend1" Me.Chart1.Legends.Add(Legend4) Me.Chart1.Location = New System.Drawing.Point(1201, 494) Me.Chart1.Name = "Chart1" Series4.ChartArea = "ChartArea1" Series4.Legend = "Legend1" Series4.Name = "CBA" Me.Chart1.Series.Add(Series4) Me.Chart1.Size = New System.Drawing.Size(535, 353) Me.Chart1.TabIndex = 85 Me.Chart1.Text = "Chart1" ' 'Label38 ' Me.Label38.AutoSize = True Me.Label38.Location = New System.Drawing.Point(14, 337) Me.Label38.Name = "Label38" Me.Label38.Size = New System.Drawing.Size(237, 20) Me.Label38.TabIndex = 86 Me.Label38.Text = "Post-retrofit energy cost (€/kWh)" ' 'txtEnCostPost ' Me.txtEnCostPost.Location = New System.Drawing.Point(289, 331) Me.txtEnCostPost.Name = "txtEnCostPost" Me.txtEnCostPost.Size = New System.Drawing.Size(75, 26) Me.txtEnCostPost.TabIndex = 87 Me.txtEnCostPost.Text = "0.09" ' 'Label41 ' Me.Label41.AutoSize = True Me.Label41.Location = New System.Drawing.Point(11, 37) Me.Label41.Name = "Label41" Me.Label41.Size = New System.Drawing.Size(160, 20) Me.Label41.TabIndex = 92 Me.Label41.Text = "PV annual income (€)" ' 'txtPVannaulIncome ' Me.txtPVannaulIncome.Location = New System.Drawing.Point(246, 34) Me.txtPVannaulIncome.Name = "txtPVannaulIncome" Me.txtPVannaulIncome.Size = New System.Drawing.Size(92, 26) Me.txtPVannaulIncome.TabIndex = 93 Me.txtPVannaulIncome.Text = "0" ' 'Label42 ' Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label42.ForeColor = System.Drawing.Color.Blue Me.Label42.Location = New System.Drawing.Point(8, 70) Me.Label42.Name = "Label42" Me.Label42.Size = New System.Drawing.Size(424, 55) Me.Label42.TabIndex = 95 Me.Label42.Text = "If rented, percentage of NPV costs that would be recovered through cost-neutral r" & "ent increase (%)" ' 'txtPCRecov ' Me.txtPCRecov.Location = New System.Drawing.Point(438, 81) Me.txtPCRecov.Name = "txtPCRecov" Me.txtPCRecov.ReadOnly = True Me.txtPCRecov.Size = New System.Drawing.Size(74, 26) Me.txtPCRecov.TabIndex = 96 ' 'txtCostNeutRentInc ' Me.txtCostNeutRentInc.Location = New System.Drawing.Point(438, 36) Me.txtCostNeutRentInc.Name = "txtCostNeutRentInc" Me.txtCostNeutRentInc.ReadOnly = True Me.txtCostNeutRentInc.Size = New System.Drawing.Size(74, 26) Me.txtCostNeutRentInc.TabIndex = 97 ' 'Label43 ' Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label43.ForeColor = System.Drawing.Color.Blue Me.Label43.Location = New System.Drawing.Point(8, 42) Me.Label43.Name = "Label43" Me.Label43.Size = New System.Drawing.Size(388, 35) Me.Label43.TabIndex = 98 Me.Label43.Text = "If rented, cost-neutral rent increase (€/m2)" ' 'Button1 ' Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button1.Location = New System.Drawing.Point(481, 53) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(160, 43) Me.Button1.TabIndex = 99 Me.Button1.Text = "Recalculate" Me.Button1.UseVisualStyleBackColor = False ' 'Label44 ' Me.Label44.Location = New System.Drawing.Point(10, 68) Me.Label44.Name = "Label44" Me.Label44.Size = New System.Drawing.Size(231, 51) Me.Label44.TabIndex = 100 Me.Label44.Text = "Alternative investment time horizon (y)" ' 'txtAltInvHzn ' Me.txtAltInvHzn.Location = New System.Drawing.Point(271, 71) Me.txtAltInvHzn.Name = "txtAltInvHzn" Me.txtAltInvHzn.Size = New System.Drawing.Size(67, 26) Me.txtAltInvHzn.TabIndex = 101 Me.txtAltInvHzn.Text = "25" ' 'PictureBox3 ' Me.PictureBox3.BackColor = System.Drawing.SystemColors.ActiveCaption Me.PictureBox3.Location = New System.Drawing.Point(756, 71) Me.PictureBox3.Name = "PictureBox3" Me.PictureBox3.Size = New System.Drawing.Size(10, 769) Me.PictureBox3.TabIndex = 102 Me.PictureBox3.TabStop = False ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.SystemColors.GradientActiveCaption Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel1.Controls.Add(Me.txtNPVSubLoanRepayments) Me.Panel1.Controls.Add(Me.txtSubLoanTotRepay) Me.Panel1.Controls.Add(Me.txtSubLoanMthlyRepay) Me.Panel1.Controls.Add(Me.Label54) Me.Panel1.Controls.Add(Me.Label53) Me.Panel1.Controls.Add(Me.Label52) Me.Panel1.Controls.Add(Me.txtSubLoanYrs) Me.Panel1.Controls.Add(Me.txtSubIntRate) Me.Panel1.Controls.Add(Me.txtSubLoan) Me.Panel1.Controls.Add(Me.Label50) Me.Panel1.Controls.Add(Me.Label49) Me.Panel1.Controls.Add(Me.Label48) Me.Panel1.Controls.Add(Me.Label45) Me.Panel1.Location = New System.Drawing.Point(389, 103) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(349, 237) Me.Panel1.TabIndex = 103 ' 'txtNPVSubLoanRepayments ' Me.txtNPVSubLoanRepayments.Location = New System.Drawing.Point(253, 193) Me.txtNPVSubLoanRepayments.Name = "txtNPVSubLoanRepayments" Me.txtNPVSubLoanRepayments.ReadOnly = True Me.txtNPVSubLoanRepayments.Size = New System.Drawing.Size(90, 26) Me.txtNPVSubLoanRepayments.TabIndex = 12 ' 'txtSubLoanTotRepay ' Me.txtSubLoanTotRepay.Location = New System.Drawing.Point(253, 158) Me.txtSubLoanTotRepay.Name = "txtSubLoanTotRepay" Me.txtSubLoanTotRepay.ReadOnly = True Me.txtSubLoanTotRepay.Size = New System.Drawing.Size(91, 26) Me.txtSubLoanTotRepay.TabIndex = 11 ' 'txtSubLoanMthlyRepay ' Me.txtSubLoanMthlyRepay.Location = New System.Drawing.Point(255, 127) Me.txtSubLoanMthlyRepay.Name = "txtSubLoanMthlyRepay" Me.txtSubLoanMthlyRepay.ReadOnly = True Me.txtSubLoanMthlyRepay.Size = New System.Drawing.Size(88, 26) Me.txtSubLoanMthlyRepay.TabIndex = 10 ' 'Label54 ' Me.Label54.AutoSize = True Me.Label54.Location = New System.Drawing.Point(6, 196) Me.Label54.Name = "Label54" Me.Label54.Size = New System.Drawing.Size(243, 20) Me.Label54.TabIndex = 9 Me.Label54.Text = "Net Pres Value of repayments (€)" ' 'Label53 ' Me.Label53.AutoSize = True Me.Label53.Location = New System.Drawing.Point(9, 161) Me.Label53.Name = "Label53" Me.Label53.Size = New System.Drawing.Size(154, 20) Me.Label53.TabIndex = 8 Me.Label53.Text = "Total repayments (€)" ' 'Label52 ' Me.Label52.AutoSize = True Me.Label52.Location = New System.Drawing.Point(9, 130) Me.Label52.Name = "Label52" Me.Label52.Size = New System.Drawing.Size(174, 20) Me.Label52.TabIndex = 7 Me.Label52.Text = "Monthly repayments (€)" ' 'txtSubLoanYrs ' Me.txtSubLoanYrs.Location = New System.Drawing.Point(279, 95) Me.txtSubLoanYrs.Name = "txtSubLoanYrs" Me.txtSubLoanYrs.Size = New System.Drawing.Size(65, 26) Me.txtSubLoanYrs.TabIndex = 6 Me.txtSubLoanYrs.Text = "10" ' 'txtSubIntRate ' Me.txtSubIntRate.Location = New System.Drawing.Point(279, 63) Me.txtSubIntRate.Name = "txtSubIntRate" Me.txtSubIntRate.Size = New System.Drawing.Size(65, 26) Me.txtSubIntRate.TabIndex = 5 Me.txtSubIntRate.Text = "1" ' 'txtSubLoan ' Me.txtSubLoan.Location = New System.Drawing.Point(253, 30) Me.txtSubLoan.Name = "txtSubLoan" Me.txtSubLoan.Size = New System.Drawing.Size(91, 26) Me.txtSubLoan.TabIndex = 4 Me.txtSubLoan.Text = "0" ' 'Label50 ' Me.Label50.AutoSize = True Me.Label50.Location = New System.Drawing.Point(10, 101) Me.Label50.Name = "Label50" Me.Label50.Size = New System.Drawing.Size(149, 20) Me.Label50.TabIndex = 3 Me.Label50.Text = "Term of loan (years)" ' 'Label49 ' Me.Label49.AutoSize = True Me.Label49.Location = New System.Drawing.Point(10, 65) Me.Label49.Name = "Label49" Me.Label49.Size = New System.Drawing.Size(135, 20) Me.Label49.TabIndex = 2 Me.Label49.Text = "Interest rate (%/y)" ' 'Label48 ' Me.Label48.AutoSize = True Me.Label48.Location = New System.Drawing.Point(10, 36) Me.Label48.Name = "Label48" Me.Label48.Size = New System.Drawing.Size(97, 20) Me.Label48.TabIndex = 1 Me.Label48.Text = "Amnount (€)" ' 'Label45 ' Me.Label45.AutoSize = True Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label45.Location = New System.Drawing.Point(6, 10) Me.Label45.Name = "Label45" Me.Label45.Size = New System.Drawing.Size(189, 20) Me.Label45.TabIndex = 0 Me.Label45.Text = "Subsidised loan, if any" ' 'Panel2 ' Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer)) Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel2.Controls.Add(Me.Label51) Me.Panel2.Controls.Add(Me.txtNonSubLoan) Me.Panel2.Controls.Add(Me.Label47) Me.Panel2.Controls.Add(Me.Label8) Me.Panel2.Controls.Add(Me.txtIntRate) Me.Panel2.Controls.Add(Me.Label9) Me.Panel2.Controls.Add(Me.txtLoanTerm) Me.Panel2.Controls.Add(Me.Label12) Me.Panel2.Controls.Add(Me.txtLoanMthlyRepay) Me.Panel2.Controls.Add(Me.Label13) Me.Panel2.Controls.Add(Me.txtTotalRepay) Me.Panel2.Controls.Add(Me.Label14) Me.Panel2.Controls.Add(Me.txtNPVLoan) Me.Panel2.Location = New System.Drawing.Point(389, 350) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(349, 224) Me.Panel2.TabIndex = 104 ' 'Label51 ' Me.Label51.AutoSize = True Me.Label51.Location = New System.Drawing.Point(6, 23) Me.Label51.Name = "Label51" Me.Label51.Size = New System.Drawing.Size(88, 20) Me.Label51.TabIndex = 20 Me.Label51.Text = "Amount (€)" ' 'txtNonSubLoan ' Me.txtNonSubLoan.Location = New System.Drawing.Point(247, 14) Me.txtNonSubLoan.Name = "txtNonSubLoan" Me.txtNonSubLoan.ReadOnly = True Me.txtNonSubLoan.Size = New System.Drawing.Size(97, 26) Me.txtNonSubLoan.TabIndex = 19 ' 'Label47 ' Me.Label47.AutoSize = True Me.Label47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label47.Location = New System.Drawing.Point(3, 0) Me.Label47.Name = "Label47" Me.Label47.Size = New System.Drawing.Size(171, 20) Me.Label47.TabIndex = 0 Me.Label47.Text = "Non-subsidised laon" ' 'Panel3 ' Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel3.Controls.Add(Me.Label55) Me.Panel3.Controls.Add(Me.Label11) Me.Panel3.Controls.Add(Me.txtOppInt) Me.Panel3.Controls.Add(Me.Label44) Me.Panel3.Controls.Add(Me.txtAltInvHzn) Me.Panel3.Controls.Add(Me.Label15) Me.Panel3.Controls.Add(Me.txtOppCosts) Me.Panel3.Location = New System.Drawing.Point(14, 679) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(348, 161) Me.Panel3.TabIndex = 106 ' 'Label55 ' Me.Label55.AutoSize = True Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label55.Location = New System.Drawing.Point(7, 10) Me.Label55.Name = "Label55" Me.Label55.Size = New System.Drawing.Size(150, 20) Me.Label55.TabIndex = 0 Me.Label55.Text = "Opportunity costs" ' 'Label56 ' Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label56.Location = New System.Drawing.Point(396, 596) Me.Label56.Name = "Label56" Me.Label56.Size = New System.Drawing.Size(217, 87) Me.Label56.TabIndex = 107 Me.Label56.Text = "Total net present value of costs of energy efficiency (and PV if any) (€)" ' 'txtNPVTotCost ' Me.txtNPVTotCost.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtNPVTotCost.Location = New System.Drawing.Point(638, 628) Me.txtNPVTotCost.Name = "txtNPVTotCost" Me.txtNPVTotCost.ReadOnly = True Me.txtNPVTotCost.Size = New System.Drawing.Size(107, 26) Me.txtNPVTotCost.TabIndex = 108 ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.SeaShell Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel4.Controls.Add(Me.Label64) Me.Panel4.Controls.Add(Me.txtPVLifetime) Me.Panel4.Controls.Add(Me.Label60) Me.Panel4.Controls.Add(Me.txtNPVPVEarnings) Me.Panel4.Controls.Add(Me.Label59) Me.Panel4.Controls.Add(Me.txtPVProdn) Me.Panel4.Controls.Add(Me.Label58) Me.Panel4.Controls.Add(Me.Label57) Me.Panel4.Controls.Add(Me.Label41) Me.Panel4.Controls.Add(Me.txtPVannaulIncome) Me.Panel4.Location = New System.Drawing.Point(14, 497) Me.Panel4.Name = "Panel4" Me.Panel4.Size = New System.Drawing.Size(348, 168) Me.Panel4.TabIndex = 109 ' 'Label64 ' Me.Label64.AutoSize = True Me.Label64.BackColor = System.Drawing.Color.Moccasin Me.Label64.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label64.Location = New System.Drawing.Point(172, 132) Me.Label64.Name = "Label64" Me.Label64.Size = New System.Drawing.Size(54, 22) Me.Label64.TabIndex = 117 Me.Label64.Text = "Note!" ' 'txtPVLifetime ' Me.txtPVLifetime.Location = New System.Drawing.Point(253, 98) Me.txtPVLifetime.Name = "txtPVLifetime" Me.txtPVLifetime.Size = New System.Drawing.Size(86, 26) Me.txtPVLifetime.TabIndex = 99 Me.txtPVLifetime.Text = "25" ' 'Label60 ' Me.Label60.AutoSize = True Me.Label60.Location = New System.Drawing.Point(10, 98) Me.Label60.Name = "Label60" Me.Label60.Size = New System.Drawing.Size(240, 20) Me.Label60.TabIndex = 98 Me.Label60.Text = "Expected lifetime of PV sytem (y)" ' 'txtNPVPVEarnings ' Me.txtNPVPVEarnings.Location = New System.Drawing.Point(244, 130) Me.txtNPVPVEarnings.Name = "txtNPVPVEarnings" Me.txtNPVPVEarnings.ReadOnly = True Me.txtNPVPVEarnings.Size = New System.Drawing.Size(95, 26) Me.txtNPVPVEarnings.TabIndex = 97 ' 'Label59 ' Me.Label59.AutoSize = True Me.Label59.Location = New System.Drawing.Point(9, 130) Me.Label59.Name = "Label59" Me.Label59.Size = New System.Drawing.Size(162, 20) Me.Label59.TabIndex = 96 Me.Label59.Text = "NPV of PV income (€)" ' 'txtPVProdn ' Me.txtPVProdn.Location = New System.Drawing.Point(245, 66) Me.txtPVProdn.Name = "txtPVProdn" Me.txtPVProdn.Size = New System.Drawing.Size(93, 26) Me.txtPVProdn.TabIndex = 95 Me.txtPVProdn.Text = "0" ' 'Label58 ' Me.Label58.AutoSize = True Me.Label58.Location = New System.Drawing.Point(10, 69) Me.Label58.Name = "Label58" Me.Label58.Size = New System.Drawing.Size(207, 20) Me.Label58.TabIndex = 94 Me.Label58.Text = "PV annual production (kWh)" ' 'Label57 ' Me.Label57.AutoSize = True Me.Label57.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label57.Location = New System.Drawing.Point(7, 7) Me.Label57.Name = "Label57" Me.Label57.Size = New System.Drawing.Size(176, 20) Me.Label57.TabIndex = 0 Me.Label57.Text = "Photovoltaics (if any)" ' 'Label61 ' Me.Label61.Location = New System.Drawing.Point(9, 311) Me.Label61.Name = "Label61" Me.Label61.Size = New System.Drawing.Size(233, 63) Me.Label61.TabIndex = 110 Me.Label61.Text = "Expected lifetime of energy-efficiency renovation measures (y)" ' 'txtRenLifetime ' Me.txtRenLifetime.Location = New System.Drawing.Point(272, 330) Me.txtRenLifetime.Name = "txtRenLifetime" Me.txtRenLifetime.Size = New System.Drawing.Size(67, 26) Me.txtRenLifetime.TabIndex = 111 Me.txtRenLifetime.Text = "25" ' 'lblExpl1 ' Me.lblExpl1.AutoSize = True Me.lblExpl1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) Me.lblExpl1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.lblExpl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblExpl1.Location = New System.Drawing.Point(119, 103) Me.lblExpl1.Name = "lblExpl1" Me.lblExpl1.Size = New System.Drawing.Size(54, 22) Me.lblExpl1.TabIndex = 112 Me.lblExpl1.Text = "Note!" ' 'lblExpl2 ' Me.lblExpl2.AutoSize = True Me.lblExpl2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) Me.lblExpl2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.lblExpl2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblExpl2.Location = New System.Drawing.Point(123, 439) Me.lblExpl2.Name = "lblExpl2" Me.lblExpl2.Size = New System.Drawing.Size(54, 22) Me.lblExpl2.TabIndex = 113 Me.lblExpl2.Text = "Note!" ' 'Label62 ' Me.Label62.AutoSize = True Me.Label62.Location = New System.Drawing.Point(12, 378) Me.Label62.Name = "Label62" Me.Label62.Size = New System.Drawing.Size(227, 20) Me.Label62.TabIndex = 114 Me.Label62.Text = "Energy price inflation rate (%/y)" ' 'txtEnPriceInfln ' Me.txtEnPriceInfln.Location = New System.Drawing.Point(293, 375) Me.txtEnPriceInfln.Name = "txtEnPriceInfln" Me.txtEnPriceInfln.Size = New System.Drawing.Size(71, 26) Me.txtEnPriceInfln.TabIndex = 115 Me.txtEnPriceInfln.Text = "1.0" ' 'Label63 ' Me.Label63.AutoSize = True Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label63.Location = New System.Drawing.Point(9, 7) Me.Label63.Name = "Label63" Me.Label63.Size = New System.Drawing.Size(130, 20) Me.Label63.TabIndex = 116 Me.Label63.Text = "Energy savings" ' 'Panel5 ' Me.Panel5.BackColor = System.Drawing.Color.Thistle Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel5.Controls.Add(Me.Label16) Me.Panel5.Controls.Add(Me.Label63) Me.Panel5.Controls.Add(Me.Label17) Me.Panel5.Controls.Add(Me.lblExpl2) Me.Panel5.Controls.Add(Me.txtEnPriceInfln) Me.Panel5.Controls.Add(Me.txtPreRetCons) Me.Panel5.Controls.Add(Me.Label62) Me.Panel5.Controls.Add(Me.txtPostRetCons) Me.Panel5.Controls.Add(Me.lblExpl1) Me.Panel5.Controls.Add(Me.Label18) Me.Panel5.Controls.Add(Me.txtEnSaved) Me.Panel5.Controls.Add(Me.Label19) Me.Panel5.Controls.Add(Me.txtFloorArea) Me.Panel5.Controls.Add(Me.Label20) Me.Panel5.Controls.Add(Me.txtEnCost) Me.Panel5.Controls.Add(Me.comboPreRet) Me.Panel5.Controls.Add(Me.Label21) Me.Panel5.Controls.Add(Me.Label36) Me.Panel5.Controls.Add(Me.Label23) Me.Panel5.Controls.Add(Me.comboPostRet) Me.Panel5.Controls.Add(Me.Label38) Me.Panel5.Controls.Add(Me.txtEnCostPost) Me.Panel5.Controls.Add(Me.Label28) Me.Panel5.Controls.Add(Me.Label29) Me.Panel5.Controls.Add(Me.txtEnCostSav) Me.Panel5.Controls.Add(Me.txtNPVEnCostSav) Me.Panel5.Location = New System.Drawing.Point(776, 76) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(376, 508) Me.Panel5.TabIndex = 117 ' 'Label37 ' Me.Label37.AutoSize = True Me.Label37.Location = New System.Drawing.Point(4, 111) Me.Label37.Name = "Label37" Me.Label37.Size = New System.Drawing.Size(266, 20) Me.Label37.TabIndex = 118 Me.Label37.Text = "CO2 savings from PV, if any (tCO2/y)" ' 'txtPVCO2SavPy ' Me.txtPVCO2SavPy.Location = New System.Drawing.Point(293, 114) Me.txtPVCO2SavPy.Name = "txtPVCO2SavPy" Me.txtPVCO2SavPy.ReadOnly = True Me.txtPVCO2SavPy.Size = New System.Drawing.Size(73, 26) Me.txtPVCO2SavPy.TabIndex = 119 ' 'Panel6 ' Me.Panel6.BackColor = System.Drawing.Color.LemonChiffon Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel6.Controls.Add(Me.Label70) Me.Panel6.Controls.Add(Me.Label32) Me.Panel6.Controls.Add(Me.txtPVCO2SavPy) Me.Panel6.Controls.Add(Me.Label24) Me.Panel6.Controls.Add(Me.Label37) Me.Panel6.Controls.Add(Me.Label25) Me.Panel6.Controls.Add(Me.txtPreRetCO2) Me.Panel6.Controls.Add(Me.txtPostRetCO2) Me.Panel6.Controls.Add(Me.txt25YCO2sav) Me.Panel6.Controls.Add(Me.Label26) Me.Panel6.Controls.Add(Me.Label27) Me.Panel6.Controls.Add(Me.txtEuroPTCO2) Me.Panel6.Location = New System.Drawing.Point(776, 603) Me.Panel6.Name = "Panel6" Me.Panel6.Size = New System.Drawing.Size(376, 237) Me.Panel6.TabIndex = 120 ' 'Label70 ' Me.Label70.AutoSize = True Me.Label70.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Label70.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label70.Location = New System.Drawing.Point(212, 198) Me.Label70.Name = "Label70" Me.Label70.Size = New System.Drawing.Size(54, 22) Me.Label70.TabIndex = 120 Me.Label70.Text = "Note!" ' 'Label32 ' Me.Label32.AutoSize = True Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label32.Location = New System.Drawing.Point(4, 6) Me.Label32.Name = "Label32" Me.Label32.Size = New System.Drawing.Size(222, 20) Me.Label32.TabIndex = 0 Me.Label32.Text = "CO2 emissions reductions " ' 'Panel7 ' Me.Panel7.BackColor = System.Drawing.Color.MistyRose Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel7.Controls.Add(Me.txtCO2pcInc) Me.Panel7.Controls.Add(Me.Label46) Me.Panel7.Controls.Add(Me.Label40) Me.Panel7.Controls.Add(Me.Label22) Me.Panel7.Controls.Add(Me.txtCO2TaxRate) Me.Panel7.Controls.Add(Me.Label31) Me.Panel7.Controls.Add(Me.txtNPVTaxSav) Me.Panel7.Location = New System.Drawing.Point(396, 693) Me.Panel7.Name = "Panel7" Me.Panel7.Size = New System.Drawing.Size(347, 147) Me.Panel7.TabIndex = 121 ' 'txtCO2pcInc ' Me.txtCO2pcInc.Location = New System.Drawing.Point(257, 68) Me.txtCO2pcInc.Name = "txtCO2pcInc" Me.txtCO2pcInc.Size = New System.Drawing.Size(72, 26) Me.txtCO2pcInc.TabIndex = 66 Me.txtCO2pcInc.Text = "1.0" ' 'Label46 ' Me.Label46.AutoSize = True Me.Label46.Location = New System.Drawing.Point(4, 71) Me.Label46.Name = "Label46" Me.Label46.Size = New System.Drawing.Size(239, 20) Me.Label46.TabIndex = 65 Me.Label46.Text = "Annual increase in CO2 tax (%/y)" ' 'Label40 ' Me.Label40.AutoSize = True Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label40.Location = New System.Drawing.Point(3, 4) Me.Label40.Name = "Label40" Me.Label40.Size = New System.Drawing.Size(138, 20) Me.Label40.TabIndex = 64 Me.Label40.Text = "CO2 tax savings" ' 'Label65 ' Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label65.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) Me.Label65.Location = New System.Drawing.Point(8, 190) Me.Label65.Name = "Label65" Me.Label65.Size = New System.Drawing.Size(378, 44) Me.Label65.TabIndex = 123 Me.Label65.Text = "Your percentage payback over the lifetime of the renovations is: (%)" ' 'txtPCPayback ' Me.txtPCPayback.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtPCPayback.Location = New System.Drawing.Point(418, 197) Me.txtPCPayback.Name = "txtPCPayback" Me.txtPCPayback.ReadOnly = True Me.txtPCPayback.Size = New System.Drawing.Size(97, 26) Me.txtPCPayback.TabIndex = 124 ' 'Panel8 ' Me.Panel8.BackColor = System.Drawing.Color.Linen Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel8.Controls.Add(Me.Label30) Me.Panel8.Controls.Add(Me.Label66) Me.Panel8.Controls.Add(Me.Label43) Me.Panel8.Controls.Add(Me.txtCostNeutRentInc) Me.Panel8.Controls.Add(Me.Label42) Me.Panel8.Controls.Add(Me.txtPCRecov) Me.Panel8.Location = New System.Drawing.Point(1201, 337) Me.Panel8.Name = "Panel8" Me.Panel8.Size = New System.Drawing.Size(535, 146) Me.Panel8.TabIndex = 125 ' 'Label30 ' Me.Label30.AutoSize = True Me.Label30.BackColor = System.Drawing.Color.PeachPuff Me.Label30.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label30.Location = New System.Drawing.Point(446, 114) Me.Label30.Name = "Label30" Me.Label30.Size = New System.Drawing.Size(54, 22) Me.Label30.TabIndex = 100 Me.Label30.Text = "Note!" ' 'Label66 ' Me.Label66.AutoSize = True Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label66.Location = New System.Drawing.Point(3, 12) Me.Label66.Name = "Label66" Me.Label66.Size = New System.Drawing.Size(114, 20) Me.Label66.TabIndex = 99 Me.Label66.Text = "For landlords" ' 'Panel9 ' Me.Panel9.BackColor = System.Drawing.Color.Aquamarine Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel9.Controls.Add(Me.Label67) Me.Panel9.Controls.Add(Me.Label33) Me.Panel9.Controls.Add(Me.Label34) Me.Panel9.Controls.Add(Me.txtPCPayback) Me.Panel9.Controls.Add(Me.txtTotCosts2) Me.Panel9.Controls.Add(Me.Label65) Me.Panel9.Controls.Add(Me.txtTotSav2) Me.Panel9.Controls.Add(Me.Label35) Me.Panel9.Controls.Add(Me.txtNetLossGain) Me.Panel9.Location = New System.Drawing.Point(1201, 78) Me.Panel9.Name = "Panel9" Me.Panel9.Size = New System.Drawing.Size(535, 245) Me.Panel9.TabIndex = 126 ' 'Label67 ' Me.Label67.AutoSize = True Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label67.Location = New System.Drawing.Point(8, 14) Me.Label67.Name = "Label67" Me.Label67.Size = New System.Drawing.Size(229, 22) Me.Label67.TabIndex = 125 Me.Label67.Text = "Summary of main results" ' 'Panel10 ' Me.Panel10.BackColor = System.Drawing.Color.PowderBlue Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel10.Controls.Add(Me.Label3) Me.Panel10.Controls.Add(Me.Label1) Me.Panel10.Controls.Add(Me.txtTotalCost) Me.Panel10.Controls.Add(Me.Label2) Me.Panel10.Controls.Add(Me.txtAnyway) Me.Panel10.Controls.Add(Me.Label4) Me.Panel10.Controls.Add(Me.lblEnEffCosts) Me.Panel10.Controls.Add(Me.txtRenLifetime) Me.Panel10.Controls.Add(Me.txtEnEffCost) Me.Panel10.Controls.Add(Me.Label61) Me.Panel10.Controls.Add(Me.Label5) Me.Panel10.Controls.Add(Me.txtOwnCap) Me.Panel10.Controls.Add(Me.Label6) Me.Panel10.Controls.Add(Me.txtSubsidies) Me.Panel10.Controls.Add(Me.Label7) Me.Panel10.Controls.Add(Me.txtBorrowed) Me.Panel10.Controls.Add(Me.Label10) Me.Panel10.Controls.Add(Me.txtDiscRate) Me.Panel10.Location = New System.Drawing.Point(12, 101) Me.Panel10.Name = "Panel10" Me.Panel10.Size = New System.Drawing.Size(350, 382) Me.Panel10.TabIndex = 127 ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label3.Location = New System.Drawing.Point(7, 1) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(69, 22) Me.Label3.TabIndex = 112 Me.Label3.Text = "Basics" ' 'btnExport ' Me.btnExport.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnExport.Location = New System.Drawing.Point(1253, 861) Me.btnExport.Name = "btnExport" Me.btnExport.Size = New System.Drawing.Size(432, 42) Me.btnExport.TabIndex = 129 Me.btnExport.Text = "Export results and input data to spreadsheet" Me.btnExport.UseVisualStyleBackColor = True ' 'txtRunNum ' Me.txtRunNum.Location = New System.Drawing.Point(14, 866) Me.txtRunNum.Name = "txtRunNum" Me.txtRunNum.ReadOnly = True Me.txtRunNum.Size = New System.Drawing.Size(38, 26) Me.txtRunNum.TabIndex = 133 Me.txtRunNum.Text = "0" ' 'SaveFileDialog1 ' ' 'Label39 ' Me.Label39.AutoSize = True Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label39.Location = New System.Drawing.Point(283, 872) Me.Label39.Name = "Label39" Me.Label39.Size = New System.Drawing.Size(455, 20) Me.Label39.TabIndex = 134 Me.Label39.Text = "Give your scenario a name, e.g. Hamburg Bldg1, EH100" ' 'txtScenario ' Me.txtScenario.Location = New System.Drawing.Point(776, 869) Me.txtScenario.Name = "txtScenario" Me.txtScenario.Size = New System.Drawing.Size(444, 26) Me.txtScenario.TabIndex = 135 ' 'txtPath ' Me.txtPath.Location = New System.Drawing.Point(58, 866) Me.txtPath.Name = "txtPath" Me.txtPath.ReadOnly = True Me.txtPath.Size = New System.Drawing.Size(36, 26) Me.txtPath.TabIndex = 136 ' 'Label68 ' Me.Label68.AutoSize = True Me.Label68.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label68.Location = New System.Drawing.Point(10, 18) Me.Label68.Name = "Label68" Me.Label68.Size = New System.Drawing.Size(816, 25) Me.Label68.TabIndex = 137 Me.Label68.Text = "Cost-benefit tool for energy-efficiency renovation of Germany's residential build" & "ings." ' 'Label69 ' Me.Label69.AutoSize = True Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label69.Location = New System.Drawing.Point(8, 908) Me.Label69.Name = "Label69" Me.Label69.Size = New System.Drawing.Size(630, 20) Me.Label69.TabIndex = 138 Me.Label69.Text = "Software designed by Ray Galvin for FCN, RWTH Aachen University. Open source code" & "." ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1783, 937) Me.Controls.Add(Me.Label69) Me.Controls.Add(Me.Label68) Me.Controls.Add(Me.txtPath) Me.Controls.Add(Me.txtScenario) Me.Controls.Add(Me.Label39) Me.Controls.Add(Me.txtRunNum) Me.Controls.Add(Me.btnExport) Me.Controls.Add(Me.Panel10) Me.Controls.Add(Me.Panel9) Me.Controls.Add(Me.Panel8) Me.Controls.Add(Me.Panel7) Me.Controls.Add(Me.Panel6) Me.Controls.Add(Me.Panel5) Me.Controls.Add(Me.Panel4) Me.Controls.Add(Me.txtNPVTotCost) Me.Controls.Add(Me.Label56) Me.Controls.Add(Me.Panel3) Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.PictureBox3) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Chart1) Me.Controls.Add(Me.btnInfo) Me.Controls.Add(Me.PictureBox2) Me.Controls.Add(Me.PictureBox1) Me.Name = "Form1" Me.Text = "Owner Occupier with PV option Vs11 Beta 3" CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Chart1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.Panel2.ResumeLayout(False) Me.Panel2.PerformLayout() Me.Panel3.ResumeLayout(False) Me.Panel3.PerformLayout() Me.Panel4.ResumeLayout(False) Me.Panel4.PerformLayout() Me.Panel5.ResumeLayout(False) Me.Panel5.PerformLayout() Me.Panel6.ResumeLayout(False) Me.Panel6.PerformLayout() Me.Panel7.ResumeLayout(False) Me.Panel7.PerformLayout() Me.Panel8.ResumeLayout(False) Me.Panel8.PerformLayout() Me.Panel9.ResumeLayout(False) Me.Panel9.PerformLayout() Me.Panel10.ResumeLayout(False) Me.Panel10.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents txtTotalCost As TextBox Friend WithEvents txtAnyway As TextBox Friend WithEvents Label1 As Label Friend WithEvents Label2 As Label Friend WithEvents Label4 As Label Friend WithEvents lblEnEffCosts As Label Friend WithEvents txtEnEffCost As TextBox Friend WithEvents Label5 As Label Friend WithEvents txtOwnCap As TextBox Friend WithEvents Label6 As Label Friend WithEvents txtSubsidies As TextBox Friend WithEvents Label7 As Label Friend WithEvents txtBorrowed As TextBox Friend WithEvents Label8 As Label Friend WithEvents txtIntRate As TextBox Friend WithEvents Label9 As Label Friend WithEvents txtLoanTerm As TextBox Friend WithEvents Label10 As Label Friend WithEvents txtDiscRate As TextBox Friend WithEvents Label11 As Label Friend WithEvents txtOppInt As TextBox Friend WithEvents Label12 As Label Friend WithEvents txtLoanMthlyRepay As TextBox Friend WithEvents Label13 As Label Friend WithEvents txtTotalRepay As TextBox Friend WithEvents Label14 As Label Friend WithEvents txtNPVLoan As TextBox Friend WithEvents Label15 As Label Friend WithEvents txtOppCosts As TextBox Friend WithEvents Label16 As Label Friend WithEvents PictureBox1 As PictureBox Friend WithEvents Label17 As Label Friend WithEvents Label18 As Label Friend WithEvents txtPreRetCons As TextBox Friend WithEvents txtEnSaved As TextBox Friend WithEvents Label19 As Label Friend WithEvents txtFloorArea As TextBox Friend WithEvents Label20 As Label Friend WithEvents txtEnCost As TextBox Friend WithEvents comboPreRet As ComboBox Friend WithEvents Label21 As Label Friend WithEvents Label22 As Label Friend WithEvents comboPostRet As ComboBox Friend WithEvents Label23 As Label Friend WithEvents txtCO2TaxRate As TextBox Friend WithEvents Label24 As Label Friend WithEvents Label25 As Label Friend WithEvents txtPreRetCO2 As TextBox Friend WithEvents txtPostRetCO2 As TextBox Friend WithEvents Label26 As Label Friend WithEvents txt25YCO2sav As TextBox Friend WithEvents Label27 As Label Friend WithEvents txtEuroPTCO2 As TextBox Friend WithEvents Label28 As Label Friend WithEvents Label29 As Label Friend WithEvents txtEnCostSav As TextBox Friend WithEvents txtNPVEnCostSav As TextBox Friend WithEvents Label31 As Label Friend WithEvents txtNPVTaxSav As TextBox Friend WithEvents txtPostRetCons As TextBox Friend WithEvents Label33 As Label Friend WithEvents Label34 As Label Friend WithEvents Label35 As Label Friend WithEvents txtTotCosts2 As TextBox Friend WithEvents txtTotSav2 As TextBox Friend WithEvents txtNetLossGain As TextBox Friend WithEvents PictureBox2 As PictureBox 'Friend WithEvents Chart1 As DataVisualization.Charting.Chart Friend WithEvents Label36 As Label Friend WithEvents btnInfo As Button Friend WithEvents Chart1 As DataVisualization.Charting.Chart Friend WithEvents Label38 As Label Friend WithEvents txtEnCostPost As TextBox Friend WithEvents Label41 As Label Friend WithEvents txtPVannaulIncome As TextBox Friend WithEvents Label42 As Label Friend WithEvents txtPCRecov As TextBox Friend WithEvents txtCostNeutRentInc As TextBox Friend WithEvents Label43 As Label Friend WithEvents Button1 As Button Friend WithEvents Label44 As Label Friend WithEvents txtAltInvHzn As TextBox Friend WithEvents PictureBox3 As PictureBox Friend WithEvents Panel1 As Panel Friend WithEvents Panel2 As Panel Friend WithEvents Label45 As Label Friend WithEvents Label47 As Label Friend WithEvents Label50 As Label Friend WithEvents Label49 As Label Friend WithEvents Label48 As Label Friend WithEvents txtSubIntRate As TextBox Friend WithEvents txtSubLoan As TextBox Friend WithEvents txtSubLoanYrs As TextBox Friend WithEvents Label51 As Label Friend WithEvents txtNonSubLoan As TextBox Friend WithEvents Label53 As Label Friend WithEvents Label52 As Label Friend WithEvents Label54 As Label Friend WithEvents txtNPVSubLoanRepayments As TextBox Friend WithEvents txtSubLoanTotRepay As TextBox Friend WithEvents txtSubLoanMthlyRepay As TextBox Friend WithEvents Panel3 As Panel Friend WithEvents Label55 As Label Friend WithEvents Label56 As Label Friend WithEvents txtNPVTotCost As TextBox Friend WithEvents Panel4 As Panel Friend WithEvents Label57 As Label Friend WithEvents Label58 As Label Friend WithEvents txtPVProdn As TextBox Friend WithEvents txtNPVPVEarnings As TextBox Friend WithEvents Label59 As Label Friend WithEvents Label60 As Label Friend WithEvents txtPVLifetime As TextBox Friend WithEvents Label61 As Label Friend WithEvents txtRenLifetime As TextBox Friend WithEvents lblExpl1 As Label Friend WithEvents lblExpl2 As Label Friend WithEvents Label62 As Label Friend WithEvents txtEnPriceInfln As TextBox Friend WithEvents Label64 As Label Friend WithEvents Label63 As Label Friend WithEvents Panel5 As Panel Friend WithEvents Label37 As Label Friend WithEvents txtPVCO2SavPy As TextBox Friend WithEvents Panel6 As Panel Friend WithEvents Label32 As Label Friend WithEvents Panel7 As Panel Friend WithEvents Label40 As Label Friend WithEvents txtCO2pcInc As TextBox Friend WithEvents Label46 As Label Friend WithEvents Label65 As Label Friend WithEvents txtPCPayback As TextBox Friend WithEvents Panel8 As Panel Friend WithEvents Label66 As Label Friend WithEvents Panel9 As Panel Friend WithEvents Label67 As Label Friend WithEvents Panel10 As Panel Friend WithEvents Label3 As Label Friend WithEvents btnExport As Button Friend WithEvents Label30 As Label Friend WithEvents txtRunNum As TextBox Friend WithEvents SaveFileDialog1 As SaveFileDialog Friend WithEvents Label39 As Label Friend WithEvents txtScenario As TextBox Friend WithEvents txtPath As TextBox Friend WithEvents Label68 As Label Friend WithEvents Label69 As Label Friend WithEvents Label70 As Label End Class