ClientSuite: Improve WorkerManager

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