Lesson 22: Working with Radio Button Controls

Public Class Form1

Private Sub BtnConfirm_Click(sender As Object, e As EventArgs) Handles BtnConfirm.Click
    ' Declare color variable
    Dim Tcolor As String
    
    ' Check each radio button selection
    If RadioRed.Checked Then
        Tcolor = "Red Color"
        LblDisplay.ForeColor = Color.Red
    ElseIf RadioGreen.Checked Then
        Tcolor = "Green Color"
        LblDisplay.ForeColor = Color.Green
    Else
        Tcolor = "Yellow Color"
        LblDisplay.ForeColor = Color.Yellow
    End If
    
    ' Display the selected color
    LblDisplay.Text = Tcolor
End Sub
End Class

Public Class Form1

Private Sub BtnConfirm_Click(sender As Object, e As EventArgs) Handles BtnConfirm.Click
    ' Declare variables for size and color
    Dim TSize, TColor As String
    
    ' Check size selections
    If RadioXL.Checked Then
        TSize = "XL"
    ElseIf RadioL.Checked Then
        TSize = "L"
    ElseIf RadioM.Checked Then
        TSize = "M"
    Else
        TSize = "S"
    End If
    
    ' Check color selections
    If RadioRed.Checked Then
        TColor = "Red"
    ElseIf RadioBlue.Checked Then
        TColor = "Blue"
    Else
        TColor = "Beige"
    End If
    
    ' Display selections
    LblSize.Text = TSize
    LblColor.Text = TColor
End Sub
End Class