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 & vbTab & vbTab & intQuantity & vbTab & vbTab & decPrice & vbTab & vbTab & decSubTotal & ControlChars.NewLine
      txtTotal.Text = decTotal
 
      txtQuantity.Text = String.Empty
      txtPrice.Text = String.Empty
      comMaterials.Focus()
   End Sub

UHJpdmF0ZSBTdWIgYnRuQWRkX0NsaWNrKEJ5VmFsIHNlbmRlciBBcyBTeXN0ZW0uT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5FdmVudEFyZ3MpIEhhbmRsZXMgYnRuQWRkLkNsaWNrCiAgICAgICcgdGFraW5nIHRoZSBpbnB1dCBmcm9tIHRoZSB0ZXh0IGJveCdzIGFuZCBwdXR0aW5nIHRoZW0gaW4gdGhlIFRhYmxlCiAgICAgICcgbXVsdGlwbGllcyB0aGUgcXVhbnRpdHkgbmVlZGVkIHBsdXMgdGhlIHVuaXQgcHJpY2UgdG8gZ2V0IHRoZSBzdWJ0b3RhbAoKICAgICAgRGltIGRlY1N1YlRvdGFsIEFzIERlY2ltYWwKICAgICAgRGltIGludFF1YW50aXR5IEFzIEludGVnZXIKICAgICAgRGltIGRlY1ByaWNlIEFzIERlY2ltYWwKICAgICAgRGltIHN0ckl0ZW0gQXMgU3RyaW5nCgogICAgICBEZWNpbWFsLlRyeVBhcnNlKHR4dFF1YW50aXR5LlRleHQsIGludFF1YW50aXR5KQogICAgICBJbnRlZ2VyLlRyeVBhcnNlKHR4dFByaWNlLlRleHQsIGRlY1ByaWNlKQoKICAgICAgc3RySXRlbSA9IHR4dEl0ZW0uVGV4dAoKICAgICAgZGVjU3ViVG90YWwgPSBkZWNQcmljZSAqIGludFF1YW50aXR5CgogICAgICBkZWNUb3RhbCA9IGRlY1RvdGFsICsgZGVjU3ViVG90YWwKCiAgICAgIHR4dE91dFB1dC5UZXh0ID0gdHh0T3V0UHV0LlRleHQgJiBzdHJJdGVtICYgdmJUYWIgJiB2YlRhYiAmIGludFF1YW50aXR5ICYgdmJUYWIgJiB2YlRhYiAmIGRlY1ByaWNlICYgdmJUYWIgJiB2YlRhYiAmIGRlY1N1YlRvdGFsICYgQ29udHJvbENoYXJzLk5ld0xpbmUKICAgICAgdHh0VG90YWwuVGV4dCA9IGRlY1RvdGFsCgogICAgICB0eHRRdWFudGl0eS5UZXh0ID0gU3RyaW5nLkVtcHR5CiAgICAgIHR4dFByaWNlLlRleHQgPSBTdHJpbmcuRW1wdHkKICAgICAgY29tTWF0ZXJpYWxzLkZvY3VzKCkKICAgRW5kIFN1Yg==