Imports System

Public Module Module1

    Public Sub Main()

        'EJEMPLO CASE

        'MOSTRAR OPCIONES Y SOLICITAR OPCIONES

        Console.WriteLine("Ingrese una opción")

        Dim  opcion as integer

        opcion = Console.ReadLine

        Select opcion

        Case 1

            Console.WriteLine("Procedimientos de la opcion 1")

        Case 2

            Console.WriteLine("Procedimients de la opcion 2")

        case else

            Console.WriteLine("Ingrese opcion 1 o 2")

        End select

    End Sub

End Module