Private Sub butAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butAdd.Click
Dim dblTotal As Double
Dim i As Integer = 0
Dim db1Price As Double
Dim strPrice As String
For i = 0 To ListView1.Items.Count - 1
strPrice = ListView1.Items(i).Subitems(4).Text
db1Price = Double.Parse(strPrice)
dblTotal += db1Price
Next
MessageBox.Show(dblTotal.ToString)
End Sub