Control CheckBox

Un ejemplo muy simple sobre la utilización del control CheckBox en Visual Basic .Net; colocar en un formulario cuatro controles CheckBox y cuatro controles label. Cada control CheckBox representará una posición en la pantalla y se debería ver muy similar a la siguiente imagen:

La programación a usar será la siguiente:

    'Se crea un método para ahorrar tiempo al programar

    Sub mostrar()

        'Se compara si el control esta seleccionado o no

        If CheckBox1.Checked Then

            Label1.Visible = True

        Else

            Label1.Visible = False

        End If

        'Se compara si el control esta seleccionado o no

        If CheckBox2.Checked Then

            Label2.Visible = True

        Else

            Label2.Visible = False

        End If

        'Se compara si la propiedad del control es verdadera o falsa

        If CheckBox3.Checked = True Then

            Label3.Visible = True

        Else

            Label3.Visible = False

        End If

        'Se compara si la propiedad del control es verdadera o falsa

        If CheckBox4.Checked = True Then

            Label4.Visible = True

        Else

            Label4.Visible = False

        End If

    End Sub

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        'Se cargan los controles sin estar seleccionarlos

        CheckBox1.Checked = False

        CheckBox2.Checked = False

        CheckBox3.Checked = False

        CheckBox4.Checked = False

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        'Se activa el método porque la propiedad checked cambio

        mostrar()

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        'Se activa el método porque la propiedad checked cambio

        mostrar()

    End Sub

    Private Sub CheckBox3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox3.Click

        'Se carga el método porque se dio clic sobre el control

        mostrar()

    End Sub

    Private Sub CheckBox4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox4.Click

        'Se carga el método porque se dio clic sobre el control

        mostrar()

    End Sub