The Code

​

 

 

 

Public Class Form89

​

Private Sub BtnConform_Click(sender As Object, e As EventArgs) Handles Button1.Click

​

        Dim TSize, TColor As String

​

        If RadioXL.Checked Then
            TSize = "XL"

​

        ElseIf RadioL.Checked Then
            TSize = "L"

​

        ElseIf RadioM.Checked Then
            TSize = "M"

​

        Else : TSize = "S"

​

        End If

​

        If RadioRed.Checked Then
            TColor = "Red"
            Lblcolor.ForeColor = Color.Red

​

        ElseIf RadioBlue.Checked Then
            TColor = "Blue"
            Lblcolor.ForeColor = Color.Blue

​

        ElseIf RadioBeige.Checked Then
            TColor = "Beige"
            Lblcolor.ForeColor = Color.Beige

​

        Else : TColor = "Green"
            Lblcolor.ForeColor = Color.Green

​

        End If

​

        LblSize.Text = TSize
        Lblcolor.Text = TColor

​

    End Sub

​

End Class