Checkbox

CHECKBOX
Se utiliza generalmente para listar opciones y que el usuario pueda elegir entre ellas, y dependiendo del valor (si está chequeado o no), se realiza una u otra acción.
Permiteseleccionar una opción al usuario o del programa o tomar una decisión, directamente en pantalla.
Los componentes de Checkbox son las cajas donde el usuario realiza una selección.Private Sub Command1_Click()  
      
    ' -- Esta variable almacenará los datos para mostrar  
    ' -- el resultado al final de la rutina  
    Dim Resultado As String  
      ' -- Esto verificará si el text1 no está vacio y se ha ingresado un nombre  
    If Text1 = "" Then  
        ' -- si está vacío mostramos el mensaje  
        MsgBox "Debe ingresar un nombre", vbExclamation, "Encuesta"          ' -- Mediante Exit Sub salimos de la rutina para  
        ' -- no ejecutar las líneas que debajo  
        Exit Sub  
    End If  
  
    ' -- Ahora guardamos en la Variable Resultado el nombre que      ' -- se ingresó en el control text1  
    Resultado = "Su nombre es " & Text1 & vbNewLine  
  
    ' -- Evaluamos el Check1 (mayor de edad)  
    If Check1.Value = 0 Then          Resultado = Resultado & "Usted no es mayor de edad"  
    Else  
        Resultado = Resultado & "Usted es mayor de edad"  
    End If  
      ' -- Le agregamos a la variable resultado un salto de carro o salto de línea  
    Resultado = Resultado & vbNewLine  
  
    ' -- Evaluamos el Check2 (Si tiene hijos )  
    If Check2.Value = 0 Then          Resultado = Resultado & "Usted no tiene Hijos"  
    Else  
        Resultado = Resultado & "Usted tiene hijos"  
    End If  
  
    ' -- Otro salto de carro  
    Resultado = Resultado & vbNewLine  
      ' -- Evaluamos el Check3 (si estudió)  
    If Check3.Value = 0 Then  
        Resultado = Resultado & "Usted no estudió una Carrera"  
    Else  ...