ok hermano fijate probe con otra propiedad y si funciono yo en vez de colocar en la propiedad caption coloque la propiedad tag s decir
Dim X As Integer
Dim Resultado As Long
Resultado = 0
For X = 0 To 29
If Check1(X).Value = 1 Then
Resultado = Resultado + Val(Check1(X).Tag) 'aqui coloque tag en vez de caption y en tag coloque el valo de cada check
End If
Next X
Text1.Text = Resultado
vistes?? GRACIAS DE VERDAD HERMANO ME AYUDASTES MUHCO QUE ESTES BIEBN CUALQUIER COSA ME ENVIAR PRIVADO CUIDATE.
