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();