Speech Recognition to enable checkbox

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim gram As New Recognition.SrgsGrammar.SrgsDocument
        Dim colorRule As New Recognition.SrgsGrammar.SrgsRule("color")
        Dim colorsList As New Recognition.SrgsGrammar.SrgsOneOf("green", "rosy", "white", "yellow", "Peru", "Blue", "red")
        colorRule.Add(colorsList)
        gram.Rules.Add(colorRule)
        gram.Root = colorRule
        reco.LoadGrammar(New Recognition.Grammar(gram))
    End Sub

Private Sub reco_SpeechRecognized(ByVal sender As Object, ByVal e As System.Speech.Recognition.RecognitionEventArgs) Handles reco.SpeechRecognized
       Select Case e.Result.Text
           Case "rosy"
               SetColor(Color.RosyBrown)
           Case "green"
               SetColor(Color.Green)
           Case "white"
               SetColor(Color.White)
           Case "yellow"
               SetColor(Color.Yellow)
           Case "Peru"
               SetColor(Color.Peru)
           Case "Blue"
               SetColor(Color.Blue)
           Case "red"
               SetColor(Color.Red)