Open the VB2015\Chap11\Palace Solution\Palace Solution (Palace Solution.sln) file. Create a Rectangle class similar to the one shown earlier in Figure 11-23; however, use Double variables rather than Integer variables. The application should calculate and display the number of square yards of carpeting needed to carpet a rectangular floor. Code and then test the application appropriately.

Modified Class statement entered in the Rectangle.vb file Public Class Rectangle Private intLength As Integer Private intwidth As Integer Public Property Length As Integer Get Return _intlength End Get Set(value As Integer) If value > 0 Then _intlength = value Else intlength = 0 End If End Set End Property Public Property Width As Integer Get Return _intwidth End Get Set (value As Integer) If value > 0 Then _intwidth = value Else _intwidth = 0 End If End Set End Property Public Sub New() _intlength = 0 _intwidth = 0 End Sub Public Sub New(ByVal intl As Integer, ByVal intw As Integer) Length = intl Width = intw End Sub parameterized constructor Public Function GetArea() As Integer Return _intlength * _intwidth End Function End Class Modified btnCalc Click procedure entered in the Main Form.vb file Private Sub btnCalc Click(sender As Object, e As EventArgs ) Handles btnCalc.Click displays square feet and deck cost