From 7bea5a93c4568cd48e0720640797cdc08a83877e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E3=81=93=E3=81=AE=E4=B8=AD=E4=BA=8C=E7=97=85=E3=81=AB?=
 =?UTF-8?q?=E7=88=86=E7=84=94=E3=82=92=EF=BC=81?=
 <xie.guigang@gcmodeller.org>
Date: Fri, 9 Apr 2021 22:18:55 +0800
Subject: [PATCH] improvements of the debug view

---
 Parallel/ThreadTask/ThreadTask.vb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Parallel/ThreadTask/ThreadTask.vb b/Parallel/ThreadTask/ThreadTask.vb
index f33fcee..8a7f352 100644
--- a/Parallel/ThreadTask/ThreadTask.vb
+++ b/Parallel/ThreadTask/ThreadTask.vb
@@ -131,10 +131,9 @@ Namespace ThreadTask
         Public Overrides Function ToString() As String
             Dim free$ = threads.Where(Function(t) t Is Nothing).Count
             Dim running$ = threads.Where(Function(t) t IsNot Nothing AndAlso Not t.IsCompleted).Count
-            Dim finished$ = threads.Where(Function(t) t IsNot Nothing AndAlso t.IsCompleted).Count
             Dim delta As Integer = size - taskList.Count
 
-            Return $"[free: {free}, running: {running}, finished: {finished}, progress: {delta} - {CInt(delta / size * 100)}%]"
+            Return $"[free: {free}, running: {running}, progress: {delta} - {CInt(delta / size * 100)}%]"
         End Function
 
         ''' <summary>