Index: PlanScan/Main.dfm
===================================================================
diff -u -r350 -r352
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 350)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 352)
@@ -87,8 +87,57 @@
       Align = alClient
       BevelOuter = bvNone
       Color = 1513421
+      Padding.Left = 20
       ParentBackground = False
       TabOrder = 1
+      object lblWegwerppallet: TLabel
+        Left = 20
+        Top = 80
+        Width = 165
+        Height = 40
+        Align = alTop
+        AutoSize = False
+        Caption = 'Wegwerppallet'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWhite
+        Font.Height = -21
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        ExplicitTop = 40
+      end
+      object lblDnaCodes: TLabel
+        Left = 20
+        Top = 0
+        Width = 165
+        Height = 40
+        Align = alTop
+        AutoSize = False
+        Caption = 'DNA codes'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWhite
+        Font.Height = -21
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        OnClick = lblDnaCodesClick
+      end
+      object lblGebruikers: TLabel
+        Left = 20
+        Top = 40
+        Width = 165
+        Height = 40
+        Align = alTop
+        AutoSize = False
+        Caption = 'Gebruikers'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWhite
+        Font.Height = -21
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        OnClick = lblGebruikersClick
+      end
     end
   end
   object pnlFrames: TPanel
Index: PlanScan/Main.pas
===================================================================
diff -u -r351 -r352
--- PlanScan/Main.pas	(.../Main.pas)	(revision 351)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 352)
@@ -23,11 +23,16 @@
     tsGebruikers: TTabSheet;
     lblInitialen: TLabel;
     lblUitloggen: TLabel;
+    lblWegwerppallet: TLabel;
+    lblDnaCodes: TLabel;
+    lblGebruikers: TLabel;
     procedure tsGebruikersShow(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure lblUitloggenClick(Sender: TObject);
+    procedure lblDnaCodesClick(Sender: TObject);
+    procedure lblGebruikersClick(Sender: TObject);
   private
     fUiContext: TUiContext;
     procedure HuidigeGebruikerAfmelden();
@@ -72,6 +77,16 @@
   lblInitialen.Caption := '';
 end;
 
+procedure TfmMain.lblDnaCodesClick(Sender: TObject);
+begin
+  pcFrames.ActivePage := tsDnaCodes;
+end;
+
+procedure TfmMain.lblGebruikersClick(Sender: TObject);
+begin
+  pcFrames.ActivePage := tsGebruikers;
+end;
+
 procedure TfmMain.lblUitloggenClick(Sender: TObject);
 begin
   HuidigeGebruikerAfmelden();