Hi, guys,

I have a CheckList with three columns.

The first column is a checkbox type.

The second column contains numbers.

The third column contains numbers too.

I am trying to do the following:

- Sum together cell values from the second column for the rows whose checkboxes are checked (Good Tokens)
- Sum together cell values from the third column for the rows whose checkboxes are not checked (Penalties)
- Calculate the final score by subtracting Penalties from Good Tokens

To achieve this, I have written the following code

```
me.period=100
Dim maxscore, score As Double
Dim penalty As Double
Dim finalScore as Double
Dim i, count As Integer
For i =0 To Listbox1.ListCount - 1
If Listbox1.CellCheck(i, 0) Then
count = count + 1
score=score + val(ListBox1.Cell(i,1))
End If
Next
For i =0 To Listbox1.ListCount - 1
maxscore=maxscore + val(ListBox1.Cell(i,1))
Next
For i =0 To Listbox1.ListCount - 1
If Listbox1.CellCheck(i,0)=False then
count = count + 1
penalty=penalty + val(ListBox1.Cell(i,2))
End If
Next
finalScore=score - penalty
//MsgBox "Check count : " + Str(count)
Label1.text="Completed:" + " "+ str(count)
Label2.text="Missed:" + " " + str(ListBox1.ListCount-count)
//Label3.text="Score:" + str(score)
Label6.text="Score:" + " " + str(round(finalScore/maxscore*100)) + "%"
Label7.text= str(round(finalScore/maxscore*100)) + "%"
```

Apparently, I’ve done something wrong because the final results are incorrect.

I am more than sure that the code to loop through the rows with unchecked checkboxes is incorrect.

I would appreciate any help.

Thank you in advance,

Val