Sub Spinner2_ItemClick (Position As Int, Value As Object)
Select Value
Case "Jericho is a city in"
radiobutton4.Text = "Kansas"
If radiobutton4.Checked = True Then
Msgbox("Right-Move on to Next Question","")
Else
radiobutton5.Text = "Ks"
radiobutton5.Checked = True
Msgbox("Wrong","")
radiobutton6.Text = "K"
radiobutton6.Checked = True
Msgbox("No","")
End If
Case "Jericho is a tv show on"
End Select
End Sub