Index: ActiviteitenOpvolging/ProductiePitching/ProductiePitchingForm.vb
===================================================================
diff -u -r1784 -r1786
--- ActiviteitenOpvolging/ProductiePitching/ProductiePitchingForm.vb	(.../ProductiePitchingForm.vb)	(revision 1784)
+++ ActiviteitenOpvolging/ProductiePitching/ProductiePitchingForm.vb	(.../ProductiePitchingForm.vb)	(revision 1786)
@@ -32,6 +32,9 @@
 
             PauseActivitiesFromApp()
 
+            'Load all the data. Not done with the general method, because we want to catch the exceptions.
+            RefreshAllData()
+
             'Set the timer's value in miliseconds.
             RefreshTimer.Interval = ConfigsLoader.RefreshIntervalSeconds * 1000
             'Start the times.
@@ -223,10 +226,6 @@
     End Sub
 
     Private Sub ProductiePitchingForm_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
-
-        'Load all the data. Not done with the general method, because we want to catch the exceptions.
-        RefreshAllData()
-
     End Sub
 
 #End Region