Parallel クラスの使いかたメモ

Parallel.Invoke.vb

Sub L()
'proc1
End Sub

Sub M()
'proc2
End Sub

Sub N()
'proc3
End Sub

Parallel.Invoke(L, M, N)

Parallel.For.vb

Parallel.For(0, N, Function(i) 
                       Console.WriteLine(i + i)
                   End Function)

' - OR -

Sub QQQ()
'proc
End Sub

Parallel.For(0, N, AddressOf QQQ)

Parallel.ForEach.vb

Dim data = Enumerable.Range(0, N)
Parallel.ForEach(data, Function(x) 
                           Console.WriteLine(x + x)
                       End Function)