'Creo un datatable di prova che contiene una sola colonna "id"
        Dim table As New DataTable()
        table.Columns.Add("Id", GetType(Integer))
        'Ci caricho 10000 righe
        For i = 1 To 10000
            table.Rows.Add(i)
        Next

        'Misuro il tempo che impiega l'algortimo
        Dim stopwatch As New Stopwatch()
        stopwatch.Start()
        'Parallelizzo l'esecuzione su numero di processori * 2 thread
        'In questo caso si tratta di una somma degli Id, ma potrei
        'usare Select al posto di Sum per proiettare un risultato
        Dim risultato = table.
            AsEnumerable().
            AsParallel().
            WithDegreeOfParallelism(Environment.ProcessorCount * 2).
            Sum(Function(dataRow)
                    Return dataRow("Id")
                End Function)
        stopwatch.Stop()
        Console.WriteLine(risultato)
        Console.WriteLine(stopwatch.Elapsed)

        Console.ReadLine()