Imports System

'While              

Public Module Module1

    Public Sub Main()

        dim respuesta as integer

        'Si la opcion es 1 = si y si la opcion es 2 = no

        dim Opcion as integer

        Respuesta = 1 'Esta variable dara continuidad al programa

        While (respuesta = 1)'Mientras respuesta sea 1, ejecuta las lineas de accion

            'presentar el menu

            Console.WriteLine("Menu de opciones, 1.opcion 2.opcion")

            Opcion = Console.ReadLine()

            Select (opcion)

            Case 1

                Console.WriteLine("Comando para opcion 1")

                'Que indique si desea continuar, si es verdadero ejecuta de nuevo la aplicacion, si es falso finaliza

                Console.WriteLine("Desea Continuar 1 = si, 2= no ")

                Respuesta = Console.ReadLine()

            Case 2 

                Console.WriteLine("Comando para opcion 2")

                Console.WriteLine("Desea Continuar 1 = si, 2= no ")

                Respuesta = Console.ReadLine()

            End Select

        End While

    End Sub

End Module