Dim intQuantity As Integer
Dim dblTotalPrice As Double
Dim intCountOverwrite As Integer
Integer.TryParse(txtQ.Text, intQuantity)
intQuantity += 1
If cbFood.SelectedItem = ItemCostArray(0).strFood Then
intCountOverwrite = intCountOverwrite + 1
intQuantity = intQuantity + intCountOverwrite
dblTotalPrice = intQuantity * 1.2
strDisplay = ItemCostArray(0).strFood & ControlChars.Tab & intQuantity & ControlChars.Tab & dblTotalPrice.ToString("C2")
ListBox1.Items.Add(strDisplay)
End If
It looks like you're new here. If you want to get involved, click one of these buttons!