Public Class Form1


    Private Sub btnCanada_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCanada.Click
        'Diming the variables
        Dim Tax As Integer = 6
        Dim NumberofWidgets As Integer
        Dim PriceofWidgets As Double
        Dim UnitCost As Double
        Dim TaxPaid As Double
        Dim ShippingCharges As Integer
        Dim TotalDue As Double

        'What to use and find
        NumberofWidgets = CInt(txtWidgets.Text)
        PriceofWidgets = CDbl(txtPrice.Text)
        UnitCost = CDbl(lblUnit_Cost.Text)
        TaxPaid = CDbl(lblTax_Paid.Text)
        ShippingCharges = CInt(lblShipping_Charges.Text)
        TotalDue = CDbl(lblTotal_Due.Text)

        'calculations
        UnitCost = NumberofWidgets * PriceofWidgets
        TaxPaid = (UnitCost * Tax)
        TotalDue = UnitCost + TaxPaid + ShippingCharges

        'Format of numbers
        lblUnit_Cost.Text = Format("$", "###,###,###.00")
        lblTax_Paid.Text = Format("$", "###,###,###.00")
        lblShipping_Charges.Text = Format("$", "###,###,###.00")
        lblTotal_Due.Text = Format("$", "###,###,###.00")


    End Sub

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

    End Sub
End Class