Visual Basic (VB) is a programming environment from Microsoft in which a program
ID: 3819522 • Letter: V
Question
Visual Basic (VB) is a programming environment from Microsoft in which a programmer uses a graphical user interface (GUI) to choose and modify preselected sections of code written in the BASIC programming language.
PLEASE CREATE THE FOLLOW FORM IN VB. Place form below so I can open it in VB.
Create a program that will calculate employee's weekly pay as follows: Inputs: 1) Name 2) Hourly Rate of Pay our 3) Marital Status (Married, Single) 4) of Dependents 5) Healthcare (Yes or No) 6) Hours worked Pay Calculator Employee Information Name: Hourly Rate: Marital Status Single #Dependents: Married Health Insurance? Weekly Information Hours Worked: Weekly Pay Gross Pay: Health Insurance Federal Tax: Net Pay: Calculate Exit ClearExplanation / Answer
Form 1
Public Class Form1
Private Property decMarriedStandard__Fee As Decimal
Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
' Declaring variables
Dim decGrossPay As Decimal
Dim decTaxPay As Decimal
Dim decFedTax As Decimal
Dim decNetPay As Decimal
Dim decHourlyRate As Decimal
Dim decHourlyWork As Decimal
Dim Intdependents As Integer
Dim decTaxRate As Decimal
Dim decHealthInsurance As Decimal
Dim decTaxRtb As Decimal
Dim decTaxRtc As Decimal
Dim decTaxRtd As Decimal
' Declaring constants
Const decMarriedStandard_Fee As Decimal = 150D
Const decdependents_Fee As Decimal = 70D
Const decSingleStandard_Fee As Decimal = 75D
Const decMarriedMedical_Fee As Decimal = 100D
Const decSingleMedical_Fee As Decimal = 60D
Const decrTax_Rt As Decimal = 0.35D
Const decwTax_Rt As Decimal = 0.25D
Const decFTx_Rt As Decimal = 0.1D
Const decoFTx_Rt As Decimal = 0.15D
If Decimal.TryParse(TextHourlyRate.Text, decHourlyRate) Then
End If
If Decimal.TryParse(TextHoursWorked.Text, decHourlyWork) Then
End If
If Integer.TryParse(TextDependents.Text, Intdependents) Then
End If
If decHourlyWork > 40 Then
decGrossPay = ((decHourlyWork - 40) * (decHourlyRate * 1.5)) + (40 * decHourlyRate)
Else
decGrossPay = decHourlyRate * decHourlyWork
End If
If RadMarried.Checked = True Then
decTaxPay = decGrossPay - (decMarriedStandard__Fee + decdependents_Fee * Intdependents)
ElseIf Intdependents >= 1 Then
decTaxPay = decGrossPay - ((decdependents_Fee * Intdependents) + decMarriedStandard__Fee)
ElseIf CheckHealthInsurance.Checked = True Then
decHealthInsurance = decMarriedStandard_Fee
End If
decNetPay = decTaxPay
If decNetPay > 800 Then
decTaxRate = (decNetPay - 800) * decrTax_Rt
ElseIf decNetPay > 500 Then
decTaxRtb = (805 - 400) * decrTax_Rt
ElseIf decNetPay > 200 Then
decTaxRtc = (500 - 200) * decoFTx_Rt + 200 * decFTx_Rt
ElseIf decTaxRtd <= 200 Then
decTaxRtd = 200 * decFTx_Rt
End If
decFedTax = decTaxRate + decTaxRtb + decTaxRtc + decTaxRate
'Net Pay
decNetPay = decTaxPay - (decMarriedMedical_Fee + decFedTax)
If RadSingle.Checked = True Then
decTaxPay = decGrossPay - decSingleStandard_Fee
End If
If Intdependents >= 1 Then
decTaxPay = decGrossPay - ((decdependents_Fee * Intdependents) + decSingleStandard_Fee)
End If
If CheckHealthInsurance.Checked = True Then
lblHealthInsurance.Text = decSingleMedical_Fee.ToString("n3")
Else : decNetPay = decGrossPay - decMarriedMedical_Fee
End If
If RadMarried.Checked = True Then
decTaxPay = decGrossPay - decMarriedStandard_Fee
ElseIf Intdependents >= 1 Then
decTaxPay = decGrossPay - ((decdependents_Fee * Intdependents) + decMarriedStandard_Fee)
ElseIf CheckHealthInsurance.Checked = True Then
decHealthInsurance = decMarriedMedical_Fee
End If
' Fedral tax calculation
If decNetPay > 400 Then
decTaxRate = (decNetPay - 400) * decrTax_Rt
ElseIf decNetPay > 250 Then
decTaxRtb = (400 - 251) * decwTax_Rt
ElseIf decNetPay > 100 Then
decTaxRtc = (250 - 100) * decoFTx_Rt
ElseIf decTaxRtd = 100 * decFTx_Rt Then
Else
' Federal Tax
decFedTax = decTaxRate + decTaxRtb + decTaxRtc + decTaxRtd
'Net pay
decNetPay = decGrossPay - (decMarriedMedical_Fee + decFedTax)
End If
' Display results.
lblGrossPay.Text = decGrossPay.ToString("n3")
lblFedTax.Text = decFedTax.ToString("n3")
lblNetPay.Text = decNetPay.ToString("n3")
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
' To clear the program.
Me.Close()
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
' Clear the fields
lblFedTax.Text = String.Empty ' To clear the federal tax amount.
lblHealthInsurance.Text = String.Empty
lblGrossPay.Text = String.Empty
lblNetPay.Text = String.Empty
' Clear the text boxes
TextName.Text = String.Empty
TextDependents.Clear()
TextHourlyRate.Text = String.Empty
TextHoursWorked.Text = String.Empty
' Reset the radio buttons
RadSingle.Checked = True
'Clear the check box
CheckHealthInsurance.Checked = False
End Sub
End Class
_______________________________________________________________________________________________________________________________
Form1.designer
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form 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 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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextHourlyRate = New System.Windows.Forms.TextBox()
Me.TextName = New System.Windows.Forms.TextBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.RadSingle = New System.Windows.Forms.RadioButton()
Me.RadMarried = New System.Windows.Forms.RadioButton()
Me.Label3 = New System.Windows.Forms.Label()
Me.TextDependents = New System.Windows.Forms.TextBox()
Me.CheckHealthInsurance = New System.Windows.Forms.CheckBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.lblHourlyWorked = New System.Windows.Forms.Label()
Me.TextHoursWorked = New System.Windows.Forms.TextBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.btnCalc = New System.Windows.Forms.Button()
Me.btnClear = New System.Windows.Forms.Button()
Me.btnExit = New System.Windows.Forms.Button()
Me.lblGrossPay = New System.Windows.Forms.Label()
Me.lblHealthInsurance = New System.Windows.Forms.Label()
Me.lblFedTax = New System.Windows.Forms.Label()
Me.lblNetPay = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.TextName)
Me.GroupBox1.Controls.Add(Me.TextHourlyRate)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(22, 14)
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox1.Size = New System.Drawing.Size(359, 101)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Employee Information"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(58, 28)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(55, 20)
Me.Label1.TabIndex = 0
Me.Label1.Text = "&Name:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(76, 69)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(97, 20)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Hourly Rate:"
'
'TextHourlyRate
'
Me.TextHourlyRate.Location = New System.Drawing.Point(179, 66)
Me.TextHourlyRate.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TextHourlyRate.Name = "TextHourlyRate"
Me.TextHourlyRate.Size = New System.Drawing.Size(46, 23)
Me.TextHourlyRate.TabIndex = 2
'
'TextName
'
Me.TextName.Location = New System.Drawing.Point(147, 25)
Me.TextName.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TextName.Name = "TextName"
Me.TextName.Size = New System.Drawing.Size(187, 23)
Me.TextName.TabIndex = 1
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.CheckHealthInsurance)
Me.GroupBox2.Controls.Add(Me.TextDependents)
Me.GroupBox2.Controls.Add(Me.Label3)
Me.GroupBox2.Controls.Add(Me.RadMarried)
Me.GroupBox2.Controls.Add(Me.RadSingle)
Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox2.Location = New System.Drawing.Point(22, 113)
Me.GroupBox2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox2.Size = New System.Drawing.Size(359, 101)
Me.GroupBox2.TabIndex = 2
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Marital Status"
'
'RadSingle
'
Me.RadSingle.AutoSize = True
Me.RadSingle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RadSingle.Location = New System.Drawing.Point(12, 25)
Me.RadSingle.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.RadSingle.Name = "RadSingle"
Me.RadSingle.Size = New System.Drawing.Size(71, 24)
Me.RadSingle.TabIndex = 0
Me.RadSingle.TabStop = True
Me.RadSingle.Text = "&Single"
Me.RadSingle.UseVisualStyleBackColor = True
'
'RadMarried
'
Me.RadMarried.AutoSize = True
Me.RadMarried.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RadMarried.Location = New System.Drawing.Point(16, 66)
Me.RadMarried.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.RadMarried.Name = "RadMarried"
Me.RadMarried.Size = New System.Drawing.Size(80, 24)
Me.RadMarried.TabIndex = 1
Me.RadMarried.TabStop = True
Me.RadMarried.Text = "&Married"
Me.RadMarried.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(156, 31)
Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(114, 20)
Me.Label3.TabIndex = 2
Me.Label3.Text = "# Dependents:"
'
'TextDependents
'
Me.TextDependents.Location = New System.Drawing.Point(278, 23)
Me.TextDependents.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TextDependents.Name = "TextDependents"
Me.TextDependents.Size = New System.Drawing.Size(46, 23)
Me.TextDependents.TabIndex = 3
'
'CheckHealthInsurance
'
Me.CheckHealthInsurance.AutoSize = True
Me.CheckHealthInsurance.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckHealthInsurance.Location = New System.Drawing.Point(147, 66)
Me.CheckHealthInsurance.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.CheckHealthInsurance.Name = "CheckHealthInsurance"
Me.CheckHealthInsurance.Size = New System.Drawing.Size(159, 24)
Me.CheckHealthInsurance.TabIndex = 4
Me.CheckHealthInsurance.Text = "Health Insurance?"
Me.CheckHealthInsurance.UseVisualStyleBackColor = True
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.TextHoursWorked)
Me.GroupBox3.Controls.Add(Me.lblHourlyWorked)
Me.GroupBox3.Location = New System.Drawing.Point(22, 213)
Me.GroupBox3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox3.Size = New System.Drawing.Size(359, 64)
Me.GroupBox3.TabIndex = 3
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Weekly Information"
'
'lblHourlyWorked
'
Me.lblHourlyWorked.AutoSize = True
Me.lblHourlyWorked.Location = New System.Drawing.Point(100, 31)
Me.lblHourlyWorked.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblHourlyWorked.Name = "lblHourlyWorked"
Me.lblHourlyWorked.Size = New System.Drawing.Size(115, 20)
Me.lblHourlyWorked.TabIndex = 1
Me.lblHourlyWorked.Text = "&Hours Worked:"
'
'TextHoursWorked
'
Me.TextHoursWorked.Location = New System.Drawing.Point(225, 25)
Me.TextHoursWorked.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.TextHoursWorked.Name = "TextHoursWorked"
Me.TextHoursWorked.Size = New System.Drawing.Size(46, 26)
Me.TextHoursWorked.TabIndex = 0
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.Label12)
Me.GroupBox4.Controls.Add(Me.Label11)
Me.GroupBox4.Controls.Add(Me.Label10)
Me.GroupBox4.Controls.Add(Me.Label9)
Me.GroupBox4.Controls.Add(Me.lblNetPay)
Me.GroupBox4.Controls.Add(Me.lblFedTax)
Me.GroupBox4.Controls.Add(Me.lblHealthInsurance)
Me.GroupBox4.Controls.Add(Me.lblGrossPay)
Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox4.Location = New System.Drawing.Point(126, 274)
Me.GroupBox4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.GroupBox4.Size = New System.Drawing.Size(255, 154)
Me.GroupBox4.TabIndex = 4
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Weekly Pay"
'
'btnCalc
'
Me.btnCalc.Location = New System.Drawing.Point(6, 288)
Me.btnCalc.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.btnCalc.Name = "btnCalc"
Me.btnCalc.Size = New System.Drawing.Size(112, 35)
Me.btnCalc.TabIndex = 4
Me.btnCalc.Text = "&Calculate"
Me.btnCalc.UseVisualStyleBackColor = True
'
'btnClear
'
Me.btnClear.Location = New System.Drawing.Point(6, 338)
Me.btnClear.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.btnClear.Name = "btnClear"
Me.btnClear.Size = New System.Drawing.Size(112, 35)
Me.btnClear.TabIndex = 5
Me.btnClear.Text = "C&lear"
Me.btnClear.UseVisualStyleBackColor = True
'
'btnExit
'
Me.btnExit.Location = New System.Drawing.Point(6, 393)
Me.btnExit.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.btnExit.Name = "btnExit"
Me.btnExit.Size = New System.Drawing.Size(112, 35)
Me.btnExit.TabIndex = 6
Me.btnExit.Text = "Exit"
Me.btnExit.UseVisualStyleBackColor = True
'
'lblGrossPay
'
Me.lblGrossPay.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblGrossPay.Location = New System.Drawing.Point(142, 19)
Me.lblGrossPay.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblGrossPay.Name = "lblGrossPay"
Me.lblGrossPay.Size = New System.Drawing.Size(92, 20)
Me.lblGrossPay.TabIndex = 0
'
'lblHealthInsurance
'
Me.lblHealthInsurance.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblHealthInsurance.Location = New System.Drawing.Point(142, 46)
Me.lblHealthInsurance.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblHealthInsurance.Name = "lblHealthInsurance"
Me.lblHealthInsurance.Size = New System.Drawing.Size(92, 20)
Me.lblHealthInsurance.TabIndex = 1
'
'lblFedTax
'
Me.lblFedTax.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblFedTax.Location = New System.Drawing.Point(142, 79)
Me.lblFedTax.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblFedTax.Name = "lblFedTax"
Me.lblFedTax.Size = New System.Drawing.Size(92, 20)
Me.lblFedTax.TabIndex = 2
'
'lblNetPay
'
Me.lblNetPay.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblNetPay.Location = New System.Drawing.Point(143, 108)
Me.lblNetPay.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblNetPay.Name = "lblNetPay"
Me.lblNetPay.Size = New System.Drawing.Size(92, 20)
Me.lblNetPay.TabIndex = 3
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(52, 21)
Me.Label9.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(86, 20)
Me.Label9.TabIndex = 4
Me.Label9.Text = "Gross Pay:"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(8, 45)
Me.Label10.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(135, 20)
Me.Label10.TabIndex = 5
Me.Label10.Text = "Health Insurance:"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(47, 79)
Me.Label11.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(96, 20)
Me.Label11.TabIndex = 6
Me.Label11.Text = "Federal Tax:"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.Location = New System.Drawing.Point(53, 108)
Me.Label12.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(68, 20)
Me.Label12.TabIndex = 7
Me.Label12.Text = "Net Pay:"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(392, 436)
Me.Controls.Add(Me.btnExit)
Me.Controls.Add(Me.btnClear)
Me.Controls.Add(Me.btnCalc)
Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "Form1"
Me.Text = "Pay Calculator"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents TextName As System.Windows.Forms.TextBox
Friend WithEvents TextHourlyRate As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents CheckHealthInsurance As System.Windows.Forms.CheckBox
Friend WithEvents TextDependents As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents RadMarried As System.Windows.Forms.RadioButton
Friend WithEvents RadSingle As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents TextHoursWorked As System.Windows.Forms.TextBox
Friend WithEvents lblHourlyWorked As System.Windows.Forms.Label
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents lblNetPay As System.Windows.Forms.Label
Friend WithEvents lblFedTax As System.Windows.Forms.Label
Friend WithEvents lblHealthInsurance As System.Windows.Forms.Label
Friend WithEvents lblGrossPay As System.Windows.Forms.Label
Friend WithEvents btnCalc As System.Windows.Forms.Button
Friend WithEvents btnClear As System.Windows.Forms.Button
Friend WithEvents btnExit As System.Windows.Forms.Button
End Class
Related Questions
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.