Aggiunto check solo stato code

DemoVB/Form1.Designer.vb

@@ -29,6 +29,7 @@ Partial Class Form1
         Me.btnFullTest = New System.Windows.Forms.Button()
         Me.btnResetQueue = New System.Windows.Forms.Button()
         Me.txtOut = New System.Windows.Forms.TextBox()
+        Me.btnQueueStatus = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'btnTestPing
@@ -69,7 +70,7 @@ Partial Class Form1
         '
         'btnFullTest
         '
-        Me.btnFullTest.Location = New System.Drawing.Point(13, 61)
+        Me.btnFullTest.Location = New System.Drawing.Point(12, 104)
         Me.btnFullTest.Name = "btnFullTest"
         Me.btnFullTest.Size = New System.Drawing.Size(75, 23)
         Me.btnFullTest.TabIndex = 4
@@ -100,11 +101,21 @@ Partial Class Form1
         Me.txtOut.TabIndex = 7
         Me.txtOut.Text = "---"
         '
+        'btnQueueStatus
+        '
+        Me.btnQueueStatus.Location = New System.Drawing.Point(13, 64)
+        Me.btnQueueStatus.Name = "btnQueueStatus"
+        Me.btnQueueStatus.Size = New System.Drawing.Size(75, 23)
+        Me.btnQueueStatus.TabIndex = 8
+        Me.btnQueueStatus.Text = "Stato Queue"
+        Me.btnQueueStatus.UseVisualStyleBackColor = True
+        '
         'Form1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(764, 472)
+        Me.Controls.Add(Me.btnQueueStatus)
         Me.Controls.Add(Me.txtOut)
         Me.Controls.Add(Me.btnResetQueue)
         Me.Controls.Add(Me.btnFullTest)
@@ -126,4 +137,5 @@ Partial Class Form1
     Friend WithEvents btnFullTest As Button
     Friend WithEvents btnResetQueue As Button
     Friend WithEvents txtOut As TextBox
+    Friend WithEvents btnQueueStatus As Button
 End Class

DemoVB/Form1.vb

@@ -108,4 +108,19 @@ Public Class Form1
         currWDC.ResetQueue()
         txtOut.Text = "Queue Resetted!"
     End Sub
+
+    Private Sub btnQueueStatus_Click(sender As Object, e As EventArgs) Handles btnQueueStatus.Click
+
+        Dim queueStatus As New Dictionary(Of String, Long)
+        queueStatus = currWDC.queueStatus
+        Dim sb As StringBuilder
+        sb = New StringBuilder
+        sb.AppendLine("----------------------------")
+        For Each item As KeyValuePair(Of String, Long) In queueStatus
+            sb.AppendLine($"{item.Key} | Found {item.Value} items")
+        Next
+        sb.AppendLine("----------------------------")
+        sb.AppendLine()
+        txtOut.Text = sb.ToString()
+    End Sub
 End Class