libros.sort! { 
    |primerLibro, segundoLibro| 
    segundoLibro <=> primerLibro 
}

    ''' <summary>
    ''' Defines a Console Menu Item.
    ''' </summary>
    Public NotInheritable Class ConsoleMenuItem
 
        ''' <summary>
        ''' Gets or sets the item text.
        ''' </summary>
        ''' <value>The item text.</value>
        Public Property Text As String
 
        ''' <summary>
        ''' Gets or sets the <see cref="ConsoleKey"/> that activates this item.
        ''' </summary>
        ''' <value>The <see cref="ConsoleKey"/> that activates this item.</value>
        Public Property Key As ConsoleKey
 
        ''' <summary>
        ''' Gets or sets the associated <see cref="Command"/> for this item.
        ''' </summary>
        ''' <value>The associated <see cref="Command"/> for this item.</value>
        Public Property Command As Action
 
    End Class

    ''' <summary>
    ''' The main menu items.
    ''' </summary>
    Private ReadOnly mainMenuItems As IEnumerable(Of ConsoleMenuItem) =
        {
            New ConsoleMenuItem With
                {
                    .Text = "[1] Show first submenu",
                    .Key = ConsoleKey.D1,
                    .Command = New Action(Sub()
                                              ShowMenu(subMenuItems1)
                                          End Sub)
                },
            New ConsoleMenuItem With
                {
                    .Text = "[2] Show second submenu",
                    .Key = ConsoleKey.D2,
                    .Command = New Action(Sub()
                                              ShowMenu(subMenuItems2)
                                          End Sub)},
            menuItemExit
        }
 
    ''' <summary>
    ''' The first submenu items.
    ''' </summary>
    Private ReadOnly subMenuItems1 As IEnumerable(Of ConsoleMenuItem) =
        {
            New ConsoleMenuItem With
                {
                    .Text = "[1] Print a 'Hello World!'",
                    .Key = ConsoleKey.D1,
                    .Command = New Action(Sub()
                                              Console.WriteLine("Hello World!")
                                          End Sub)
                },
            New ConsoleMenuItem With
                {
                    .Text = "[R] Return",
                    .Key = ConsoleKey.R,
                    .Command = New Action(Sub()
                                              ShowMenu(mainMenuItems)
                                          End Sub)},
            menuItemExit
        }
 
    ''' <summary>
    ''' The second submenu items.
    ''' </summary>
    Private ReadOnly subMenuItems2 As IEnumerable(Of ConsoleMenuItem) =
        {
            New ConsoleMenuItem With
                {
                    .Text = "[1] Print the current date.",
                    .Key = ConsoleKey.D1,
                    .Command = Sub()
                                   Console.WriteLine(Date.Today.ToLongDateString)
                               End Sub
                },
            New ConsoleMenuItem With
                {
                    .Text = "[R] Return",
                    .Key = ConsoleKey.R,
                    .Command = New Action(Sub()
                                              ShowMenu(mainMenuItems)
                                          End Sub)},
            menuItemExit
        }
 
    ''' <summary>
    ''' A menu item that exists from console.
    ''' </summary>
    Private ReadOnly menuItemExit As New ConsoleMenuItem With
    {
        .Text = "[X] Exit...",
        .Key = ConsoleKey.X,
        .Command = AddressOf EndConsole
    }

    ''' <summary>
    ''' Defines the entry point of the application.
    ''' </summary>
    Public Sub Main()
 
        ShowMenu(mainMenuItems)
        System.Threading.Thread.Sleep(Integer.MaxValue)
 
    End Sub
 
    ''' <summary>
    ''' Shows a console menu.
    ''' </summary>
    ''' <param name="menuItems">The items that composes the menu.</param>
    ''' <param name="itemIndicator">A string that indicates the current menu item.</param>
    Private Sub ShowMenu(ByVal menuItems As IEnumerable(Of ConsoleMenuItem),
                         Optional ByVal itemIndicator As String = " -> ")
 
        ' The selected menu item.
        Dim selectedItem As ConsoleMenuItem = menuItems(0)
 
        ' The index of the selected menu item.
        Dim selectedIndex As Integer
 
        ' The object to read the user-input pressed key.
        Dim currentKey As ConsoleKey
 
        ' Flag that determines wether the user pressed a valid menu item key.
        Dim itemKeyIsPressed As Boolean
 
        ' Wait for a valid menu item key.
        Do Until itemKeyIsPressed
 
            ' Iterate the menu items to format the menu string.
            Dim sb As New System.Text.StringBuilder
            With sb
 
                sb.AppendLine("===============================")
                sb.AppendLine("=========== My Menu ===========")
                sb.AppendLine("===============================")
                sb.AppendLine()
 
                For Each menuItem As ConsoleMenuItem In menuItems
                    If menuItem Is selectedItem Then
                        sb.AppendLine(String.Format("{0}{1}", itemIndicator, menuItem.Text))
                    Else
                        sb.AppendLine(menuItem.Text.Insert(0, New String(" "c, itemIndicator.Length)))
                    End If
                Next menuItem
 
                sb.AppendLine()
                sb.AppendLine("===============================")
 
            End With
 
            ' Clear the screen.
            Console.Clear()
 
            ' Print the menu items.
            Console.WriteLine(sb.ToString)
 
            ' Wait for user-input.
            currentKey = Console.ReadKey(True).Key
 
            ' Handle the pressed key.
            Select Case currentKey
 
                Case ConsoleKey.DownArrow ' Decrease current item selection.
                    selectedIndex = menuItems.ToList.IndexOf(selectedItem)
                    If selectedIndex < (menuItems.Count - 1) Then
                        selectedItem = menuItems(selectedIndex + 1)
                    Else
                        selectedItem = menuItems.First
                    End If
 
                Case ConsoleKey.UpArrow  ' Increase current item selection.
                    selectedIndex = menuItems.ToList.IndexOf(selectedItem)
                    If selectedIndex <> 0 Then
                        selectedItem = menuItems(selectedIndex - 1)
                    Else
                        selectedItem = menuItems.Last
                    End If
 
                Case ConsoleKey.Enter ' Run the selected item's command.
                    itemKeyIsPressed = True
                    selectedItem.Command.Invoke()
 
                Case ConsoleKey.Backspace ' Return to previous menu (if any).
                    Dim foundItem As ConsoleMenuItem =
                        (From item As ConsoleMenuItem In menuItems
                         Where item.Key = ConsoleKey.R).FirstOrDefault
 
                    If foundItem IsNot Nothing Then
                        itemKeyIsPressed = True
                        selectedItem = foundItem
                        selectedItem.Command.Invoke()
                    End If
 
                Case Else
                    Dim foundItem As ConsoleMenuItem =
                        (From item As ConsoleMenuItem In menuItems
                         Where item.Key = currentKey).FirstOrDefault
 
                    If foundItem IsNot Nothing Then
                        itemKeyIsPressed = True
                        selectedItem = foundItem
                        selectedItem.Command.Invoke()
                    End If
 
            End Select
 
        Loop
 
    End Sub
 
    ''' <summary>
    ''' Terminates the application.
    ''' </summary>
    Private Sub EndConsole()
 
        Environment.Exit(exitCode:=0)
 
    End Sub

Module Module1
 
    ''' <summary>
    ''' Defines a Console Menu Item.
    ''' </summary>
    Public NotInheritable Class ConsoleMenuItem
 
        ''' <summary>
        ''' Gets or sets the item text.
        ''' </summary>
        ''' <value>The item text.</value>
        Public Property Text As String
 
        ''' <summary>
        ''' Gets or sets the <see cref="ConsoleKey"/> that activates this item.
        ''' </summary>
        ''' <value>The <see cref="ConsoleKey"/> that activates this item.</value>
        Public Property Key As ConsoleKey
 
        ''' <summary>
        ''' Gets or sets the associated <see cref="Command"/> for this item.
        ''' </summary>
        ''' <value>The associated <see cref="Command"/> for this item.</value>
        Public Property Command As Action
 
    End Class
 
    ''' <summary>
    ''' A menu item that exists from console.
    ''' </summary>
    Private ReadOnly menuItemExit As New ConsoleMenuItem With
    {
        .Text = "[X] Exit...",
        .Key = ConsoleKey.X,
        .Command = AddressOf EndConsole
    }
 
    ''' <summary>
    ''' The main menu items.
    ''' </summary>
    Private ReadOnly mainMenuItems As IEnumerable(Of ConsoleMenuItem) =
        {
            New ConsoleMenuItem With
                {
                    .Text = "[1] Show first submenu",
                    .Key = ConsoleKey.D1,
                    .Command = New Action(Sub()
                                              ShowMenu(subMenuItems1)
                                          End Sub)
                },
            New ConsoleMenuItem With
                {
                    .Text = "[2] Show second submenu",
                    .Key = ConsoleKey.D2,
                    .Command = New Action(Sub()
                                              ShowMenu(subMenuItems2)
                                          End Sub)},
            menuItemExit
        }
 
    ''' <summary>
    ''' The first submenu items.
    ''' </summary>
    Private ReadOnly subMenuItems1 As IEnumerable(Of ConsoleMenuItem) =
        {
            New ConsoleMenuItem With
                {
                    .Text = "[1] Print a 'Hello World!'",
                    .Key = ConsoleKey.D1,
                    .Command = New Action(Sub()
                                              Console.WriteLine("Hello World!")
                                          End Sub)
                },
            New ConsoleMenuItem With
                {
                    .Text = "[R] Return",
                    .Key = ConsoleKey.R,
                    .Command = New Action(Sub()
                                              ShowMenu(mainMenuItems)
                                          End Sub)},
            menuItemExit
        }
 
    ''' <summary>
    ''' The second submenu items.
    ''' </summary>
    Private ReadOnly subMenuItems2 As IEnumerable(Of ConsoleMenuItem) =
        {
            New ConsoleMenuItem With
                {
                    .Text = "[1] Print the current date.",
                    .Key = ConsoleKey.D1,
                    .Command = Sub()
                                   Console.WriteLine(Date.Today.ToLongDateString)
                               End Sub
                },
            New ConsoleMenuItem With
                {
                    .Text = "[R] Return",
                    .Key = ConsoleKey.R,
                    .Command = New Action(Sub()
                                              ShowMenu(mainMenuItems)
                                          End Sub)},
            menuItemExit
        }
 
    ''' <summary>
    ''' Defines the entry point of the application.
    ''' </summary>
    Public Sub Main()
 
        ShowMenu(mainMenuItems)
        System.Threading.Thread.Sleep(Integer.MaxValue)
 
    End Sub
 
    ''' <summary>
    ''' Shows a console menu.
    ''' </summary>
    ''' <param name="menuItems">The items that composes the menu.</param>
    ''' <param name="itemIndicator">A string that indicates the current menu item.</param>
    Private Sub ShowMenu(ByVal menuItems As IEnumerable(Of ConsoleMenuItem),
                         Optional ByVal itemIndicator As String = " -> ")
 
        ' The selected menu item.
        Dim selectedItem As ConsoleMenuItem = menuItems(0)
 
        ' The index of the selected menu item.
        Dim selectedIndex As Integer
 
        ' The object to read the user-input pressed key.
        Dim currentKey As ConsoleKey
 
        ' Flag that determines wether the user pressed a valid menu item key.
        Dim itemKeyIsPressed As Boolean
 
        ' Wait for a valid menu item key.
        Do Until itemKeyIsPressed
 
            ' Iterate the menu items to format the menu string.
            Dim sb As New System.Text.StringBuilder
            With sb
 
                sb.AppendLine("===============================")
                sb.AppendLine("=========== My Menu ===========")
                sb.AppendLine("===============================")
                sb.AppendLine()
 
                For Each menuItem As ConsoleMenuItem In menuItems
                    If menuItem Is selectedItem Then
                        sb.AppendLine(String.Format("{0}{1}", itemIndicator, menuItem.Text))
                    Else
                        sb.AppendLine(menuItem.Text.Insert(0, New String(" "c, itemIndicator.Length)))
                    End If
                Next menuItem
 
                sb.AppendLine()
                sb.AppendLine("===============================")
 
            End With
 
            ' Clear the screen.
            Console.Clear()
 
            ' Print the menu items.
            Console.WriteLine(sb.ToString)
 
            ' Wait for user-input.
            currentKey = Console.ReadKey(True).Key
 
            ' Handle the pressed key.
            Select Case currentKey
 
                Case ConsoleKey.DownArrow ' Decrease current item selection.
                    selectedIndex = menuItems.ToList.IndexOf(selectedItem)
                    If selectedIndex < (menuItems.Count - 1) Then
                        selectedItem = menuItems(selectedIndex + 1)
                    Else
                        selectedItem = menuItems.First
                    End If
 
                Case ConsoleKey.UpArrow  ' Increase current item selection.
                    selectedIndex = menuItems.ToList.IndexOf(selectedItem)
                    If selectedIndex <> 0 Then
                        selectedItem = menuItems(selectedIndex - 1)
                    Else
                        selectedItem = menuItems.Last
                    End If
 
                Case ConsoleKey.Enter ' Run the selected item's command.
                    itemKeyIsPressed = True
                    selectedItem.Command.Invoke()
 
                Case ConsoleKey.Backspace ' Return to previous menu (if any).
                    Dim foundItem As ConsoleMenuItem =
                        (From item As ConsoleMenuItem In menuItems
                         Where item.Key = ConsoleKey.R).FirstOrDefault
 
                    If foundItem IsNot Nothing Then
                        itemKeyIsPressed = True
                        selectedItem = foundItem
                        selectedItem.Command.Invoke()
                    End If
 
                Case Else
                    Dim foundItem As ConsoleMenuItem =
                        (From item As ConsoleMenuItem In menuItems
                         Where item.Key = currentKey).FirstOrDefault
 
                    If foundItem IsNot Nothing Then
                        itemKeyIsPressed = True
                        selectedItem = foundItem
                        selectedItem.Command.Invoke()
                    End If
 
            End Select
 
        Loop
 
    End Sub
 
    ''' <summary>
    ''' Terminates the application.
    ''' </summary>
    Private Sub EndConsole()
 
        Environment.Exit(exitCode:=0)
 
    End Sub
 
End Module

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
 
static class Module1
{
	/// <summary>
	/// Defines a Console Menu Item.
	/// </summary>
	public sealed class ConsoleMenuItem
	{
		/// <summary>
		/// Gets or sets the item text.
		/// </summary>
		/// <value>The item text.</value>
		public string Text { get; set; }
 
		/// <summary>
		/// Gets or sets the <see cref="ConsoleKey"/> that activates this item.
		/// </summary>
		/// <value>The <see cref="ConsoleKey"/> that activates this item.</value>
		public ConsoleKey Key { get; set; }
 
		/// <summary>
		/// Gets or sets the associated <see cref="Command"/> for this item.
		/// </summary>
		/// <value>The associated <see cref="Command"/> for this item.</value>
		public Action Command { get; set; }
 
	}
 
	 /// <summary>
	 /// A menu item that exists from console.
	/// </summary>
	private static readonly ConsoleMenuItem menuItemExit = new ConsoleMenuItem {
		Text = "[X] Exit...",
		Key = ConsoleKey.X,
		Command = EndConsole
 
	};
	/// <summary>
	/// The main menu items.
	/// </summary>
	private static readonly IEnumerable<ConsoleMenuItem> mainMenuItems = {
		new ConsoleMenuItem {
			Text = "[1] Show first submenu",
			Key = ConsoleKey.D1,
			Command = new Action(() => { ShowMenu(subMenuItems1); })
		},
		new ConsoleMenuItem {
			Text = "[2] Show second submenu",
			Key = ConsoleKey.D2,
			Command = new Action(() => { ShowMenu(subMenuItems2); })
		},
		menuItemExit
 
	};
	/// <summary>
	/// The first submenu items.
	/// </summary>
	private static readonly IEnumerable<ConsoleMenuItem> subMenuItems1 = {
		new ConsoleMenuItem {
			Text = "[1] Print a 'Hello World!'",
			Key = ConsoleKey.D1,
			Command = new Action(() => { Console.WriteLine("Hello World!"); })
		},
		new ConsoleMenuItem {
			Text = "[R] Return",
			Key = ConsoleKey.R,
			Command = new Action(() => { ShowMenu(mainMenuItems); })
		},
		menuItemExit
 
	};
	/// <summary>
	/// The second submenu items.
	/// </summary>
	private static readonly IEnumerable<ConsoleMenuItem> subMenuItems2 = {
		new ConsoleMenuItem {
			Text = "[1] Print the current date.",
			Key = ConsoleKey.D1,
			Command = () => { Console.WriteLine(System.DateTime.Today.ToLongDateString); }
		},
		new ConsoleMenuItem {
			Text = "[R] Return",
			Key = ConsoleKey.R,
			Command = new Action(() => { ShowMenu(mainMenuItems); })
		},
		menuItemExit
 
	};
	/// <summary>
	/// Defines the entry point of the application.
	/// </summary>
 
	public static void Main()
	{
		ShowMenu(mainMenuItems);
		System.Threading.Thread.Sleep(int.MaxValue);
	}
 
	/// <summary>
	/// Shows a console menu.
	/// </summary>
	/// <param name="menuItems">The items that composes the menu.</param>
	/// <param name="itemIndicator">A string that indicates the current menu item.</param>
 
	private static void ShowMenu(IEnumerable<ConsoleMenuItem> menuItems, string itemIndicator = " -> ")
	{
		// The selected menu item.
		ConsoleMenuItem selectedItem = menuItems(0);
 
		// The index of the selected menu item.
		int selectedIndex = 0;
 
		// The object to read the user-input pressed key.
		ConsoleKey currentKey = default(ConsoleKey);
 
		// Flag that determines wether the user pressed a valid menu item key.
		bool itemKeyIsPressed = false;
 
		// Wait for a valid menu item key.
 
		while (!(itemKeyIsPressed)) {
			// Iterate the menu items to format the menu string.
			System.Text.StringBuilder sb = new System.Text.StringBuilder();
			var _with1 = sb;
 
			sb.AppendLine("===============================");
			sb.AppendLine("=========== My Menu ===========");
			sb.AppendLine("===============================");
			sb.AppendLine();
 
			foreach (ConsoleMenuItem menuItem in menuItems) {
				if (object.ReferenceEquals(menuItem, selectedItem)) {
					sb.AppendLine(string.Format("{0}{1}", itemIndicator, menuItem.Text));
				} else {
					sb.AppendLine(menuItem.Text.Insert(0, new string(' ', itemIndicator.Length)));
				}
			}
 
			sb.AppendLine();
			sb.AppendLine("===============================");
 
 
			// Clear the screen.
			Console.Clear();
 
			// Print the menu items.
			Console.WriteLine(sb.ToString);
 
			// Wait for user-input.
			currentKey = Console.ReadKey(true).Key;
 
			// Handle the pressed key.
			switch (currentKey) {
 
				case ConsoleKey.DownArrow:
					// Decrease current item selection.
					selectedIndex = menuItems.ToList.IndexOf(selectedItem);
					if (selectedIndex < (menuItems.Count - 1)) {
						selectedItem = menuItems(selectedIndex + 1);
					} else {
						selectedItem = menuItems.First;
					}
 
					break;
				case ConsoleKey.UpArrow:
					// Increase current item selection.
					selectedIndex = menuItems.ToList.IndexOf(selectedItem);
					if (selectedIndex != 0) {
						selectedItem = menuItems(selectedIndex - 1);
					} else {
						selectedItem = menuItems.Last;
					}
 
					break;
				case ConsoleKey.Enter:
					// Run the selected item's command.
					itemKeyIsPressed = true;
					selectedItem.Command.Invoke();
 
					break;
				case ConsoleKey.Backspace:
					// Return to previous menu (if any).
					ConsoleMenuItem foundItem = (from item in menuItemswhere item.Key == ConsoleKey.R).FirstOrDefault;
 
					if (foundItem != null) {
						itemKeyIsPressed = true;
						selectedItem = foundItem;
						selectedItem.Command.Invoke();
					}
 
					break;
				default:
					ConsoleMenuItem foundItem = (from item in menuItemswhere item.Key == currentKey).FirstOrDefault;
 
					if (foundItem != null) {
						itemKeyIsPressed = true;
						selectedItem = foundItem;
						selectedItem.Command.Invoke();
					}
					break;
			}
		}
	}
 
	/// <summary>
	/// Terminates the application.
	/// </summary>
	private static void EndConsole()
	{
		Environment.Exit(exitCode: 0);
	}
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//Facebook: facebook.com/telerik
//=======================================================
 

        Dim values As IEnumerable(Of Integer) =
                   {
                       1, 3, 4, 6, 7, 8, 9, 20, 22, 28, 35
                   }
 
        Dim selectedValues As IEnumerable(Of Integer) =
            From value As Integer In values
            Group By CStr(value).Last Into Group
            Select Group.First
            Take 10
 
        Me.ListBox1.Items.AddRange(selectedValues.Cast(Of Object).ToArray)

1, 3, 4, 6, 7, 8, 9, 20, 22, 35