กดเพิ่มได้ครั้งเดียวจำนวนลด แต่พอกดอีกครั่งจำนวนในลิดวิสไม่ลด ช่วยดูโค้ดให้หน่อยคับว่าถูกป่าว

For O As Integer = 0 To ListView1.Items.Count - 1
            If TxtRolID.Text = ListView1.Items(O).SubItems(1).Text Then


                ListView1.Items(O).SubItems(6).Text = CSng(Me.ListView1.Items(O).SubItems(6).Text) - CSng(Txtamout.Text)
                ListView1.Items(O).SubItems(8).Text = CSng(Me.ListView1.Items(O).SubItems(6).Text) * CSng(Me.ListView1.Items(O).SubItems(3).Text)


                If Me.ListView1.Items.Count > 0 Then
                    TotalQty = 0
                    For f As Integer = 0 To Me.ListView1.Items.Count - 1
                        TotalQty += CInt(Me.ListView1.Items(f).SubItems(6).Text)
                    Next
                    Me.Total1.Text = Format(TotalQty, "#,##0")
                Else
                    Me.Total1.Text = 0
                End If
                Exit Sub
            End If

        Next