diff --git a/GUIs.ZooFlow/My Project/Resources.Designer.vb b/GUIs.ZooFlow/My Project/Resources.Designer.vb
index 0d0791c7..76c3ef77 100644
--- a/GUIs.ZooFlow/My Project/Resources.Designer.vb	
+++ b/GUIs.ZooFlow/My Project/Resources.Designer.vb	
@@ -120,6 +120,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property _2_ZOO_FLOW_Abo() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("2_ZOO_FLOW_Abo", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property _2_ZOO_FLOW_Abo_MouseOver() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("2_ZOO_FLOW_Abo_MouseOver", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
diff --git a/GUIs.ZooFlow/My Project/Resources.resx b/GUIs.ZooFlow/My Project/Resources.resx
index 4d558ff2..a6b4fb42 100644
--- a/GUIs.ZooFlow/My Project/Resources.resx	
+++ b/GUIs.ZooFlow/My Project/Resources.resx	
@@ -142,40 +142,46 @@
   <data name="CW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="3_PERSON_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\3_PERSON_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="ZOO_FLOW_ sysicon_256" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ZOO_FLOW_ sysicon_256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="DD_Icons_ICO_PMANAGER_128px" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Editdatasetwithdesigner_8449" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Editdatasetwithdesigner_8449.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="4_GLOBIX_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Editdatasetwithdesigner_8449" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Editdatasetwithdesigner_8449.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="DD_Icons_ICO_PMANAGER_128px" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="1_LOGO_ZOO_FLOW_DROP3" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="1_LOGO_ZOO_FLOW1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="StatusAnnotations_Stop_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="1_LOGO_ZOO_FLOW_DROP3" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="StatusAnnotations_Stop_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="2_ZOO_FLOW_Abo_MouseOver" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\2_ZOO_FLOW_Abo_MouseOver.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>
\ No newline at end of file
diff --git a/GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo.png b/GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo.png
new file mode 100644
index 00000000..53f44620
Binary files /dev/null and b/GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo.png differ
diff --git a/GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo_MouseOver.png b/GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo_MouseOver.png
new file mode 100644
index 00000000..4a5f464e
Binary files /dev/null and b/GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo_MouseOver.png differ
diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj
index 78a5d90c..c9e287ed 100644
--- a/GUIs.ZooFlow/ZooFlow.vbproj
+++ b/GUIs.ZooFlow/ZooFlow.vbproj
@@ -302,6 +302,12 @@
   <ItemGroup>
     <None Include="Resources\1_LOGO_ZOO_FLOW_DROP3.png" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\2_ZOO_FLOW_Abo.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\2_ZOO_FLOW_Abo_MouseOver.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
        Other similar extension points exist, see Microsoft.Common.targets.
diff --git a/GUIs.ZooFlow/frmFlowForm.Designer.vb b/GUIs.ZooFlow/frmFlowForm.Designer.vb
index 8cefaec2..f7c3313e 100644
--- a/GUIs.ZooFlow/frmFlowForm.Designer.vb
+++ b/GUIs.ZooFlow/frmFlowForm.Designer.vb
@@ -27,22 +27,28 @@ Partial Class frmFlowForm
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm))
         Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components)
         Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.UserKonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ContextMenuForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.AlleAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.TimerRefreshData = New System.Windows.Forms.Timer(Me.components)
+        Me.PictureBoxAbo = New System.Windows.Forms.PictureBox()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.PictureBoxGlobix = New System.Windows.Forms.PictureBox()
         Me.PictureBoxPM = New System.Windows.Forms.PictureBox()
         Me.PictureBoxSearch = New System.Windows.Forms.PictureBox()
-        Me.ContextMenuSystray.SuspendLayout
-        Me.ContextMenuForm.SuspendLayout
-        CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.PictureBoxGlobix,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.PictureBoxPM,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.PictureBoxSearch,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.SuspendLayout
+        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
+        Me.DatenbankverbindungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ContextMenuSystray.SuspendLayout()
+        Me.ContextMenuForm.SuspendLayout()
+        CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
         '
         'SplashScreenManager
         '
@@ -51,26 +57,38 @@ Partial Class frmFlowForm
         'NotifyIcon
         '
         Me.NotifyIcon.ContextMenuStrip = Me.ContextMenuSystray
-        Me.NotifyIcon.Icon = CType(resources.GetObject("NotifyIcon.Icon"),System.Drawing.Icon)
+        Me.NotifyIcon.Icon = CType(resources.GetObject("NotifyIcon.Icon"), System.Drawing.Icon)
         Me.NotifyIcon.Text = "ZooFlow by Digital Data"
-        Me.NotifyIcon.Visible = true
+        Me.NotifyIcon.Visible = True
         '
         'ContextMenuSystray
         '
-        Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerwaltungToolStripMenuItem, Me.ZooFlowBeendenToolStripMenuItem})
+        Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UserKonfigurationToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ZooFlowBeendenToolStripMenuItem})
         Me.ContextMenuSystray.Name = "ContextMenuSystray"
-        Me.ContextMenuSystray.Size = New System.Drawing.Size(170, 48)
+        Me.ContextMenuSystray.Size = New System.Drawing.Size(174, 76)
+        '
+        'UserKonfigurationToolStripMenuItem
+        '
+        Me.UserKonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatenbankverbindungToolStripMenuItem})
+        Me.UserKonfigurationToolStripMenuItem.Name = "UserKonfigurationToolStripMenuItem"
+        Me.UserKonfigurationToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
+        Me.UserKonfigurationToolStripMenuItem.Text = "User Konfiguration"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(170, 6)
         '
         'VerwaltungToolStripMenuItem
         '
         Me.VerwaltungToolStripMenuItem.Name = "VerwaltungToolStripMenuItem"
-        Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
+        Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
         Me.VerwaltungToolStripMenuItem.Text = "Verwaltung"
         '
         'ZooFlowBeendenToolStripMenuItem
         '
         Me.ZooFlowBeendenToolStripMenuItem.Name = "ZooFlowBeendenToolStripMenuItem"
-        Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
+        Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
         Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
         '
         'ContextMenuForm
@@ -85,6 +103,16 @@ Partial Class frmFlowForm
         Me.AlleAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
         Me.AlleAnzeigenToolStripMenuItem.Text = "Alle anzeigen"
         '
+        'PictureBoxAbo
+        '
+        Me.PictureBoxAbo.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._2_ZOO_FLOW_Abo
+        Me.PictureBoxAbo.Location = New System.Drawing.Point(203, 69)
+        Me.PictureBoxAbo.Name = "PictureBoxAbo"
+        Me.PictureBoxAbo.Size = New System.Drawing.Size(40, 36)
+        Me.PictureBoxAbo.TabIndex = 11
+        Me.PictureBoxAbo.TabStop = False
+        Me.ToolTip1.SetToolTip(Me.PictureBoxAbo, "Abonnierte Suchen")
+        '
         'PictureBox1
         '
         Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Left
@@ -93,74 +121,85 @@ Partial Class frmFlowForm
         Me.PictureBox1.Name = "PictureBox1"
         Me.PictureBox1.Size = New System.Drawing.Size(197, 150)
         Me.PictureBox1.TabIndex = 10
-        Me.PictureBox1.TabStop = false
+        Me.PictureBox1.TabStop = False
+        Me.ToolTip1.SetToolTip(Me.PictureBox1, "Drag and Drop files here")
         '
         'PictureBoxGlobix
         '
         Me.PictureBoxGlobix.BackColor = System.Drawing.Color.Transparent
-        Me.PictureBoxGlobix.Image = CType(resources.GetObject("PictureBoxGlobix.Image"),System.Drawing.Image)
+        Me.PictureBoxGlobix.Image = CType(resources.GetObject("PictureBoxGlobix.Image"), System.Drawing.Image)
         Me.PictureBoxGlobix.Location = New System.Drawing.Point(448, 23)
         Me.PictureBoxGlobix.Name = "PictureBoxGlobix"
         Me.PictureBoxGlobix.Size = New System.Drawing.Size(90, 101)
         Me.PictureBoxGlobix.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
         Me.PictureBoxGlobix.TabIndex = 9
-        Me.PictureBoxGlobix.TabStop = false
-        Me.PictureBoxGlobix.Visible = false
+        Me.PictureBoxGlobix.TabStop = False
+        Me.PictureBoxGlobix.Visible = False
         '
         'PictureBoxPM
         '
         Me.PictureBoxPM.BackColor = System.Drawing.Color.Transparent
-        Me.PictureBoxPM.Image = CType(resources.GetObject("PictureBoxPM.Image"),System.Drawing.Image)
+        Me.PictureBoxPM.Image = CType(resources.GetObject("PictureBoxPM.Image"), System.Drawing.Image)
         Me.PictureBoxPM.Location = New System.Drawing.Point(335, 23)
         Me.PictureBoxPM.Name = "PictureBoxPM"
         Me.PictureBoxPM.Size = New System.Drawing.Size(90, 101)
         Me.PictureBoxPM.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
         Me.PictureBoxPM.TabIndex = 4
-        Me.PictureBoxPM.TabStop = false
-        Me.PictureBoxPM.Visible = false
+        Me.PictureBoxPM.TabStop = False
+        Me.ToolTip1.SetToolTip(Me.PictureBoxPM, "ProcessManager starten")
+        Me.PictureBoxPM.Visible = False
         '
         'PictureBoxSearch
         '
         Me.PictureBoxSearch.BackColor = System.Drawing.Color.Transparent
-        Me.PictureBoxSearch.Image = CType(resources.GetObject("PictureBoxSearch.Image"),System.Drawing.Image)
+        Me.PictureBoxSearch.Image = CType(resources.GetObject("PictureBoxSearch.Image"), System.Drawing.Image)
         Me.PictureBoxSearch.Location = New System.Drawing.Point(220, 23)
         Me.PictureBoxSearch.Name = "PictureBoxSearch"
         Me.PictureBoxSearch.Size = New System.Drawing.Size(90, 101)
         Me.PictureBoxSearch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
         Me.PictureBoxSearch.TabIndex = 3
-        Me.PictureBoxSearch.TabStop = false
+        Me.PictureBoxSearch.TabStop = False
+        Me.ToolTip1.SetToolTip(Me.PictureBoxSearch, "ZooFlow Suche")
+        '
+        'DatenbankverbindungToolStripMenuItem
+        '
+        Me.DatenbankverbindungToolStripMenuItem.Name = "DatenbankverbindungToolStripMenuItem"
+        Me.DatenbankverbindungToolStripMenuItem.Size = New System.Drawing.Size(192, 22)
+        Me.DatenbankverbindungToolStripMenuItem.Text = "Datenbankverbindung"
         '
         'frmFlowForm
         '
-        Me.AllowDrop = true
-        Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(214,Byte),Integer), CType(CType(49,Byte),Integer))
+        Me.AllowDrop = True
+        Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
         Me.Appearance.ForeColor = System.Drawing.SystemColors.ControlText
-        Me.Appearance.Options.UseBackColor = true
-        Me.Appearance.Options.UseFont = true
-        Me.Appearance.Options.UseForeColor = true
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
+        Me.Appearance.Options.UseBackColor = True
+        Me.Appearance.Options.UseFont = True
+        Me.Appearance.Options.UseForeColor = True
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(577, 150)
         Me.ContextMenuStrip = Me.ContextMenuForm
+        Me.Controls.Add(Me.PictureBoxAbo)
         Me.Controls.Add(Me.PictureBox1)
         Me.Controls.Add(Me.PictureBoxGlobix)
         Me.Controls.Add(Me.PictureBoxPM)
         Me.Controls.Add(Me.PictureBoxSearch)
-        Me.DoubleBuffered = true
+        Me.DoubleBuffered = True
         Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Name = "frmFlowForm"
         Me.Text = "frmFlowForm_Test1"
-        Me.TopMost = true
-        Me.ContextMenuSystray.ResumeLayout(false)
-        Me.ContextMenuForm.ResumeLayout(false)
-        CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.PictureBoxGlobix,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.PictureBoxPM,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.PictureBoxSearch,System.ComponentModel.ISupportInitialize).EndInit
-        Me.ResumeLayout(false)
+        Me.TopMost = True
+        Me.ContextMenuSystray.ResumeLayout(False)
+        Me.ContextMenuForm.ResumeLayout(False)
+        CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
 
-End Sub
+    End Sub
     Friend WithEvents PictureBoxSearch As PictureBox
     Friend WithEvents PictureBoxPM As PictureBox
     Friend WithEvents PictureBoxGlobix As PictureBox
@@ -172,4 +211,9 @@ End Sub
     Friend WithEvents AlleAnzeigenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents PictureBox1 As PictureBox
     Friend WithEvents TimerRefreshData As Timer
+    Friend WithEvents PictureBoxAbo As PictureBox
+    Friend WithEvents ToolTip1 As ToolTip
+    Friend WithEvents UserKonfigurationToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+    Friend WithEvents DatenbankverbindungToolStripMenuItem As ToolStripMenuItem
 End Class
diff --git a/GUIs.ZooFlow/frmFlowForm.resx b/GUIs.ZooFlow/frmFlowForm.resx
index 81cfedda..42635443 100644
--- a/GUIs.ZooFlow/frmFlowForm.resx
+++ b/GUIs.ZooFlow/frmFlowForm.resx
@@ -1962,6 +1962,9 @@
   <metadata name="TimerRefreshData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>615, 17</value>
   </metadata>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>764, 17</value>
+  </metadata>
   <data name="PictureBoxGlobix.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb
index bc40f20b..f8830e76 100644
--- a/GUIs.ZooFlow/frmFlowForm.vb
+++ b/GUIs.ZooFlow/frmFlowForm.vb
@@ -144,10 +144,12 @@ Public Class frmFlowForm
 
     Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click
         Cursor = Cursors.WaitCursor
+        If TheFormIsAlreadyLoaded("frmSearchStart") Then
+            Cursor = Cursors.Default
+            Exit Sub
+        End If
         Dim oForm As New frmSearchStart(DTIDB_SEARCHES)
         oForm.Show()
-        Dim oForm2 As New frmPreSearch()
-        oForm2.Show()
         Cursor = Cursors.Default
     End Sub
     Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
@@ -194,4 +196,43 @@ Public Class frmFlowForm
     Private Sub frmFlowForm_DragLeave(sender As Object, e As EventArgs) Handles Me.DragLeave
         PictureBox1.Image = My.Resources._1_LOGO_ZOO_FLOW1
     End Sub
+
+    Private Sub PictureBoxAbo_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxAbo.MouseEnter
+        PictureBoxAbo.Image = My.Resources._2_ZOO_FLOW_Abo_MouseOver
+    End Sub
+
+    Private Sub PictureBoxAbo_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxAbo.MouseLeave
+        PictureBoxAbo.Image = My.Resources._2_ZOO_FLOW_Abo
+    End Sub
+
+    Private Sub PictureBoxAbo_Click(sender As Object, e As EventArgs) Handles PictureBoxAbo.Click
+        Cursor = Cursors.WaitCursor
+        If TheFormIsAlreadyLoaded("frmPreSearch") Then
+            Cursor = Cursors.Default
+            Exit Sub
+        End If
+        Dim oForm2 As New frmPreSearch()
+        oForm2.Show()
+        Cursor = Cursors.Default
+    End Sub
+    Private Function TheFormIsAlreadyLoaded(ByVal pFormName As String) As Boolean
+
+        TheFormIsAlreadyLoaded = False
+
+        For Each frm As Form In Application.OpenForms
+            If frm.Name.Equals(pFormName) Then
+                TheFormIsAlreadyLoaded = True
+                Exit Function
+            End If
+        Next
+
+    End Function
+
+    Private Sub UserKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserKonfigurationToolStripMenuItem.Click
+
+    End Sub
+
+    Private Sub DatenbankverbindungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenbankverbindungToolStripMenuItem.Click
+        frmConfigDatabase.ShowDialog()
+    End Sub
 End Class
\ No newline at end of file
diff --git a/GUIs.ZooFlow/frmSearchStart.Designer.vb b/GUIs.ZooFlow/frmSearchStart.Designer.vb
index 2e3c7a5e..2f3abc6f 100644
--- a/GUIs.ZooFlow/frmSearchStart.Designer.vb
+++ b/GUIs.ZooFlow/frmSearchStart.Designer.vb
@@ -65,24 +65,26 @@ Partial Class frmSearchStart
         Me.ContextMenuStripMultiselect = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.MehrfachauswahlAktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.MehrfachauswahlInaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
-        CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.RepositoryItemRadioGroup1,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.Panel1.SuspendLayout
-        CType(Me.XtraTabControl1,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.XtraTabControl1.SuspendLayout
-        CType(Me.GridControlSerchTerms,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.ContextMenuStripSearchTerms.SuspendLayout
-        CType(Me.GridViewSearchTerms,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.SplitContainerControlSearch,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.SplitContainerControlSearch.SuspendLayout
-        Me.ContextMenuStripMultiselect.SuspendLayout
-        Me.SuspendLayout
+        Me.DateEdit1 = New DevExpress.XtraEditors.DateEdit()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabControl1.SuspendLayout()
+        CType(Me.GridControlSerchTerms, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStripSearchTerms.SuspendLayout()
+        CType(Me.GridViewSearchTerms, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControlSearch.SuspendLayout()
+        Me.ContextMenuStripMultiselect.SuspendLayout()
+        CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
         '
         'RibbonControl1
         '
-        Me.RibbonControl1.AutoSizeItems = true
+        Me.RibbonControl1.AutoSizeItems = True
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
         Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemNewSearch, Me.BarButtonItem2, Me.BarHeaderItem1, Me.BarEditItem1, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarEditItem2, Me.BarStaticItemInfo, Me.BarButtonItem4})
         Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
@@ -98,14 +100,14 @@ Partial Class frmSearchStart
         '
         Me.BarButtonItemNewSearch.Caption = "Neue Suche"
         Me.BarButtonItemNewSearch.Id = 1
-        Me.BarButtonItemNewSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemNewSearch.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItemNewSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemNewSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.BarButtonItemNewSearch.Name = "BarButtonItemNewSearch"
         '
         'BarButtonItem2
         '
         Me.BarButtonItem2.Caption = "Suchprofil speichern"
         Me.BarButtonItem2.Id = 2
-        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.BarButtonItem2.Name = "BarButtonItem2"
         Me.BarButtonItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
         '
@@ -130,7 +132,7 @@ Partial Class frmSearchStart
         '
         Me.BarButtonItem1.Caption = "Suche leeren"
         Me.BarButtonItem1.Id = 5
-        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.BarButtonItem1.Name = "BarButtonItem1"
         '
         'BarButtonItem3
@@ -144,12 +146,12 @@ Partial Class frmSearchStart
         Me.BarEditItem2.Caption = "Suchen"
         Me.BarEditItem2.Edit = Me.RepositoryItemComboBox1
         Me.BarEditItem2.Id = 7
-        Me.BarEditItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem2.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
+        Me.BarEditItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.BarEditItem2.Name = "BarEditItem2"
         '
         'RepositoryItemComboBox1
         '
-        Me.RepositoryItemComboBox1.AutoHeight = false
+        Me.RepositoryItemComboBox1.AutoHeight = False
         Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
         Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1"
         '
@@ -160,9 +162,9 @@ Partial Class frmSearchStart
         '
         'BarButtonItem4
         '
-        Me.BarButtonItem4.Caption = "Suche starten"
+        Me.BarButtonItem4.Caption = "Suche starten (F2)"
         Me.BarButtonItem4.Id = 9
-        Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.BarButtonItem4.Name = "BarButtonItem4"
         '
         'RibbonPage1
@@ -200,7 +202,7 @@ Partial Class frmSearchStart
         Me.Panel1.Controls.Add(Me.cmbProfile)
         Me.Panel1.Controls.Add(Me.Label1)
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.Panel1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Panel1.Location = New System.Drawing.Point(0, 159)
         Me.Panel1.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
         Me.Panel1.Name = "Panel1"
@@ -209,10 +211,10 @@ Partial Class frmSearchStart
         '
         'cmbProfile
         '
-        Me.cmbProfile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left)  _
-            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+        Me.cmbProfile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.cmbProfile.DisplayMember = "DOKART_ID"
-        Me.cmbProfile.FormattingEnabled = true
+        Me.cmbProfile.FormattingEnabled = True
         Me.cmbProfile.Location = New System.Drawing.Point(3, 23)
         Me.cmbProfile.Name = "cmbProfile"
         Me.cmbProfile.Size = New System.Drawing.Size(1065, 21)
@@ -221,7 +223,7 @@ Partial Class frmSearchStart
         '
         'Label1
         '
-        Me.Label1.AutoSize = true
+        Me.Label1.AutoSize = True
         Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label1.Location = New System.Drawing.Point(3, 3)
         Me.Label1.Name = "Label1"
@@ -344,23 +346,23 @@ Partial Class frmSearchStart
         '
         'GridViewSearchTerms
         '
-        Me.GridViewSearchTerms.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(236,Byte),Integer), CType(CType(233,Byte),Integer), CType(CType(125,Byte),Integer))
-        Me.GridViewSearchTerms.Appearance.EvenRow.Options.UseBackColor = true
+        Me.GridViewSearchTerms.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(236, Byte), Integer), CType(CType(233, Byte), Integer), CType(CType(125, Byte), Integer))
+        Me.GridViewSearchTerms.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridViewSearchTerms.GridControl = Me.GridControlSerchTerms
         Me.GridViewSearchTerms.Name = "GridViewSearchTerms"
         Me.GridViewSearchTerms.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[True]
-        Me.GridViewSearchTerms.OptionsBehavior.Editable = false
-        Me.GridViewSearchTerms.OptionsSelection.EnableAppearanceFocusedCell = false
-        Me.GridViewSearchTerms.OptionsView.EnableAppearanceEvenRow = true
-        Me.GridViewSearchTerms.OptionsView.ShowGroupPanel = false
-        Me.GridViewSearchTerms.OptionsView.ShowViewCaption = true
+        Me.GridViewSearchTerms.OptionsBehavior.Editable = False
+        Me.GridViewSearchTerms.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewSearchTerms.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewSearchTerms.OptionsView.ShowGroupPanel = False
+        Me.GridViewSearchTerms.OptionsView.ShowViewCaption = True
         Me.GridViewSearchTerms.ViewCaption = "Such-Kriterium"
         '
         'SplitContainerControlSearch
         '
-        Me.SplitContainerControlSearch.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom)  _
-            Or System.Windows.Forms.AnchorStyles.Left)  _
-            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+        Me.SplitContainerControlSearch.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.SplitContainerControlSearch.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
         Me.SplitContainerControlSearch.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2
         Me.SplitContainerControlSearch.Location = New System.Drawing.Point(0, 207)
@@ -393,50 +395,53 @@ Partial Class frmSearchStart
         Me.MehrfachauswahlInaktivierenToolStripMenuItem.Size = New System.Drawing.Size(232, 22)
         Me.MehrfachauswahlInaktivierenToolStripMenuItem.Text = "Mehrfachauswahl inaktivieren"
         '
-        'SimpleButton1
+        'DateEdit1
         '
-        Me.SimpleButton1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left)  _
-            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
-        Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
-        Me.SimpleButton1.Location = New System.Drawing.Point(461, 523)
-        Me.SimpleButton1.Name = "SimpleButton1"
-        Me.SimpleButton1.Size = New System.Drawing.Size(141, 45)
-        Me.SimpleButton1.TabIndex = 19
-        Me.SimpleButton1.Text = "Starte Suche"
+        Me.DateEdit1.EditValue = Nothing
+        Me.DateEdit1.Location = New System.Drawing.Point(173, 543)
+        Me.DateEdit1.MenuManager = Me.RibbonControl1
+        Me.DateEdit1.Name = "DateEdit1"
+        Me.DateEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.DateEdit1.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.DateEdit1.Size = New System.Drawing.Size(100, 20)
+        Me.DateEdit1.TabIndex = 19
         '
         'frmSearchStart
         '
         Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True]
-        Me.Appearance.Options.UseFont = true
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
+        Me.Appearance.Options.UseFont = True
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1070, 601)
-        Me.Controls.Add(Me.SimpleButton1)
+        Me.Controls.Add(Me.DateEdit1)
         Me.Controls.Add(Me.SplitContainerControlSearch)
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
         Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
-        Me.IconOptions.Icon = CType(resources.GetObject("frmSearchStart.IconOptions.Icon"),System.Drawing.Icon)
-        Me.IconOptions.SvgImage = CType(resources.GetObject("frmSearchStart.IconOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
+        Me.IconOptions.Icon = CType(resources.GetObject("frmSearchStart.IconOptions.Icon"), System.Drawing.Icon)
+        Me.IconOptions.SvgImage = CType(resources.GetObject("frmSearchStart.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.KeyPreview = True
         Me.Name = "frmSearchStart"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
         Me.Text = "ZooFlow Suche"
-        CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.RepositoryItemRadioGroup1,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).EndInit
-        Me.Panel1.ResumeLayout(false)
-        Me.Panel1.PerformLayout
-        CType(Me.XtraTabControl1,System.ComponentModel.ISupportInitialize).EndInit
-        Me.XtraTabControl1.ResumeLayout(false)
-        CType(Me.GridControlSerchTerms,System.ComponentModel.ISupportInitialize).EndInit
-        Me.ContextMenuStripSearchTerms.ResumeLayout(false)
-        CType(Me.GridViewSearchTerms,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.SplitContainerControlSearch,System.ComponentModel.ISupportInitialize).EndInit
-        Me.SplitContainerControlSearch.ResumeLayout(false)
-        Me.ContextMenuStripMultiselect.ResumeLayout(false)
-        Me.ResumeLayout(false)
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabControl1.ResumeLayout(False)
+        CType(Me.GridControlSerchTerms, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStripSearchTerms.ResumeLayout(False)
+        CType(Me.GridViewSearchTerms, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControlSearch.ResumeLayout(False)
+        Me.ContextMenuStripMultiselect.ResumeLayout(False)
+        CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
         Me.PerformLayout
 
 End Sub
@@ -478,9 +483,9 @@ End Sub
     Friend WithEvents MehrfachauswahlInaktivierenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ContextMenuStripSearchTerms As ContextMenuStrip
     Friend WithEvents tsmOperator As ToolStripMenuItem
-    Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
     Friend WithEvents BracketLeftToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents KlammerRechtsToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents KlammerEntfernenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents DateEdit1 As DevExpress.XtraEditors.DateEdit
 End Class
diff --git a/GUIs.ZooFlow/frmSearchStart.resx b/GUIs.ZooFlow/frmSearchStart.resx
index 710fdc7b..78482693 100644
--- a/GUIs.ZooFlow/frmSearchStart.resx
+++ b/GUIs.ZooFlow/frmSearchStart.resx
@@ -215,26 +215,6 @@
   <metadata name="ContextMenuStripMultiselect.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>237, 17</value>
   </metadata>
-  <data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
-        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/
-        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
-        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
-        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
-        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
-        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
-        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
-        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iR2V0dGluZ1N0YXJ0ZWQiPg0KICAg
-        IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
-        My43LDIsMTYsMnogTTEyLDIyVjEwbDEwLDZMMTIsMjJ6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
-        Cjwvc3ZnPgs=
-</value>
-  </data>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>174</value>
   </metadata>
diff --git a/GUIs.ZooFlow/frmSearchStart.vb b/GUIs.ZooFlow/frmSearchStart.vb
index 29169d06..fad90499 100644
--- a/GUIs.ZooFlow/frmSearchStart.vb
+++ b/GUIs.ZooFlow/frmSearchStart.vb
@@ -25,7 +25,7 @@ Public Class frmSearchStart
     Private SEARCH_COUNT As Integer = 0
     Private _Environment As Environment
 
-    Public Sub New(pDTSearchProfiles As DataTable)
+    Public Sub New(ByVal pDTSearchProfiles As DataTable, Optional ByVal pRunSearch As Boolean = False)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
@@ -263,6 +263,7 @@ Public Class frmSearchStart
                     oMyControl = oControls.CreateExistingDatepicker(oAttributeRow, oXPosition, oYPositionControl)
                     Dim myDTP As DateEdit = CType(oMyControl, DateEdit)
                     AddHandler myDTP.DisableCalendarDate, AddressOf DisableCalendarDate
+                    AddHandler myDTP.EditValueChanged, AddressOf CalendarChanged
                 ElseIf oAttriTYPE = "BIT" Then
                     oMyControl = oControls.CreateExistingCheckbox(oAttributeRow, oXPosition, oYPositionControl)
                     Dim myCheckBox As CheckBox = CType(oMyControl, CheckBox)
@@ -407,7 +408,14 @@ Public Class frmSearchStart
         '    e.IsDisabled = True
         'End If
     End Sub
-
+    Private Sub CalendarChanged(sender As Object, e As EventArgs)
+        Dim myDTP As DateEdit = CType(sender, DateEdit)
+        If Not IsNothing(myDTP.EditValue) Then
+            Dim omydate = myDTP.EditValue.ToString
+            'Dim oInsert = $"EXEC PRIDB_NEW_USER_SEARCH_CRITERIA {PSEARCH_ID.ToString},{My.Application.User.UserId.ToString},{oAttrID.ToString},'{omydate}','{My.Application.User.UserName}'"
+            'My.DatabaseIDB.ExecuteNonQuery(oInsert)
+        End If
+    End Sub
     Public Function IsValidDate(pCheckDT As DataTable, pDate2Check As Date) As Boolean
         Dim oIsValid As Boolean = False
         For Each oDateRow As DataRow In pCheckDT.Rows
@@ -746,6 +754,9 @@ Public Class frmSearchStart
     End Function
 
     Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        Start_Search
+    End Sub
+    Private Function Start_Search()
         Try
             Dim oSEARCH_SQL = SEARCH_SQL
             Dim oOperator As String
@@ -799,5 +810,13 @@ Public Class frmSearchStart
         Catch ex As Exception
 
         End Try
+    End Function
+
+    Private Sub frmSearchStart_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
+        If e.KeyCode = Keys.F2 Then
+            Start_Search()
+        End If
     End Sub
+
+
 End Class
\ No newline at end of file