如何使用visual basic在listview中计算价格列的合计？

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 初始化ListView列
    ListView1.Columns.Add("商品", 100)
    ListView1.Columns.Add("价格", 100)
End Sub

Private Sub AddItem(name As String, price As Double)
    Dim item As New ListViewItem(name)
    item.SubItems.Add(price.ToString())
    ListView1.Items.Add(item)
End Sub

Private Sub AddData()
    AddItem("商品A", 10.99)
    AddItem("商品B", 20.50)
    AddItem("商品C", 5.99)
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 初始化ListView列
    ListView1.Columns.Add("商品", 100)
    ListView1.Columns.Add("价格", 100)
    
    ' 添加商品和价格数据
    AddData()
End Sub

Private Sub CalculateTotal()
    Dim total As Double = 0
    
    For Each item As ListViewItem In ListView1.Items
        Dim price As Double = Double.Parse(item.SubItems(1).Text)
        total += price
    Next
    
    MessageBox.Show("价格合计：" & total.ToString())
End Sub

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
    CalculateTotal()
End Sub