add monodiag, add workflow overview

GUIs.Test.TestGUI/Form1.Designer.vb

@@ -43,6 +43,8 @@ Partial Class Form1
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
         CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -228,11 +230,30 @@ Partial Class Form1
         Me.Button4.Text = "Test Background Worker Logging"
         Me.Button4.UseVisualStyleBackColor = True
         '
+        'Button6
+        '
+        Me.Button6.Location = New System.Drawing.Point(683, 143)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(75, 23)
+        Me.Button6.TabIndex = 23
+        Me.Button6.Text = "Get Logs"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
+        'ListBox1
+        '
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.Location = New System.Drawing.Point(683, 172)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(355, 303)
+        Me.ListBox1.TabIndex = 24
+        '
         'Form1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1050, 487)
+        Me.Controls.Add(Me.ListBox1)
+        Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.Button4)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.TextBox1)
@@ -284,4 +305,6 @@ Partial Class Form1
     Friend WithEvents TextBox1 As TextBox
     Friend WithEvents Label6 As Label
     Friend WithEvents Button4 As Button
+    Friend WithEvents Button6 As Button
+    Friend WithEvents ListBox1 As ListBox
 End Class

GUIs.Test.TestGUI/Form1.vb

@@ -41,6 +41,7 @@ Public Class Form1
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
         MyLogger = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "MAIN")
+        MyLogger.Debug = True
         Logger = MyLogger.GetLogger()
 
         Dim MySecondLogger = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "MAIN2")
@@ -169,4 +170,12 @@ Public Class Form1
         bw1.RunWorkerAsync()
     End Sub
 
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Logger.Error(New ApplicationException("Some Error occurred!"))
+
+        ListBox1.Items.Clear()
+        For Each oLog In MyLogger.Logs
+            ListBox1.Items.Add(oLog)
+        Next
+    End Sub
 End Class