并行任务（TPL）用于Windows服务中的每个语句

Question

我正在使用Windows服务中的并行任务（TPL）中的每个语句，它正在连续生成任务。无法获取当前正在运行的任务数。

请在下面找到示例代码：

Do
    Dim result As ParallelLoopResult = 
         Parallel.ForEach(taskcount, Function(item) createtask())
Loop

这里Do循环代码部分在Windows服务中连续执行。