Index: ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb
===================================================================
diff -u -r1685 -r1686
--- ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb	(.../DataGridViewUserControl.vb)	(revision 1685)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb	(.../DataGridViewUserControl.vb)	(revision 1686)
@@ -73,16 +73,20 @@
         'No work items need no extra columns.
         If workItems.Count = 0 Then Return
 
+        'Register amount of already present columns.
+        dim presentColumns As Integer = WorkItemsDataGridView.ColumnCount
+
         'Get the first work item as this will provide all the necessary info.
         Dim workItem = workItems.Item(0)
 
         For Each activity In workItem.Activities
             'Make a column for every activity with the necessary header text.
             Dim column As New DataGridViewTextBoxColumn With {
                     .Name = $"{activity.Label}ActivityColumn",
-                    .HeaderText = activity.Label
+                    .HeaderText = activity.Label,
+                    .DisplayIndex = presentColumns -2 'Update the display index, they're all the same now, so will be put after each other.
                     }
-
+            'Add column to data grid view.
             WorkItemsDataGridView.Columns.Add(column)
         Next
     End Sub