VB6 Dealing with large amounts of "IF"s

VB6 Dealing with large amounts of "IF"s

I have a large block of ifs in my code that I do not want to put into an
array as I need them to have unique names.
How would I go about making a much smaller peice of code for this block of
IFs?
Many Thanks.
If chkPO.Value = True Then
ReportTaskCount = ReportTaskCount + 1
End If
If chkGRN.Value = True Then
ReportTaskCount = ReportTaskCount + 1
End If
If chkSO.Value = True Then
ReportTaskCount = ReportTaskCount + 1
End If
ect
ect
ect