bantu buatkan syntax untuk mencari nilai total listview VB6

halo gaeess

saya ada sebuah listview dengan banyak baris data
forecolor-nya ada warna hitam dan ada warna merah

saya ingin sebuah fungsi menjumlahkan ada berapa nilai merah pada kolom tersebut 
dengan method change label

lumayan kan project ini effort nya kecil..
tapi adalah sekedar buat rokok.., wkwkwkwk

BID paling masuk akal akan lanjut...