Sumar con checkbox vb6

[flashtkd]

la idea es seleccionar un checkbox independiente cual sea, y este se sume.

todavia no me funciona

Código PHP:

  Private Sub boton_Click()
resultado As Integer
Check1 [0] = "50"
Check1 [1] = "20"
Check1 [2] = "10"
Check1 [3] = "30"

for(i=0; to check1[i]; ++i)
{
if(Check1[i].checked) then

resultado+=Check1[i] 

end

Text1 = ("El resultado es : " & resultado

End Sub 
   

Quiero hacer algo como esto

[culd]

Código:

Private Sub boton_Click()
Dim X As Integer
Dim Resultado As Integer

For X = 0 To 5
    If Check1(X).Value = 1 Then
        Resultado = Resultado + CInt(Check1(X).Caption)
    End If
Next X

MsgBox "El Resultado es: " & Resultado
End Sub