Imports System

imports System.Collections

imports System.Collections.Generic

imports System.Linq

​

Public Module Module1

​

    Public Sub Main()

        dim bigList = Enumerable.Range(0,1000)

        bigList.Count().Dump()

        dim listOfList = bigList.ToList().ChunkBy(10)

        listOfList.Count.Dump()

    End Sub

End Module

​

public module extensions

​

    <System.Runtime.CompilerServices.Extension>

    Public Function ChunkBy(Of T)(source As List(Of T), chunkSize As Integer) As List(Of List(Of T))

        dim listOfList = source.[Select](Function(x, i) New With {Key .Index = i, Key .Value = x}).GroupBy(Function(x) x.Index / chunkSize)

                listOfList.Count().Dump()

        Return source.[Select](Function(x, i) New With {Key .Index = i, Key .Value = x}).GroupBy(Function(x) x.Index / chunkSize).[Select](Function(x) x.[Select](Function(v) v.Value).ToList()).ToList()

    End Function

end module

​