Dim Re3 As New Random
        Dim ReAsult2255e As IEnumerable(Of Integer) =
           (splits(0).Concat(splits(2).
           Distinct.
           Select(Function(Value As Integer)
                      Return If(Value < MAX, Value, Rand.Next(1, MAX))
                  End Function)))
 
        Dim seAlecctedValues231 As IEnumerable(Of Integer) = ReAsult2255e
        Dim liste3 As List(Of Integer) = ReAsult2255e.Take(11).ToList
 
        liste3.Sort()
        ListBox6.Items.AddRange(liste3.Cast(Of Object).ToArray) 

Public Class Form1
 
    Private Sub Test() Handles MyBase.Shown
 
        Dim values As IEnumerable(Of Integer) =
            {
                1, 2, 3, 4,
                5, 6, 10, 11,
                14, 15, 54, 57,
                58, 60, 63, 64,
                65, 67
            }
 
        Dim splits As IEnumerable(Of IEnumerable(Of Integer)) =
            SplitIntoParts(collection:=values, amount:=4,
                           fillEmpty:=True)
 
        Me.ListBox1.Items.AddRange(splits(0).Cast(Of Object).ToArray)
        Me.ListBox2.Items.AddRange(splits(1).Cast(Of Object).ToArray)
        Me.ListBox3.Items.AddRange(splits(2).Cast(Of Object).ToArray)
 
    End Sub
 
    ''' <remarks>
    ''' *****************************************************************
    ''' Snippet Title: Split Collection Into Parts
    ''' Code's Author: Elektro
    ''' Date Modified: 16-March-2015
    ''' Usage Example: 
    ''' Dim mainCol As IEnumerable(Of Integer) = {1, 2, 3, 4, 5, 6, 7, 8, 9}
    ''' Dim splittedCols As IEnumerable(Of IEnumerable(Of Integer)) = SplitColIntoParts(mainCol, amount:=4, fillEmpty:=True)
    ''' splittedCols.ToList.ForEach(Sub(col As IEnumerable(Of Integer))
    '''                                 Debug.WriteLine(String.Join(", ", col))
    '''                             End Sub)
    ''' *****************************************************************
    ''' </remarks>
    ''' <summary>
    ''' Splits an <see cref="IEnumerable(Of T)"/> into the specified amount of elements.
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="collection">The collection to split.</param>
    ''' <param name="amount">The target elements amount.</param>
    ''' <param name="fillEmpty">If set to <c>true</c>, generate empty elements to fill the last secuence's part amount.</param>
    ''' <returns>IEnumerable(Of IEnumerable(Of T)).</returns>
    Public Shared Function SplitIntoParts(Of T)(ByVal collection As IEnumerable(Of T),
                                                ByVal amount As Integer,
                                                ByVal fillEmpty As Boolean) As IEnumerable(Of IEnumerable(Of T))
 
        Dim newCol As IEnumerable(Of List(Of T)) =
            (From index As Integer
            In Enumerable.Range(0, CInt(Math.Ceiling(collection.Count() / amount)))
            Select collection.Skip(index * amount).Take(amount).ToList).ToList
 
        If fillEmpty Then
 
            Do Until newCol.Last.Count = amount
                newCol.Last.Add(Nothing)
            Loop
 
        End If
 
        Return newCol
 
    End Function
 
End Class

    Public Shared Function SplitIntoParts(Of T)(ByVal collection As IEnumerable(Of T),
                                                ByVal amount As Integer,
                                                ByVal fillEmpty As Boolean) As IEnumerable(Of IEnumerable(Of T))
 
        Return From index As Integer In Enumerable.Range(0, CInt(Math.Ceiling(collection.Count() / amount)))
               Select If(Not fillEmpty,
                         collection.Skip(index * amount).Take(amount),
                         If((collection.Count() - (index * amount)) >= amount,
                            collection.Skip(index * amount).Take(amount),
                            collection.Skip(index * amount).Take(amount).
                                                            Concat(From i As Integer
                                                                   In Enumerable.Range(0, amount - (collection.Count() - (index * amount)))
                                                                   Select DirectCast(Nothing, T))))
 
    End Function

 Select(Function(Value As Integer)
                      Return If(Value < MAX, Value, Rand.Next(1, MAX))
                  End Function)) 

 Dim values As IEnumerable(Of Integer) =
            {
                1, 2, 3, 4,
                5, 6, 10, 11,
                14, 15, 54, 57,
                58, 60, 61, 64,
                65, 67, 71, 75
            }
        Dim Re3 As New Random
        Dim splits As IEnumerable(Of IEnumerable(Of Integer)) =
            SplitIntoParts(collection:=values, amount:=4,
                           fillEmpty:=True)
 
 
        Me.ListBox1.Items.AddRange(splits(0).Cast(Of Object).ToArray)
        Me.ListBox2.Items.AddRange(splits(1).Cast(Of Object).ToArray)
        Me.ListBox3.Items.AddRange(splits(2).Cast(Of Object).ToArray)   

Dim numbers() As Integer = {1, 2, 3, 4, 5, 6, 10, 11, 14, 15,  54, 57, 58, 60, 63, 64, 65, 67, 68, 69, 70, 71, 75, 76, 77, 79, 80}
 
 
    Dim evensQuery = From num In numbers
                         Where num Mod 2 = 0
                         Select num
 
        Dim selectedValues As IEnumerable(Of Integer) = evensQuery.Take(4)
        ListBox1.Items.AddRange(selectedValues.Cast(Of Object).ToArray)
 
        '----------------------------------------2
        Dim ll = From num In numbers
                Where num Mod 2 = 1
                Select num
 
        Dim selected2Values As IEnumerable(Of Integer) = ll.Take(4)
        ListBox2.Items.AddRange(selected2Values.Cast(Of Object).ToArray)
 
        '---------------------------------------------------------3
        Dim ll1 = From num In numbers
                Where num Mod 3 = 0
                Select num
 
        Dim selected222Values As IEnumerable(Of Integer) = ll1.Take(4)
        ListBox3.Items.AddRange(selected222Values.Cast(Of Object).ToArray) 

Dim selecctedValues23aa As IEnumerable(Of Integer) =
    From value As Integer In Result22aa55e
    Take 11
    Order By value Ascending

Dim selecctedValues23aa As IEnumerable(Of Integer) =
    Result22aa55e.
    Take(11).
    OrderBy(Function(value As Integer)
               Return value
            End Function)

Dim liste As List(Of Integer) = selecctedValues23aa.Take(11).ToList
        liste.Sort() 

Dim Re As New Random
        Dim Result22aa55e As IEnumerable(Of Integer) =
              (
                  (Result1.Concat(Result2).Concat(Result3).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(25, MAX))
                   End Function))
         )
        Dim selecctedValues23aa As IEnumerable(Of Integer) = Result22aa55e.Take(11)
        Dim liste As List(Of Integer) = selecctedValues23aa.ToList
        liste.Sort()
        ListBox3.Items.AddRange(liste.Cast(Of Object).ToArray)  

Structure Pet
        Public Name As String
        Public Age As Integer
    End Structure
 
    Sub OrderByEx1()
        ' Create an array of Pet objects.
        Dim pets() As Pet = {New Pet With {.Name = "Barley", .Age = 8}, _
                             New Pet With {.Name = "Boots", .Age = 4}, _
                             New Pet With {.Name = "Whiskers", .Age = 1}}
 
        ' Order the Pet objects by their Age property.
        Dim query As IEnumerable(Of Pet) = _
            pets.OrderBy(Function(pet) pet.Age)
 
        Dim output As New System.Text.StringBuilder
        For Each pt As Pet In query
            output.AppendLine(pt.Name & " - " & pt.Age)
        Next
 
        ' Display the output.
        MsgBox(output.ToString())
    End Sub
 
    ' This code produces the following output:
    '
    ' Whiskers - 1
    ' Boots - 4
    ' Barley - 8 

Dim Re As New Random
Dim Result22aa55e As IEnumerable(Of Integer) =
              (
                  (Result1.Concat(Result2).Concat(Result3).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
                   End Function))
         )
 
        Dim selecctedValues23aa As IEnumerable(Of Integer) = Result22aa55e.Take(11)
 
        '  Array.Sort(selecctedValues23aa)
        ' ListBox3.Sorted = True
 
      Me.ListBox3.Items.AddRange(selecctedValues23aa.Cast(Of Object).ToArray)