Control RadioButton

Un ejemplo muy simple sobre la utilización del control RadioButton en Visual Basic .Net; colocar en un formulario cuatro controles RadioButton y un control label. Cada control RadioButton representará una estación del año 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

If RadioButton1.Checked Then

Label1.Text = "Estamos en Otoño"

End If

'Se compara si el control esta seleccionado

      If RadioButton2.Checked Then             

Label1.Text = "Estamos en Invierno"

      End If

'Se compara si la propiedad del control es verdadera

If RadioButton3.Checked = True Then

Label1.Text = "Estamos en Primavera"

End If

'Se compara si la propiedad del control es verdadera

If RadioButton4.Checked = True Then

            Label1.Text = "Estamos en Verano"

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 seleccionarlos y se limpia el label

        RadioButton1.Checked = False

        RadioButton2.Checked = False

        RadioButton3.Checked = False

        RadioButton4.Checked = False

        Label1.Text = ""

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

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

        mostrar()

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

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

        mostrar()

    End Sub

    Private Sub RadioButton3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton3.Click

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

        mostrar()

    End Sub

    Private Sub RadioButton4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton4.Click

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

        mostrar()

    End Sub