Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strCorse As String
Dim strLevel As String
If RadioButton1.Checked Then
strCorse = RadioButton1.Text
ElseIf RadioButton2.Checked Then
strCorse = RadioButton2.Text
ElseIf RadioButton3.Checked Then
strCorse = RadioButton3.Text
End If
If RadioButton4.Checked Then
strLevel = RadioButton4.Text
ElseIf RadioButton5.Checked Then
strLevel = RadioButton5.Text
ElseIf RadioButton6.Checked Then
strLevel = RadioButton6.Text
End If
TextBox1.Text = " You Seleted " & strCorse & "-" & strLevel
End Sub
End Class