'    Project:   Book Sales - Classes
' Programmer:   Andy McCone
'       Date:   Winter 2008
'Description:   This project uses classes to process booksales

Public Class mainForm

    'Declare the instance of the class
    Dim mBookSale As BookSale

    Private Sub calculateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calculateButton.Click

        'Create the instance of the class
        mBookSale = New BookSale

        'Capture values in the textboxes and populate
        'the properties of the instance of the class
        mBookSale.Title = titleTextbox.Text
        mBookSale.Quantity = CInt(quantityTextbox.Text)
        mBookSale.Price = CDec(priceTextbox.Text)

        'Display the extended price
        extendedPriceLabel.Text = FormatCurrency(mBookSale.ExtendedPrice)

    End Sub
End Class