DiskussionWorkerClass

GUIs.ClientSuite/frmMain.vb

@@ -9,7 +9,6 @@ Imports DigitalData.Modules.License
 
 Public Class frmMain
     Private _PanelManager As PanelManager
-    Private _Timer As ClassTimer
     Private _WorkerManager As WorkerManager
     Private _Loading As Boolean = True
 
@@ -38,6 +37,10 @@ Public Class frmMain
     End Sub
 
     Private Sub HandleOnlineChanged(sender As Object, Online As Boolean)
+        If Online = False Then
+
+            Application.Exit()
+        End If
         SetOnlineLabel(Online)
     End Sub