Todas CheckBox

[rafaelcpcunha]

Olá

Em um formulário tenho 72 checkbox, através de um botão quero fazer um laço que selecione todas.

Como sou novato fiz uma por uma:

Check1.Value = 1

Check2.Value = 1

Check3.Value = 1

.

.

.

Check72.Value = 1

Imagino que seja:

for i = 1 to 72

check(i).value = 1

next

Estou usando VB6

[Matheus-vb6]

Por ser checkbox, o vb reconhece ser uma unica "pergunta"... se você quiser q seja individual, coloque cada uma dentro de um "frame" e o código ficaria assim:

For Each objeto In Me.Controls
If TypeOf objeto Is CheckBox Then
objeto.Value = 1
End If
Next

Abraços

[rafaelcpcunha]

Muito obrigado, funcionou.