​

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub

​

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

        txtColor.Clear()

        txtCost.Clear()

        txtLength.Clear()

        txtStyle.Clear()

        txtWidth.Clear()

        lblArea.Text = String.Empty

        lblTotalCost.Text = String.Empty

​

        txtWidth.Focus()

    End Sub

​

    Private Sub btnCalculator_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculator.Click

        CalcArea(txtCost.Text)

​

    End Sub

End Class 

​

    Private sngWidth As Single

    Private sngLength As Single

    Private sngArea As Single

    Public lblArea As Single

    Public txtWidth As Single

    Public txtLength As Single

​

    Public Property Width() As Single

        Get

            Return sngWidth

        End Get

        Set(ByVal value As Single)

            sngWidth = value

        End Set

    End Property

    Public Property Length As Single

        Get

            Return sngLength

        End Get

        Set(ByVal value As Single)

            sngLength = value

        End Set

    End Property

​

    Public ReadOnly Property Area() As Single

        Get

            Return sngArea

        End Get

    End Property

​

    Public Sub CalcArea()

        lblArea = txtWidth.ToString * txtLength.ToString