Imports System

'While 

​

Public Module Module1

    Public Sub Main()

        dim respuesta as integer

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

        dim opcion as integer

        respuesta = 1 'indicamos que la bariable 1 dará continuidad al programa

        While (respuesta = 1) 'Mientras respuesta sea 1, ejecuta las líneas de acción 

            'presentar el menu

            console. Writeline( "menu de opciones 1, opciones 2, opcion ")

            opcion = console.ReadLine()

            Select (opcion)

            case 1

                Console.WriteLine("Comando para opcion 1")

                'Indique si desea continuar, si es verdadero ejecuta de nuevo la aplicación, 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