Index: ActiviteitenOpvolging/ProductiePitching/ProductiePitchingForm.vb
===================================================================
diff -u -r1759 -r1784
--- ActiviteitenOpvolging/ProductiePitching/ProductiePitchingForm.vb	(.../ProductiePitchingForm.vb)	(revision 1759)
+++ ActiviteitenOpvolging/ProductiePitching/ProductiePitchingForm.vb	(.../ProductiePitchingForm.vb)	(revision 1784)
@@ -21,7 +21,7 @@
             Size = New System.Drawing.Size(ConfigsLoader.AppWidth, ConfigsLoader.AppHeight)
             StartPosition = FormStartPosition.CenterScreen
             'Set the title name of the form from the config.
-            Text = $"RDB - Productie pitching - {ConfigsLoader.AppName}"
+            Text = $"Productie pitching - {ConfigsLoader.AppName}"
             GridLabel.Text = ConfigsLoader.AppName
 
             'Load the user controls with the data grids.
@@ -32,9 +32,6 @@
 
             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.
@@ -225,5 +222,12 @@
         RefreshAllData()
     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
 End Class