_ 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() Me.lblCostPerHour = New System.Windows.Forms.Label() Me.txtCostPerHour = New System.Windows.Forms.TextBox() Me.lblDisplayKiloWattHourCost = New System.Windows.Forms.Label() Me.lblSelectAppliances = New System.Windows.Forms.Label() Me.ListBox1 = New System.Windows.Forms.ListBox() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.txtNumberOfHours = New System.Windows.Forms.TextBox() Me.lblCost = New System.Windows.Forms.Label() Me.lblNumberOfHoursDisplay = New System.Windows.Forms.Label() Me.lblCostDisplay = New System.Windows.Forms.Label() Me.strOut = New System.Windows.Forms.ListBox() Me.lnlPowerNeeded = New System.Windows.Forms.Label() Me.txtPowerNeeded = New System.Windows.Forms.TextBox() Me.SuspendLayout() ' 'lblCostPerHour ' Me.lblCostPerHour.AutoSize = True Me.lblCostPerHour.Location = New System.Drawing.Point(36, 39) Me.lblCostPerHour.Name = "lblCostPerHour" Me.lblCostPerHour.Size = New System.Drawing.Size(146, 13) Me.lblCostPerHour.TabIndex = 0 Me.lblCostPerHour.Text = "Enter Cost per Kilo-Watt Hour" ' 'txtCostPerHour ' Me.txtCostPerHour.Location = New System.Drawing.Point(230, 36) Me.txtCostPerHour.Name = "txtCostPerHour" Me.txtCostPerHour.Size = New System.Drawing.Size(105, 20) Me.txtCostPerHour.TabIndex = 1 ' 'lblDisplayKiloWattHourCost ' Me.lblDisplayKiloWattHourCost.AutoSize = True Me.lblDisplayKiloWattHourCost.Location = New System.Drawing.Point(198, 91) Me.lblDisplayKiloWattHourCost.Name = "lblDisplayKiloWattHourCost" Me.lblDisplayKiloWattHourCost.Size = New System.Drawing.Size(0, 13) Me.lblDisplayKiloWattHourCost.TabIndex = 2 ' 'lblSelectAppliances ' Me.lblSelectAppliances.AutoSize = True Me.lblSelectAppliances.Location = New System.Drawing.Point(36, 153) Me.lblSelectAppliances.Name = "lblSelectAppliances" Me.lblSelectAppliances.Size = New System.Drawing.Size(123, 13) Me.lblSelectAppliances.TabIndex = 3 Me.lblSelectAppliances.Text = "Select Home Appliances" ' 'ListBox1 ' Me.ListBox1.FormattingEnabled = True Me.ListBox1.Items.AddRange(New Object() {"Air Conditioner", "Battery Charger", "Blender", "Clock", "Coffee Maker", "Crock Pot", "Curling Iron", "Dish Washer", "Dryer", "Fan", "Heater", "Microwave", "Lights", "Power Tools", "Phone Charger", "Radio", "Refrigerator", "Satellite", "Stove", "Television", "Toaster", "Vacuum", "Video Game", "Waffle Iron", "Washing Machine", "Water Heater", ""}) Me.ListBox1.Location = New System.Drawing.Point(230, 153) Me.ListBox1.Name = "ListBox1" Me.ListBox1.Size = New System.Drawing.Size(223, 69) Me.ListBox1.TabIndex = 4 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(463, 246) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(104, 13) Me.Label1.TabIndex = 5 Me.Label1.Text = "Selected Appliances" Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(36, 351) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(87, 13) Me.Label2.TabIndex = 6 Me.Label2.Text = "Number of Hours" ' 'txtNumberOfHours ' Me.txtNumberOfHours.Location = New System.Drawing.Point(230, 344) Me.txtNumberOfHours.Name = "txtNumberOfHours" Me.txtNumberOfHours.Size = New System.Drawing.Size(100, 20) Me.txtNumberOfHours.TabIndex = 7 ' 'lblCost ' Me.lblCost.AutoSize = True Me.lblCost.Location = New System.Drawing.Point(36, 408) Me.lblCost.Name = "lblCost" Me.lblCost.Size = New System.Drawing.Size(28, 13) Me.lblCost.TabIndex = 8 Me.lblCost.Text = "Cost" ' 'lblNumberOfHoursDisplay ' Me.lblNumberOfHoursDisplay.AutoSize = True Me.lblNumberOfHoursDisplay.Location = New System.Drawing.Point(463, 344) Me.lblNumberOfHoursDisplay.Name = "lblNumberOfHoursDisplay" Me.lblNumberOfHoursDisplay.Size = New System.Drawing.Size(39, 13) Me.lblNumberOfHoursDisplay.TabIndex = 10 Me.lblNumberOfHoursDisplay.Text = "Label3" ' 'lblCostDisplay ' Me.lblCostDisplay.AutoSize = True Me.lblCostDisplay.Location = New System.Drawing.Point(227, 417) Me.lblCostDisplay.Name = "lblCostDisplay" Me.lblCostDisplay.Size = New System.Drawing.Size(39, 13) Me.lblCostDisplay.TabIndex = 11 Me.lblCostDisplay.Text = "Label3" ' 'strOut ' Me.strOut.FormattingEnabled = True Me.strOut.Location = New System.Drawing.Point(50, 475) Me.strOut.Name = "strOut" Me.strOut.Size = New System.Drawing.Size(505, 95) Me.strOut.TabIndex = 12 ' 'lnlPowerNeeded ' Me.lnlPowerNeeded.AutoSize = True Me.lnlPowerNeeded.Location = New System.Drawing.Point(36, 296) Me.lnlPowerNeeded.Name = "lnlPowerNeeded" Me.lnlPowerNeeded.Size = New System.Drawing.Size(78, 13) Me.lnlPowerNeeded.TabIndex = 13 Me.lnlPowerNeeded.Text = "Power Needed" ' 'txtPowerNeeded ' Me.txtPowerNeeded.Location = New System.Drawing.Point(224, 295) Me.txtPowerNeeded.Name = "txtPowerNeeded" Me.txtPowerNeeded.Size = New System.Drawing.Size(106, 20) Me.txtPowerNeeded.TabIndex = 14 ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1133, 592) Me.Controls.Add(Me.txtPowerNeeded) Me.Controls.Add(Me.lnlPowerNeeded) Me.Controls.Add(Me.strOut) Me.Controls.Add(Me.lblCostDisplay) Me.Controls.Add(Me.lblNumberOfHoursDisplay) Me.Controls.Add(Me.lblCost) Me.Controls.Add(Me.txtNumberOfHours) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.ListBox1) Me.Controls.Add(Me.lblSelectAppliances) Me.Controls.Add(Me.lblDisplayKiloWattHourCost) Me.Controls.Add(Me.txtCostPerHour) Me.Controls.Add(Me.lblCostPerHour) Me.Name = "Form1" Me.Text = "Enhanced Home Utility Audit Program" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents lblCostPerHour As System.Windows.Forms.Label Friend WithEvents txtCostPerHour As System.Windows.Forms.TextBox Friend WithEvents lblDisplayKiloWattHourCost As System.Windows.Forms.Label Friend WithEvents lblSelectAppliances As System.Windows.Forms.Label Friend WithEvents ListBox1 As System.Windows.Forms.ListBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents txtNumberOfHours As System.Windows.Forms.TextBox Friend WithEvents lblCost As System.Windows.Forms.Label Friend WithEvents lblNumberOfHoursDisplay As System.Windows.Forms.Label Friend WithEvents lblCostDisplay As System.Windows.Forms.Label Friend WithEvents strOut As System.Windows.Forms.ListBox Friend WithEvents lnlPowerNeeded As System.Windows.Forms.Label Friend WithEvents txtPowerNeeded As System.Windows.Forms.TextBox End Class