Paralelismo de datos (Task Parallel Library)

Aquí tienes un ejemplo de cómo se pueden usar los (dos o más) núcleos del procesador para que cada uno de ellos trabaje en paralelo de forma independientePara ello se usa una librería estándar de Microsoft [Paralelismo de datos (Task Parallel Library)] http://msdn.microsoft.com/es-es/library/dd537608.aspx
   
El código que he puesto es un bucle que recorre una matriz cargada con hilos que están funcionando y que quiere saber cuántos hilos siguen vivos [IsAlive] La comprobación de [Nothing] es para evitar errores por llamar a una referencia nula (cuando el hilo termina su ejecución me lo cargo haciéndolo [Nothing]
Ya sé que he descubierto la pólvora, pero me gusta, y estoy mu contento :-)

Dim resultado As Integer = 0
If Not (_matrizHilos Is Nothing) Then
   '----------------------------------
   ' Usando código normal
   'For indice As Integer = _matrizHilos.GetLowerBound(0) To 
                           _matrizHilos.GetUpperBound(0)
   ' cuerpo del bucle 
   '    If Not (_matrizHilos(indice) Is Nothing) Then
   '        If _matrizHilos(indice).IsAlive = True Then
   '            resultado += 1
   '        End If
   '    End If
   'Next
   '----------------------------------
   ' Usando [Paralelismo de datos (Task Parallel Library)]
   ' http://msdn.microsoft.com/es-es/library/dd537608.aspx>
   Threading.Tasks.Parallel.For(_matrizHilos.GetLowerBound(0), _
                                _matrizHilos.GetUpperBound(0), _
          Sub(indice)
             'cuerpo del bucle 
              If Not (_matrizHilos(indice) Is Nothing) Then
                 If _matrizHilos(indice).IsAlive = True Then
                     resultado += 1
                 End If
             End If
         End Sub)
End If
' Return resultado

Ta otra amig@