Verifying Checkboxes in a control array in VB6

[oleblue73]

I'm trying to write code that verifies that a user has checked at least one checkbox in a control array of 8 checkboxes. I know I can do it with a very long if...then statement, but there must be a way to do it with looping statements. I just can't figure out how! I'm using VB6. Any help will be appreciated!

[doctorgonzo]

There is probably a more elegant solution, but you could try this (contains unfortunate GOTO statement):

for x = 1 to numberBoxes
if Form.checkbox[x].value then goto Verified
next
MsgBox "Please select at least one option!"
Exit Sub
Verified:
{more code here...}

[oleblue73]

Thanks! It worked!