12/01/2009, 07:59
|
 | | | Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 21 años, 6 meses Puntos: 19 | |
| Respuesta: Sumar con checkbox vb6
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
|