Public Class frmMain

    Private Sub btnCalc_Click(sender As System.Object, e As System.EventArgs) Handles btnCalc.Click
        'Call variables
        Const decFWTConnst As Decimal = 0.2
        Const decFICAConnst As Decimal = 0.08
        Const decSITConnst As Decimal = 0.02
        Dim decPay As Decimal
        Dim decHours As Decimal
        Dim decTotal As Decimal
        Dim decTotalNet As Decimal
        Dim decNet As Decimal
        Dim decFWT As Decimal
        Dim decFICA As Decimal
        Dim DecSIT As Decimal
        Dim decFWTeq As Decimal
        Dim decSSTeq As Decimal


        'Variables called, Variables being assigned
        Decimal.TryParse(txtPay.Text, decPay)
        Decimal.TryParse(txtHours.Text, decHours)
        Decimal.TryParse(lblSum.Text, decTotal)
        Decimal.TryParse(lblNet.Text, decNet)
        Decimal.TryParse(lblFWTeq.Text, decFWT)
        Decimal.TryParse(lblSSTeq.Text, decFICA)
        Decimal.TryParse(lblNet.Text, decTotalNet)
        Decimal.TryParse(lblFWTeq.Text, decFWTeq)
        Decimal.TryParse(lblSSTeq.Text, decSSTeq)
        Decimal.TryParse(lblSIT.Text, decSIT)


        'Variables Called and Assigned, begin calculations
        decTotal = decHours * decPay
        decFWT = decTotal * decSITConnst
        decFICA = decTotal * decFICAConnst
        decSSTeq = decTotal * decFWTConnst
        decTotalNet = decTotal * -0.3 + decTotal
        lblSum.Text = decTotal.ToString("C2")
        lblFWTeq.Text = decSSTeq.ToString("C2")
        lblSSTeq.Text = decFICA.ToString("C2")
        lblSIT.Text = decFWT.ToString("C2")
        lblNet.Text = decTotalNet.ToString("C2")
        If decHours > 40 Then
            lblNet.Text = decTotalNet + decHours / 2 * 0.5
            lblSum.Text = decHours * decPay + decPay / 0.5
        End If


    End Sub

    Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
        Me.Close()

    End Sub

    Private Sub txtFirst_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFirst.TextChanged

    End Sub
End Class