Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
        RB_changed()
End Sub
Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged
        RB_changed()
End Sub
Private Sub RadioButton3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton3.CheckedChanged
        RB_changed()
End Sub
Private Sub RB_changed()
        If RadioButton1.Checked Then
            LabelB.Text = RadioButton1.Text
        ElseIf RadioButton2.Checked Then
            LabelB.Text = RadioButton2.Text
        ElseIf RadioButton2.Checked Then
            LabelB.Text = RadioButton3.Text
        End If
End Sub