Coding Membuat Menu Case di Visual Studio

Module Home
          Sub Main()
                  Dim Nomor_Menu As Integer
                  Try
          Do While True
          Console.WriteLine("")
          Console.WriteLine("# Menu Pilihan Menghitung #")
          Console.WriteLine("1. Menghitung Keliling Segitiga") 
          Console.WriteLine("2. Menghitung Luas Lingkaran")
          Console.WriteLine("3. Menghitung Keliling Lingkaran")
          Console.WriteLine("4. Menghitung Tahun Kabisat")
          Console.WriteLine("5. Keluar Program")
          Console.Write("Masukan Pilihan Menu (1/2/3/4/5): ")
          Nomor_Menu = Console.ReadLine
          Select Case Nomor_Menu
          Case 1
               Keliling_Segitiga()
          Case 2
                Luas_Lingkaran()
          Case 3
                Keliling_Lingkaran()
          Case 4
                Tahun_Kabisat()
          Case 5
    End
          Case Else
          Console.WriteLine("Nomor Pilihan Anda Salah, Tentukan Pilihan !")
End Select
          Console.WriteLine("--------------------------------------")
          Loop
          Catch ex As Exception
          Console.WriteLine("Anda Tidak Memasukkan Pilihan !!!")
          Console.WriteLine("")
          Main()
End Try
          Console.ReadKey()
End Sub
 Kemudian Masukkan Menu Sub di Bawahnya dengan judul yang sesuai di Menu Pertama.
Selamat Mencoba......!