Visual Basic .Net Payroll Program Help Please?

Dim decSellingPrice As Decimal
Dim decCost As Decimal
Dim decProfit As Decimal
Dim decLoss As Decimal

If there is a loss, the Profit or Loss BackColor is red and its ForeColor is white. If there is a Profit, the BackColor is light-grey and the ForeColor is Black.The Commission BackColor is light-grey and the ForeColor is black.The Calculate button, calculates the Profit or Loss by subtracting the cost from the selling price. Use the FormatCurrency() function to display Profit or Loss. The Commission is calculated by multiply 0.2D times the Profit or Loss. If there is a Loss, the Commission is set to $0.00.Use the FormatCurrency() function to display theCommission. You MUST use a constant which will contain 0.2D.

I have the logic down but I just started to learn to program. Please help me with this. Thank You Guys

You still have to create the button and text boxes yourself and rename the function or txt... variable names to what you need.

Hope that can get you started:

Public Sub CalcProfitLoss()
Dim decSellingPrice As Decimal
Dim decCost As Decimal
Dim decProfit As Decimal
Dim decLoss As Decimal
If decSellingPrice - decCost > 0 Then
decProfit = decSellingPrice - decCost
txtProfit = FormatCurrency(decProfit, 2)
txtCom = FormatCurrency(CalcCom( decProfit ) , 2)
Else
decLoss = decSellingPrice - decCost
txtLoss = FormatCurrency(decLoss, 2)
txtCom = FormatCurrency(CalcCom( decLoss ) , 2)
End If
End Sub

Public Function CalcCom(ByVal Amount As Double) As Double
Const CommRate As Double = 0.2
If Amount * CommRate > 0 Then
Return Amount * CommRate
Else
Return 0
End If
End Function