Programacion Public Class Form1

...

Public Class Form1

Private Sub RBT_ING_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBT_ING.CheckedChanged

If RBT_ING.Checked = True Then

LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RBT_ING.Text

Else

LBL_MOSTRAR.Text = ""

End If

End Sub

Private Sub RRBT_ARQUI_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RRBT_ARQUI.CheckedChanged

If RRBT_ARQUI.Checked = True Then

LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RRBT_ARQUI.Text

Else

LBL_MOSTRAR.Text = ""

End If

End Sub

Private Sub RBT_LETRAS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBT_LETRAS.CheckedChanged

If RBT_LETRAS.Checked = True Then

LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RBT_LETRAS.Text

Else

LBL_MOSTRAR.Text = ""

End If

End Sub

Private Sub RBT_ARTE_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBT_ARTE.CheckedChanged

If RBT_ARTE.Checked = True Then

LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RBT_ARTE.Text

Else

LBL_MOSTRAR.Text = ""

End If

End Sub

Private Sub RBT_UNT_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBT_UNT.CheckedChanged

If RBT_UNT.Checked = True Then

LBL_MOSTRAR.Text = "En la: " + RBT_UNT.Text

Else

LBL_MOSTRAR.Text = ""

End If

End Sub

Private Sub RBT_UTN_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBT_UTN.CheckedChanged

If RBT_UTN.Checked = True Then

LBL_MOSTRAR.Text = "En la: " + RBT_UTN.Text

Else

LBL_MOSTRAR.Text = ""

End If

End Sub

Private Sub RBT_UNSTA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBT_UNSTA.CheckedChanged

If RBT_UNSTA.Checked = True Then

LBL_MOSTRAR.Text = "En la: " + RBT_UNSTA.Text

Else

LBL_MOSTRAR.Text = ""

End If

End Sub

Private Sub BTN_CANCELAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_CANCELAR.Click

End

End Sub

Private Sub LBL_MOSTRAR_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBL_MOSTRAR.TextChanged

If RBT_ING.Checked = True And RBT_UNT.Checked = True Then

LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RBT_ING.Text + " en la: " + RBT_UNT.Text

End If

If RBT_ING.Checked = True And RBT_UTN.Checked = True Then

LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RBT_ING.Text + " en la: " + RBT_UTN.Text

End If

If RBT_ING.Checked = True And RBT_UNSTA.Checked = True Then

LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RBT_ING.Text + " en la: " + RBT_UNSTA.Text

End If

If RRBT_ARQUI.Checked = True And RBT_UNT.Checked = True Then

LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RRBT_ARQUI.Text + " en la: " + RBT_UNT.Text

End If

If RRBT_ARQUI.Checked = True And RBT_UTN.Checked = True Then

LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RRBT_ARQUI.Text + " en la: " + RBT_UTN.Text

End If

If RRBT_ARQUI.Checked = True And RBT_UNSTA.Checked = True Then

LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RRBT_ARQUI.Text + " en la: " + RBT_UNSTA.Text

End If

If RBT_LETRAS.Checked = True And RBT_UNT.Checked = True Then

LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RBT_LETRAS.Text + " en la: " + RBT_UNT.Text

End If

If RBT_LETRAS.Checked = True And RBT_UTN.Checked = True Then

LBL_MOSTRAR.Text = "Ha decidido estudiar: " + RBT_LETRAS.Text + " en