improvements of the debug view

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>