Imports System

Public Module Module1

    Public Sub Main()

        Dim Color as String = "green"

        Select Case Color

        Case "red"

            Console.Writeline("you selected red”)

        Case "blue”

            Console.Writeline("You selected blue”)

        Case "green”

            Console.Writeline("You selected green”)

        End Select

​

    End Sub

End Module