MergeCommit

GUIs.ClientSuite/frmMain.vb

@@ -37,11 +37,11 @@ Public Class frmMain
     End Sub
 
     Private Sub HandleOnlineChanged(sender As Object, Online As Boolean)
+        SetOnlineLabel(Online)
         If Online = False Then
-
+            MessageBox.Show($"Application will be closed now.{vbNewLine}Reason: Service is offline.", "Critical Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
             Application.Exit()
         End If
-        SetOnlineLabel(Online)
     End Sub
 
     Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -222,4 +222,11 @@ Public Class frmMain
         }
         oForm.Show()
     End Sub
+
+    Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
+        Dim oForm As New frmWorkflowOverview() With {
+            .MdiParent = DocumentManager.MdiParent
+        }
+        oForm.Show()
+    End Sub
 End Class