Public Class Form1 
Dim strItem As String = "Item"
   Dim strQuantity As String = "Quantity"
   Dim strPrice As String = "Price"
   Dim strSubTotal As String = "Subtotal"
   Dim decTotal As Decimal
   Dim strTxtHeader As String = strItem & strQuantity.PadLeft(15) & strPrice.PadLeft(15) & 	strSubTotal.PadLeft(15) & ControlChars.NewLine
 
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      ' loads the text box header when the form loads
 
      txtOutPut.Text = strTxtHeader
   End Sub
 
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
      ' taking the input from the text box's and putting them in the Table
      ' multiplies the quantity needed plus the unit price to get the subtotal
 
      Dim decSubTotal As Decimal
      Dim intQuantity As Integer
      Dim decPrice As Decimal
      Dim strItem As String
 
      Decimal.TryParse(txtQuantity.Text, intQuantity)
      Integer.TryParse(txtPrice.Text, decPrice)
 
      strItem = txtItem.Text
 
      decSubTotal = decPrice * intQuantity
 
      decTotal = decTotal + decSubTotal
 
      txtOutPut.Text = txtOutPut.Text & strItem & intQuantity.ToString.PadLeft(15) &       decPrice.ToString.PadLeft(15) & decSubTotal.ToString.PadLeft(15) & ControlChars.NewLine

UHVibGljIENsYXNzIEZvcm0xIApEaW0gc3RySXRlbSBBcyBTdHJpbmcgPSAiSXRlbSIKICAgRGltIHN0clF1YW50aXR5IEFzIFN0cmluZyA9ICJRdWFudGl0eSIKICAgRGltIHN0clByaWNlIEFzIFN0cmluZyA9ICJQcmljZSIKICAgRGltIHN0clN1YlRvdGFsIEFzIFN0cmluZyA9ICJTdWJ0b3RhbCIKICAgRGltIGRlY1RvdGFsIEFzIERlY2ltYWwKICAgRGltIHN0clR4dEhlYWRlciBBcyBTdHJpbmcgPSBzdHJJdGVtICYgc3RyUXVhbnRpdHkuUGFkTGVmdCgxNSkgJiBzdHJQcmljZS5QYWRMZWZ0KDE1KSAmIAlzdHJTdWJUb3RhbC5QYWRMZWZ0KDE1KSAmIENvbnRyb2xDaGFycy5OZXdMaW5lCgpQcml2YXRlIFN1YiBGb3JtMV9Mb2FkKEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkV2ZW50QXJncykgSGFuZGxlcyBNZS5Mb2FkCiAgICAgICcgbG9hZHMgdGhlIHRleHQgYm94IGhlYWRlciB3aGVuIHRoZSBmb3JtIGxvYWRzCgogICAgICB0eHRPdXRQdXQuVGV4dCA9IHN0clR4dEhlYWRlcgogICBFbmQgU3ViCgpQcml2YXRlIFN1YiBidG5BZGRfQ2xpY2soQnlWYWwgc2VuZGVyIEFzIFN5c3RlbS5PYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkV2ZW50QXJncykgSGFuZGxlcyBidG5BZGQuQ2xpY2sKICAgICAgJyB0YWtpbmcgdGhlIGlucHV0IGZyb20gdGhlIHRleHQgYm94J3MgYW5kIHB1dHRpbmcgdGhlbSBpbiB0aGUgVGFibGUKICAgICAgJyBtdWx0aXBsaWVzIHRoZSBxdWFudGl0eSBuZWVkZWQgcGx1cyB0aGUgdW5pdCBwcmljZSB0byBnZXQgdGhlIHN1YnRvdGFsCgogICAgICBEaW0gZGVjU3ViVG90YWwgQXMgRGVjaW1hbAogICAgICBEaW0gaW50UXVhbnRpdHkgQXMgSW50ZWdlcgogICAgICBEaW0gZGVjUHJpY2UgQXMgRGVjaW1hbAogICAgICBEaW0gc3RySXRlbSBBcyBTdHJpbmcKCiAgICAgIERlY2ltYWwuVHJ5UGFyc2UodHh0UXVhbnRpdHkuVGV4dCwgaW50UXVhbnRpdHkpCiAgICAgIEludGVnZXIuVHJ5UGFyc2UodHh0UHJpY2UuVGV4dCwgZGVjUHJpY2UpCgogICAgICBzdHJJdGVtID0gdHh0SXRlbS5UZXh0CgogICAgICBkZWNTdWJUb3RhbCA9IGRlY1ByaWNlICogaW50UXVhbnRpdHkKCiAgICAgIGRlY1RvdGFsID0gZGVjVG90YWwgKyBkZWNTdWJUb3RhbAoKICAgICAgdHh0T3V0UHV0LlRleHQgPSB0eHRPdXRQdXQuVGV4dCAmIHN0ckl0ZW0gJiBpbnRRdWFudGl0eS5Ub1N0cmluZy5QYWRMZWZ0KDE1KSAmICAgICAgIGRlY1ByaWNlLlRvU3RyaW5nLlBhZExlZnQoMTUpICYgZGVjU3ViVG90YWwuVG9TdHJpbmcuUGFkTGVmdCgxNSkgJiBDb250cm9sQ2hhcnMuTmV3TGluZQ==