Как сделать Private Sub вернуться к югу от основной()

Question

ИТАК, я всю программу, а что нет, это просто я не как не допустить его выхода из программы после исполнения

private sub 

Как, например, у меня есть

Private Sub KeyList() 
    Console.WriteLine("1.) File - Opens a test file") 
    Console.WriteLine("2.) Update - Updates the program using an external .bat file") 
    Console.WriteLine("3.) Username - ReDo Your username") 
    Console.WriteLine("4.) Site - Starts your browser and leads you to our site :D") 
    Console.WriteLine("5.) PLUGIN_STRT_NOPROT - Starts the loaded plugin without layered protection, do not do this unless you know") 
    Console.WriteLine("what you are doing") 
    Console.WriteLine("6.) PLUGIN_STRT_PROT - Starts loaded plugin with protection, reccomended.") 
    Console.WriteLine("7.) API_Str_Rand - Creates a random API string that you can assign to a plugin.") 
    Console.WriteLine("8) DownloadDevKit - Downloads the developmental kit to create a plugin") 

End Sub 

, но после того, как я ударил какой-либо другой ключ, программа завершается. Как предотвратить программу от завершения, и возвращаясь к

sub main() 

Вот мой код данных для всей программы, это VB.NET 2010.

Module Module1 
Sub Main() 
    REM Add all the Dimensions/Descriptions here. 
    Dim VersionName As String = "1" 
    Dim Action As String = "Action" 
    Dim username As String = "UserName" 
    REM The Visual part of the program. No pun intended :> 

    REM Ask the name for the session. 
    username: 
    Console.WriteLine("Hello, What is your name? ") 
    username = Console.ReadLine() 
    Console.WriteLine("Hello " + username) 
    If username = "Skycoder" Then 
     Console.WriteLine("Welcome back!, Planned updates to include in this are, 1.) ADd in more key features") 
     Console.WriteLine("2.) Add hotkeys") 
     Console.WriteLine("3.) Implement and auto updater") 
     Console.Beep() 
     If username = "" Then 
      Console.WriteLine("Please type in name. Numerals can be used") 
      GoTo username 
     End If 
    End If 
    Fish: 
    Console.ReadLine() 
    Console.Clear() 
    Console.Title = ("Desktop TBI | Hello " + username) 
    Console.WriteLine("-----------------------------------------------------------------------------------------------------------") 
    Console.WriteLine("Please select an option, note that this is a work in progress, and will contain more features in the future") 
    Console.WriteLine("") 
    Console.WriteLine("     Type 'File' to create the directory (Important if you want to add plugins)") 
    Console.WriteLine("         Using Version: " + VersionName) 
    Console.WriteLine("-----------------------------------------------------------------------------------------------------------") 
    Console.WriteLine("        Please choose what action you want to do") 
    Console.WriteLine("        Type in 'File' To find the directory") 
    Console.WriteLine("     Type in 'Update' To open the .bat file to download the updates") 
    Console.WriteLine("-----------------------------------------------------------------------------------------------------------") 
    Console.WriteLine("To create the new path, enter 'CreateDir'") 
    REM Begin the part where users can select their code. 
    Dim selection As String = Console.ReadLine 
    Select Case selection 
     REM This allows the creation of a text file. 
     Case "File" 
      Console.Clear() 
      File() REM Private sub selection 
      REM Updates their program. 
     Case "Username" 
      Console.Clear() 
      GoTo UserName 
      REM Set's their username for the program. 
     Case "Update" 
      Update() 
     Case "KeyList" 
      KeyList() 
     Case "CreateDir" 
      CreateDir() 
     Case "SERV_Start" 
      Chat_Start_SERV() 
     Case "Site" 
      Site() 
      Console.ReadLine() 
    End Select 
End Sub  

, но после того, как я выбираю дело что я хочу использовать и переходить в подкод для
keylists, он просто заканчивается, и он даже не дожидается, когда я его прочитаю. Я буду буквально предоставлять видеоролик об этом, если это поможет кому-то ... Я в отчаянии ...

Answer 1

Поместите блок Select case в цикл, добавьте еще один вариант (например, «Выход») - если этот параметр будет выбран, цикл выхода и приложение будут удалены.

Console.WriteLine("0) Exit - Exit application") 

Dim selection As String = Console.ReadLine() 
While selection.Equals("Exit") = false 
    Select Case selection 
     REM This allows the creation of a text file. 
     Case "File" 
      Console.Clear() 
      File() REM Private sub selection 
     '... 
     '... other Case values 
     '... 

    End Select 
    selection = Console.ReadLine() 
Loop 

Answer 2

Это приложение ударит только Console.ReadLine(), если пользователь ввел «Сайт». Переместите оператор Readline под оператором End Select, и он будет делать то, что вы хотите.