checkboxla toplam almak

[qwertylion]

For i = 1 To ListView2.ListItems.Count
On Error Resume Next
If ListView2.ListItems(i).Checked = True Then
a = a + CDbl(ListView2.ListItems(i).ListSubItems(5).Text)
End If
Next i
If a < 1 Then Exit Sub
TextBox25.Value = Format((a), "#,##0.##")

koduylada işaretlediğim checkbox a ait verinin toplamını textbox a yazdırıyorum.

Private Sub CommandButton2_Click()
Dim i As Integer
For i = 1 To ListView2.ListItems.Count
ListView2.ListItems(i).Checked = True
ListView2.ListItems(i).ForeColor = vbBlue ' İŞARETLİLER MAVİ OLDU
Next i
End Sub
koduyla listviewdeki tüm checkboxları işaretliyorum.


Private Sub CommandButton3_Click()
For i = 1 To ListView2.ListItems.Count
ListView2.ListItems(i).Checked = False
ListView2.ListItems(i).ForeColor = vbBlack ' TEKRAR SİYAH OLDU
Next i
End Sub
koduyla listviewdeki tüm işaretlediğim checkboxların isaretini kaldırıyorum.


Acaba botton 2 ve botton 3 e bastığımda tüm toplamları textbox25 e yazdırabilmek için kodun neresinde değişiklik yapmam gerek?
(Birçok örnek dosya olmasına ragmen uyarlayamadım)
Yardımlarınız için teşekkürler

 

[qwertylion]

yardımlarınızı bekliyorum