11-08-23

Connectors.Form/frmMain.vb

@@ -43,8 +43,12 @@ Partial Public Class frmMain
                 Exit Sub
             End If
 
+            btnForceSync.Enabled = True
+
             If ConfigManager.Config.Autostart And Sync.TestConfigIsComplete() Then
+                btnForceSync.Enabled = False
                 Await Sync.Run()
+                btnForceSync.Enabled = True
             End If
 
             If ConfigManager.Config.TimerIntervalMin > 0 Then
@@ -115,7 +119,9 @@ Partial Public Class frmMain
     End Sub
 
     Private Async Function Timer_Elapsed(sender As Object, e As System.EventArgs) As Threading.Tasks.Task Handles SyncTimer.Tick
+        btnForceSync.Enabled = False
         Await Sync.Run()
+        btnForceSync.Enabled = True
     End Function
 
     Private Sub AddInfoEntry(pMessage As String, ParamArray pArgs As Object())
@@ -171,4 +177,10 @@ Partial Public Class frmMain
             WindowState = FormWindowState.Normal
         End If
     End Sub
+
+    Private Async Sub btnForceSync_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnForceSync.ItemClick
+        btnForceSync.Enabled = False
+        Await Sync.Run()
+        btnForceSync.Enabled = True
+    End Sub
 End Class