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

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

The Westfield Carpet Company has asked you to prepare an application that find outs the price of carpeting. To find out the price, you multiply the area of the floor (width x length) by the price per square foot of carpet. For ex, the area of floor that is 12 feet long and 10 feet wide is 120 feet. To cover that floor with carpet that costs $8 per square foot would cost $960. (12 x 10 x8 = 960.)
You should create a class named Rectangle with the following properties:
Width: A single
Length: A single
Area: A single
The Area property should be read-only. Provide a method named CalcArea that find outs width x length and stores the results in the area property.
Next, create a class named Carpet with the following properties:
Color: A string
Style: A string
Price: A decimal