VB Code:
Private Sub cmdcal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcal.Click
counteritem = lstboxpric.Items.Count - 1
For counter = 0 To counteritem
myvar = lstboxpric.Items.Item(Int(counter))
If myvar = D Then
num = D
itotal = itotal + num
BVAT.Text = "£ " & itotal.ToString
End If
If myvar = V Then
num = V
itotal = itotal + num
BVAT.Text = Format(V, "##0.00").ToString
BVAT.Text = "£ " & itotal.ToString
End If
If myvar = P Then
num = P
itotal = itotal + num
BVAT.Text = Format(P, "##0.00").ToString
BVAT.Text = "£ " & itotal.ToString
End If
Next
itotal = 0
End Sub