Here it is, minus the form generated code:

Option Strict On

Public Class frmAuto

Inherits System.Windows.Forms.Form

[windows form designer generated code]

Const mdecSTEREO_CHARGE As Decimal = 425.76D
Const mdecLEATHER_CHARGE As Decimal = 987.41D
Const mdecCOMPUTER_CHARGE As Decimal = 1741.23D
Const mdecPEARLIZED_CHARGE As Decimal = 345.72D
Const mdecDETAILING_CHARGE As Decimal = 599.99D
Const mdecTAX_RATE As Decimal = 0.08D

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
'Exits the aplication
End Sub

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
'Calculate price
Dim decAmountDue As Decimal
Dim decSubTotal As Decimal
Dim decTax As Decimal
Dim decSalesPrice As Decimal
Dim decAllowance As Decimal
Dim decAccTotal As Decimal
Dim strMessage As String


'If no data was entered into the trade-in text box, default the amount to zero
If txtTradeIn.Text = "" Then
txtTradeIn.Text = "0"
End If

If txtSalesPrice.Text = "" Then
MessageBox.Show("Please enter the sale amount.", "Missing Data", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
txtSalesPrice.Focus()
Else
Try 'Calculate the totals

decSalesPrice = CDec(txtSalesPrice.Text)
decAllowance = CDec(txtTradeIn.Text)

'Test the option buttons for added charges
If radPearlized.Checked = True Then
decAccTotal = mdecPEARLIZED_CHARGE
ElseIf radCustom.Checked = True Then
decAccTotal += mdecDETAILING_CHARGE
End If

'Test the check boxes
If chkStereo.Checked = False Then
decAccTotal += mdecSTEREO_CHARGE
End If
If chkLeather.Checked = True Then
decAccTotal += mdecLEATHER_CHARGE
End If
If chkNavigation.Checked = True Then
decAccTotal += mdecCOMPUTER_CHARGE
End If

'Calculate sales tax
decTax = (decSalesPrice + decAccTotal) * mdecTAX_RATE
'Calculate subtotal
decSubTotal = decSalesPrice + decAccTotal - decTax
'Calculate amount due
decAmountDue = decSubTotal - decAllowance

'Display amounts in labels
txtSalesPrice.Text = FormatCurrency(decSalesPrice)
lblAccessoriesAndFinish.Text = FormatCurrency(decAccTotal)
lblSalesTax.Text = FormatCurrency(decTax)
lblSubtotal.Text = FormatCurrency(decSubTotal)
txtTradeIn.Text = FormatCurrency(txtTradeIn.Text)
lblAmountDue.Text = FormatCurrency(decAmountDue)
Catch
strMessage = "Calculation error"
MessageBox.Show(strMessage, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
'Clear the screen and restores focus to the first field

txtSalesPrice.Text = ""
txtTradeIn.Text = ""
lblAccessoriesAndFinish.Text() = ""
lblSalesTax.Text() = ""
lblSubtotal.Text() = ""
lblAmountDue.Text() = ""
txtSalesPrice.Focus()
End Sub
End Class
_________________________
C++ Should Have Been Called "D"