NewDocSearch

app/DD_Clipboard_Searcher/App.config

@@ -6,7 +6,9 @@
         </sectionGroup>
     </configSections>
     <connectionStrings>
-        <add name="DD_Clipboard_Watcher.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient"/>
+        <add name="DD_Clipboard_Watcher.My.MySettings.DD_ECMConnectionString"
+            connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
+            providerName="System.Data.SqlClient" />
     </connectionStrings>
     <startup>
         <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
@@ -16,6 +18,21 @@
             <setting name="WDSearch_maximized" serializeAs="String">
                 <value>False</value>
             </setting>
+            <setting name="frmResultSearchSplitterDistance" serializeAs="String">
+                <value>555</value>
+            </setting>
+            <setting name="frmResultDocSize" serializeAs="String">
+                <value>0, 0</value>
+            </setting>
+            <setting name="frmResultDocPosition" serializeAs="String">
+                <value>0, 0</value>
+            </setting>
+            <setting name="frmViewerPosition" serializeAs="String">
+                <value>0, 0</value>
+            </setting>
+            <setting name="frmViewerSize" serializeAs="String">
+                <value>0, 0</value>
+            </setting>
         </DD_Clipboard_Watcher.My.MySettings>
     </userSettings>
 </configuration>

app/DD_Clipboard_Searcher/Class1.vb

@@ -25,8 +25,8 @@ Public Class ClipboardWatcher : Inherits NativeWindow : Implements IDisposable
             Case WM_DRAWCLIPBOARD
                 clsWINDOWSApi.Get_ForegroundWindow_Info()
                 'Dim CapTxt As String = clsWINDOWSApi.GetCaption()
-                If IsNothing(PROC_Name) Then Exit Sub
+                If IsNothing(CurrPROC_Name) Then Exit Sub
-                If PROC_Name.StartsWith("DD_Clipboard_Watcher") Then Exit Sub
+                If CurrPROC_Name.StartsWith("DD_Clipboard_Watcher") Then Exit Sub
                 'Logger.Debug(String.Format(" >>{0} - Clipboard ChangedEvent for process '{1}' fired!", Now.ToString, PROC_Name), False)
                 '  If CapTxt.ToUpper.StartsWith("DD") Then Exit Sub
                 RaiseEvent Changed(Me, EventArgs.Empty)

app/DD_Clipboard_Searcher/ClassInit.vb

@@ -113,6 +113,7 @@ Public Class ClassInit
                 USER_SHORTNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"))
                 USER_EMAIL = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"))
                 USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
+                USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
 
                 USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
                 USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")

app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj

@@ -54,30 +54,13 @@
     <Reference Include="DD_LIB_Standards">
       <HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath>
     </Reference>
-    <Reference Include="DevExpress.Data.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.Data.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-      <SpecificVersion>False</SpecificVersion>
+    <Reference Include="DevExpress.Printing.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    </Reference>
+    <Reference Include="DevExpress.Utils.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-      <SpecificVersion>False</SpecificVersion>
+    <Reference Include="DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
-    </Reference>
+    <Reference Include="DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraPrinting.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
     <Reference Include="DigitalData.Modules.Config">
       <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
     </Reference>
@@ -88,10 +71,16 @@
     <Reference Include="DigitalData.Modules.Logging">
       <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>
+    <Reference Include="GdPicture.NET.14">
+      <HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET\GdPicture.NET.14.dll</HintPath>
+    </Reference>
     <Reference Include="Microsoft.CSharp" />
     <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
       <HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
     </Reference>
+    <Reference Include="Oracle.ManagedDataAccess">
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
+    </Reference>
     <Reference Include="System" />
     <Reference Include="System.ComponentModel.DataAnnotations" />
     <Reference Include="System.Configuration" />
@@ -130,9 +119,17 @@
     <Compile Include="ClassLayout.vb" />
     <Compile Include="clsHotkey.vb" />
     <Compile Include="clsLicense.vb" />
+    <Compile Include="clsPatterns.vb" />
     <Compile Include="clsSearch.vb" />
     <Compile Include="clsWindowApivb.vb" />
     <Compile Include="clsWINDOWSApi.vb" />
+    <Compile Include="clsWMDocGrid.vb" />
+    <Compile Include="frmAbout.designer.vb">
+      <DependentUpon>frmAbout.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmAbout.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmAdministration.Designer.vb">
       <DependentUpon>frmAdministration.vb</DependentUpon>
     </Compile>
@@ -151,11 +148,35 @@
     <Compile Include="frmLicense.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmMain.vb">
+    <Compile Include="frmDocView.designer.vb">
+      <DependentUpon>frmDocView.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmDocView.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmMain.Designer.vb">
+    <Compile Include="frmGdPictureOpen.designer.vb">
-      <DependentUpon>frmMain.vb</DependentUpon>
+      <DependentUpon>frmGdPictureOpen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmGdPictureOpen.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmPrint.designer.vb">
+      <DependentUpon>frmPrint.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmPrint.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmSettings.designer.vb">
+      <DependentUpon>frmSettings.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSettings.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmStart.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmStart.Designer.vb">
+      <DependentUpon>frmStart.vb</DependentUpon>
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="frmConfig_Basic.Designer.vb">
@@ -164,6 +185,18 @@
     <Compile Include="frmConfig_Basic.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmProfileMatch.Designer.vb">
+      <DependentUpon>frmProfileMatch.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmProfileMatch.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmResultDoc.Designer.vb">
+      <DependentUpon>frmResultDoc.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmResultDoc.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmSplash.Designer.vb">
       <DependentUpon>frmSplash.vb</DependentUpon>
     </Compile>
@@ -194,6 +227,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="frmAbout.resx">
+      <DependentUpon>frmAbout.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmAdministration.resx">
       <DependentUpon>frmAdministration.vb</DependentUpon>
       <SubType>Designer</SubType>
@@ -207,12 +243,30 @@
     <EmbeddedResource Include="frmLicense.resx">
       <DependentUpon>frmLicense.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmMain.resx">
+    <EmbeddedResource Include="frmDocView.resx">
-      <DependentUpon>frmMain.vb</DependentUpon>
+      <DependentUpon>frmDocView.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmGdPictureOpen.resx">
+      <DependentUpon>frmGdPictureOpen.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmPrint.resx">
+      <DependentUpon>frmPrint.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmSettings.resx">
+      <DependentUpon>frmSettings.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmStart.resx">
+      <DependentUpon>frmStart.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmConfig_Basic.resx">
       <DependentUpon>frmConfig_Basic.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmProfileMatch.resx">
+      <DependentUpon>frmProfileMatch.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmResultDoc.resx">
+      <DependentUpon>frmResultDoc.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmSplash.resx">
       <DependentUpon>frmSplash.vb</DependentUpon>
     </EmbeddedResource>
@@ -269,6 +323,34 @@
   <ItemGroup>
     <Content Include="DD_Icons_ICO_CBWATCHER_48px.ico" />
     <Content Include="KeyOutput_8167.ico" />
+    <None Include="Resources\cancel.png" />
+    <None Include="Resources\tiff.png" />
+    <None Include="Resources\jpg.png" />
+    <None Include="Resources\search.png" />
+    <None Include="Resources\door_open.png" />
+    <None Include="Resources\build_Selection_32xLG.png" />
+    <None Include="Resources\ID_SITE_PUBLISH_ALL.png" />
+    <None Include="Resources\StatusAnnotations_Alert_32xMD_color.png" />
+    <None Include="Resources\StatusAnnotations_Information_16xMD_color.png" />
+    <None Include="Resources\ID_FILE_PAGE_SETUP.png" />
+    <None Include="Resources\OpenFile.png" />
+    <None Include="Resources\properties_16xMD.png" />
+    <None Include="Resources\_blank.png" />
+    <None Include="Resources\email_go.png" />
+    <None Include="Resources\doc_excel_csv.png" />
+    <None Include="Resources\dwg.png" />
+    <None Include="Resources\pdf.png" />
+    <None Include="Resources\mp4.png" />
+    <None Include="Resources\mp3.png" />
+    <None Include="Resources\dxf.png" />
+    <None Include="Resources\doc.png" />
+    <None Include="Resources\xlsx.png" />
+    <None Include="Resources\xls.png" />
+    <None Include="Resources\txt.png" />
+    <None Include="Resources\sql.png" />
+    <None Include="Resources\rar.png" />
+    <None Include="Resources\ppt.png" />
+    <None Include="Resources\png.png" />
     <None Include="Resources\refresh_16xLG.png" />
     <None Include="Resources\Symbols_Stop_16xLG.png" />
     <None Include="Resources\startwithoutdebugging_6556.png" />

app/DD_Clipboard_Searcher/My Project/Application.Designer.vb

@@ -32,7 +32,7 @@ Namespace My
         
         <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = Global.DD_Clipboard_Watcher.frmMain
+            Me.MainForm = Global.DD_Clipboard_Watcher.frmStart
         End Sub
     End Class
 End Namespace

app/DD_Clipboard_Searcher/My Project/Application.myapp

@@ -1,7 +1,7 @@
-<?xml version="1.0" encoding="utf-16"?>
+<?xml version="1.0" encoding="utf-8"?>
 <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
   <MySubMain>true</MySubMain>
-  <MainForm>frmMain</MainForm>
+  <MainForm>frmStart</MainForm>
   <SingleInstance>false</SingleInstance>
   <ShutdownMode>0</ShutdownMode>
   <EnableVisualStyles>true</EnableVisualStyles>

app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb

@@ -60,6 +60,16 @@ Namespace My.Resources
             End Set
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property _blank() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("_blank", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -80,6 +90,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property build_Selection_32xLG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("build_Selection_32xLG", 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 cancel() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("cancel", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -90,6 +120,66 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property doc() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("doc", 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 doc_excel_csv() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("doc_excel_csv", 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 door_open() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("door_open", 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 dwg() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("dwg", 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 dxf() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("dxf", 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 email_go() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("email_go", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -110,6 +200,36 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property ID_FILE_PAGE_SETUP() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ID_FILE_PAGE_SETUP", 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 ID_SITE_PUBLISH_ALL() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ID_SITE_PUBLISH_ALL", 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 jpg() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("jpg", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -130,6 +250,86 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property mp3() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("mp3", 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 mp4() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("mp4", 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 OpenFile() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("OpenFile", 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 pdf() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("pdf", 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 png() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("png", 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 ppt() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ppt", 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 properties_16xMD() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("properties_16xMD", 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 rar() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("rar", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -150,6 +350,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property search() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("search", 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 sql() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("sql", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -160,6 +380,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property StatusAnnotations_Alert_32xMD_color() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("StatusAnnotations_Alert_32xMD_color", 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 StatusAnnotations_Information_16xMD_color() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("StatusAnnotations_Information_16xMD_color", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -179,5 +419,45 @@ Namespace My.Resources
                 Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property tiff() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("tiff", 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 txt() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("txt", 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 xls() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("xls", 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 xlsx() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("xlsx", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
     End Module
 End Namespace

app/DD_Clipboard_Searcher/My Project/Resources.resx

@@ -118,29 +118,62 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="door_open" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\door_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="tiff" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="doc" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="asterisk_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\asterisk_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="ReduceSize" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="GoToDefinition_5575" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="startwithoutdebugging_6556" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\startwithoutdebugging_6556.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="KeyOutput_8167" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\KeyOutput_8167.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="StatusAnnotations_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Symbols_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="dxf" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Symbols_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\dxf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="jpg" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="GoToDefinition_5575" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ID_SITE_PUBLISH_ALL" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ID_SITE_PUBLISH_ALL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="doc_excel_csv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="StatusAnnotations_Alert_32xMD_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\StatusAnnotations_Alert_32xMD_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="control_start_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\txt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="KeyDown_8461" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\KeyDown_8461.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -148,10 +181,61 @@
   <data name="folder_Open_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="control_start_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="startwithoutdebugging_6556" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\startwithoutdebugging_6556.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="asterisk_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="KeyOutput_8167" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\asterisk_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\KeyOutput_8167.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="rar" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\rar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="sql" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\sql.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Symbols_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Symbols_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="mp4" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\mp4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="OpenFile" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\OpenFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="StatusAnnotations_Information_16xMD_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\StatusAnnotations_Information_16xMD_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="png" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="mp3" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\mp3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="properties_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\properties_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="build_Selection_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\build_Selection_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="xlsx" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\xlsx.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ID_FILE_PAGE_SETUP" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb

@@ -76,6 +76,66 @@ Namespace My
                 Return CType(Me("DD_ECMConnectionString"),String)
             End Get
         End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("555")>  _
+        Public Property frmResultSearchSplitterDistance() As Integer
+            Get
+                Return CType(Me("frmResultSearchSplitterDistance"),Integer)
+            End Get
+            Set
+                Me("frmResultSearchSplitterDistance") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0, 0")>  _
+        Public Property frmResultDocSize() As Global.System.Drawing.Size
+            Get
+                Return CType(Me("frmResultDocSize"),Global.System.Drawing.Size)
+            End Get
+            Set
+                Me("frmResultDocSize") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0, 0")>  _
+        Public Property frmResultDocPosition() As Global.System.Drawing.Point
+            Get
+                Return CType(Me("frmResultDocPosition"),Global.System.Drawing.Point)
+            End Get
+            Set
+                Me("frmResultDocPosition") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0, 0")>  _
+        Public Property frmViewerPosition() As Global.System.Drawing.Point
+            Get
+                Return CType(Me("frmViewerPosition"),Global.System.Drawing.Point)
+            End Get
+            Set
+                Me("frmViewerPosition") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0, 0")>  _
+        Public Property frmViewerSize() As Global.System.Drawing.Size
+            Get
+                Return CType(Me("frmViewerSize"),Global.System.Drawing.Size)
+            End Get
+            Set
+                Me("frmViewerSize") = value
+            End Set
+        End Property
     End Class
 End Namespace
 

app/DD_Clipboard_Searcher/My Project/Settings.settings

@@ -13,5 +13,20 @@
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
       <Value Profile="(Default)">Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
     </Setting>
+    <Setting Name="frmResultSearchSplitterDistance" Type="System.Int32" Scope="User">
+      <Value Profile="(Default)">555</Value>
+    </Setting>
+    <Setting Name="frmResultDocSize" Type="System.Drawing.Size" Scope="User">
+      <Value Profile="(Default)">0, 0</Value>
+    </Setting>
+    <Setting Name="frmResultDocPosition" Type="System.Drawing.Point" Scope="User">
+      <Value Profile="(Default)">0, 0</Value>
+    </Setting>
+    <Setting Name="frmViewerPosition" Type="System.Drawing.Point" Scope="User">
+      <Value Profile="(Default)">0, 0</Value>
+    </Setting>
+    <Setting Name="frmViewerSize" Type="System.Drawing.Size" Scope="User">
+      <Value Profile="(Default)">0, 0</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

app/DD_Clipboard_Searcher/My Project/licenses.licx

@@ -0,0 +1,4 @@
+DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/DD_Clipboard_Searcher/clsHotkey.vb

@@ -74,7 +74,7 @@ Public Class clsHotkey
     End Class
     Public Shared Sub Refresh_Profile_Links()
         Try
-            Dim sql = String.Format("SELECT T.*, T2.PROC_NAME FROM TBCW_PROFILES T, TBCW_USER_PROFILE T1, TBCW_PROFILE_PROCESS T2 WHERE T.GUID = T1.PROFILE_ID AND T.GUID = T2.PROFILE_ID AND T1.USER_ID = {0} AND T.ACTIVE = 1", USER_ID)
+            Dim sql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE USER_ID = {0}", USER_ID)
             DT_USER_PROFILES = clsDatabase.Return_Datatable(sql)
             If DT_USER_PROFILES.Rows.Count = 0 Then
                 MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation)

app/DD_Clipboard_Searcher/clsPatterns.vb

@@ -0,0 +1,321 @@
+Imports System.Text.RegularExpressions
+Imports WINDREAMLib
+
+''' <summary>
+''' Defines common Functions for Checking for and replacing placeholders.
+''' This Class also includes a child class `Pattern` for passing around Patterns.
+''' 
+''' The format of all placeholders is:
+''' {#TYPE#VALUE}
+''' 
+''' Some Examples:
+''' {#INT#USERNAME}
+''' {#CTRL#CMB_2}
+''' {#WMI#String 39}
+''' </summary>
+Public Class clsPatterns
+    ' Complex patterns that rely on a datasource like a Database or Windream
+    Public Const PATTERN_WMI = "WMI"
+    Public Const PATTERN_CTRL = "CTRL"
+    ' Simple patterns that only rely on .NET functions
+    Public Const PATTERN_INT = "INT"
+    ' Simple patterns that rely on Data from the TBDD_USER table
+    Public Const PATTERN_USER = "USER"
+
+    Public Const USER_VALUE_PRENAME = "PRENAME"
+    Public Const USER_VALUE_SURNAME = "SURNAME"
+    Public Const USER_VALUE_EMAIL = "EMAIL"
+    Public Const USER_VALUE_SHORTNAME = "SHORTNAME"
+    Public Const USER_VALUE_USER_ID = "USER_ID"
+    Public Const USER_VALUE_PROFILE_ID = "PROFILE_ID"
+
+    Public Const INT_VALUE_USERNAME = "USERNAME"
+    Public Const INT_VALUE_MACHINE = "MACHINE"
+    Public Const INT_VALUE_DOMAIN = "DOMAIN"
+    Public Const INT_VALUE_DATE = "DATE"
+
+    Public Const MAX_TRY_COUNT = 100
+
+    Private Shared regex As Regex = New Regex("{#(\w+)#([\w\s_-]+)}+")
+    Private Shared allPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_USER, PATTERN_INT}
+    Private Shared complexPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL}
+    Private Shared simplePatterns As New List(Of String) From {PATTERN_USER, PATTERN_INT}
+
+    ''' <summary>
+    ''' Wraps a pattern-type and -value in the common format: {#type#value}
+    ''' </summary>
+    Public Shared Function WrapPatternValue(type As String, value As String) As String
+        Return New Pattern(type, value).ToString
+    End Function
+
+
+    Public Shared Function ReplaceAllValues(input As String, prename As Object, surname As Object, shortname As Object, email As Object, userId As Object, profileId As Object) As String
+        Try
+            Dim result = input
+
+            result = ReplaceInternalValues(result)
+            'result = ReplaceControlValues(result, Panel)
+            'If Not IsNothing(document) Then result = ReplaceWindreamIndicies(result, document)
+            result = ReplaceUserValues(result, prename, surname, shortname, email, userId, profileId)
+
+            Return result
+        Catch ex As Exception
+            Logger.Error(ex)
+            Logger.Info("Error in ReplaceAllValues:" & ex.Message)
+        End Try
+    End Function
+
+    Public Shared Function ReplaceInternalValues(input As String) As String
+        Try
+            Dim result = input
+            ' Replace Clipboard
+            result = result.Replace("@Clipboard", CURR_MATCH_RESULT)
+            result = result.Replace("@CLIPBOARD", CURR_MATCH_RESULT)
+            result = result.Replace("@Zwischenablage", CURR_MATCH_RESULT)
+            result = result.Replace("123456789", CURR_MATCH_RESULT)
+            result = result.Replace("4711", CURR_MATCH_RESULT)
+            ' Replace Username(s)
+            While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_USERNAME)
+                result = ReplacePattern(result, PATTERN_INT, Environment.UserName)
+            End While
+
+            ' Replace Machinename(s)
+            While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_MACHINE)
+                result = ReplacePattern(result, PATTERN_INT, Environment.MachineName)
+            End While
+
+            ' Replace Domainname(s)
+            While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_DOMAIN)
+                result = ReplacePattern(result, PATTERN_INT, Environment.UserDomainName)
+            End While
+
+            ' Replace CurrentDate(s)
+            While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_DATE)
+                result = ReplacePattern(result, PATTERN_INT, Now.ToShortDateString)
+            End While
+
+            Return result
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            LOGGER.Info("Error in ReplaceInternalValues:" & ex.Message)
+        End Try
+    End Function
+
+    Public Shared Function ReplaceUserValues(input As String, prename As Object, surname As Object, shortname As Object, email As Object, userId As Object, profileId As Object) As String
+        Try
+            Dim result = input
+
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PRENAME)
+                result = ReplacePattern(input, PATTERN_USER, prename)
+            End While
+
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_USER_ID)
+                result = ReplacePattern(input, PATTERN_USER, userId)
+            End While
+
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SURNAME)
+                result = ReplacePattern(input, PATTERN_USER, surname)
+            End While
+
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SHORTNAME)
+                result = ReplacePattern(input, PATTERN_USER, shortname)
+            End While
+
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_EMAIL)
+                result = ReplacePattern(input, PATTERN_USER, email)
+            End While
+
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PROFILE_ID)
+                result = ReplacePattern(input, PATTERN_USER, profileId)
+            End While
+
+            Return result
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            LOGGER.Info("Error in ReplaceUserValues:" & ex.Message)
+        End Try
+    End Function
+
+    Public Shared Function ReplaceControlValues(input As String, panel As Panel) As String
+        Try
+            Dim result = input
+            Dim oTryCounter = 0
+
+            While ContainsPattern(result, PATTERN_CTRL)
+                If oTryCounter > MAX_TRY_COUNT Then
+                    Throw New Exception("Max tries in ReplaceControlValues exceeded.")
+                End If
+
+                Dim controlName As String = GetNextPattern(result, PATTERN_CTRL).Value
+                Dim control As Control = panel.Controls.Find(controlName, False).FirstOrDefault()
+
+                If control IsNot Nothing Then
+                    Dim value As String = control.Text
+                    result = ReplacePattern(result, PATTERN_CTRL, value)
+                End If
+
+                oTryCounter += 1
+            End While
+
+            Return result
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            LOGGER.Info("Error in ReplaceControlValues:" & ex.Message)
+        End Try
+    End Function
+
+    'Public Shared Function ReplaceWindreamIndicies(input As String, document As WMObject) As String
+    '    Try
+    '        Dim result = input
+
+    '        While ContainsPattern(result, PATTERN_WMI)
+    '            Dim indexName As String = GetNextPattern(result, PATTERN_WMI).Value
+    '            Dim value = document.GetVariableValue(indexName)
+
+    '            If value IsNot Nothing Then
+    '                result = ReplacePattern(result, PATTERN_WMI, value)
+    '            End If
+    '        End While
+
+    '        Return result
+    '    Catch ex As Exception
+    '        LOGGER.Error(ex)
+    '        LOGGER.Info("Error in ReplaceWindreamIndicies:" & ex.Message)
+    '    End Try
+    'End Function
+
+    Private Shared Function ContainsPattern(input As String, type As String) As String
+        Dim elements As MatchCollection = regex.Matches(input)
+
+        For Each element As Match In elements
+            Dim t As String = element.Groups(1).Value
+
+            If t = type Then
+                Return True
+            End If
+        Next
+
+        Return False
+    End Function
+
+    Public Shared Function GetNextPattern(input As String, type As String) As Pattern
+        Dim elements As MatchCollection = regex.Matches(input)
+
+        For Each element As Match In elements
+            ' Pattern in input
+            Dim t As String = element.Groups(1).Value
+            Dim v As String = element.Groups(2).Value
+
+            If t = type Then
+                Return New Pattern(t, v)
+            End If
+        Next
+
+        Return Nothing
+    End Function
+
+    Public Shared Function GetAllPatterns(input As String) As List(Of Pattern)
+        Dim elements As MatchCollection = regex.Matches(input)
+        Dim results As New List(Of Pattern)
+
+        For Each element As Match In elements
+            ' Pattern in input
+            Dim t As String = element.Groups(1).Value
+            Dim v As String = element.Groups(2).Value
+
+            results.Add(New Pattern(t, v))
+        Next
+
+        Return results
+    End Function
+
+    Public Shared Function ReplacePattern(input As String, type As String, replacement As String) As String
+        Dim elements As MatchCollection = regex.Matches(input)
+
+        If IsNothing(replacement) Or replacement = String.Empty Then
+            Return input
+        End If
+
+        For Each element As Match In elements
+            ' if group 1 contains the 'pattern' the replace whole group with 'replacement'
+            ' and return it
+            If element.Groups(1).Value = type Then
+                Return Regex.Replace(input, element.Groups(0).Value, replacement)
+            End If
+        Next
+
+        ' no replacement made
+        Return input
+    End Function
+
+    Private Shared Function ContainsPatternAndValue(input As String, type As String, value As String) As Boolean
+        Dim elements As MatchCollection = regex.Matches(input)
+
+        For Each element As Match In elements
+            ' Pattern in input
+            Dim t As String = element.Groups(1).Value
+            Dim v As String = element.Groups(2).Value
+
+            If t = type And v = value Then
+                Return True
+            End If
+        Next
+
+        Return False
+    End Function
+
+    Public Shared Function HasAnyPatterns(input) As Boolean
+        Return allPatterns.Any(Function(p)
+                                   Return HasPattern(input, p)
+                               End Function)
+    End Function
+
+    Public Shared Function HasOnlySimplePatterns(input As String) As Boolean
+        Return Not HasComplexPatterns(input)
+    End Function
+
+    Public Shared Function HasComplexPatterns(input As String) As Boolean
+        Return complexPatterns.Any(Function(p)
+                                       Return HasPattern(input, p)
+                                   End Function)
+    End Function
+
+    Public Shared Function HasPattern(input As String, type As String) As Boolean
+        Dim matches = regex.Matches(input)
+
+        For Each match As Match In matches
+            For Each group As Group In match.Groups
+                If group.Value = type Then
+                    Return True
+                End If
+            Next
+        Next
+
+        Return False
+    End Function
+
+    Public Class Pattern
+        Public ReadOnly Property Type As String
+        Public ReadOnly Property Value As String
+
+        Public Sub New(type As String, value As String)
+            Me.Type = type
+            Me.Value = value
+        End Sub
+
+        Public Sub New(stringRepresentation As String)
+            Dim elements As MatchCollection = regex.Matches(stringRepresentation)
+            Dim first As Match = elements.Item(0)
+
+            Dim t As String = first.Groups(1).Value
+            Dim v As String = first.Groups(2).Value
+
+            Type = t
+            Value = v
+        End Sub
+
+        Public Overrides Function ToString() As String
+            Return $"{{#{Type}#{Value}}}"
+        End Function
+    End Class
+End Class

app/DD_Clipboard_Searcher/clsSearch.vb

@@ -4,13 +4,11 @@ Imports System.Text
 Imports System.Runtime.InteropServices
 
 Public Class clsSearch
-
+    'Fenster position ermitteln/auslesen
-
-    ''Fenster position ermitteln/auslesen
     'Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
     Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Int32
     Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer
-    <DllImport("user32.dll")> _
+    <DllImport("user32.dll")>
     Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
     End Function
 

app/DD_Clipboard_Searcher/clsWINDOWSApi.vb

@@ -56,14 +56,14 @@ Public Class clsWINDOWSApi
         Dim proc As Process = Process.GetProcessById(pid)
         If proc Is Nothing Then Exit Sub
         Dim msg = pid.ToString & vbNewLine
-        PROC_PID = pid.ToString
+        CurrPROC_PID = pid.ToString
-        PROC_Name = proc.ProcessName
+        CurrPROC_Name = proc.ProcessName
         msg &= vbNewLine & "Procname: " & proc.ProcessName
 
         msg &= vbNewLine & "MainWindowTitle: " & proc.MainWindowTitle
 
         msg &= vbNewLine & "WindowTitle: " & WindowTitle
-        PROC_WindowTitle = WindowTitle
+        CurrPROC_WindowTitle = WindowTitle
 
         msg &= vbNewLine & TitleLength.ToString
         ' MsgBox(msg)

app/DD_Clipboard_Searcher/clsWMDocGrid.vb

@@ -0,0 +1,229 @@
+Imports DevExpress.Utils
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Columns
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraEditors
+Imports DevExpress.XtraEditors.Repository
+Imports DevExpress.XtraGrid.Views.Base
+Imports DevExpress.XtraEditors.Controls
+
+Public Class clsWMDocGrid
+    '  Private Shared _Helper As ClassHelper
+    Public Shared SELECTED_DOC_PATH As String
+    'Public Shared RESULT_OBJECTTYPE As String
+    Public Shared SELECTED_INWORK As Boolean
+    Public Shared SELECTED_DOC_ID As Integer
+    Public Shared SELECTED_DOC_RIGHT As Integer
+    'Public Shared RESULT_DISPLAYNAME As String
+    Public Shared RESULT_CONFIG_IDS As Hashtable
+    Private Shared DATE_COLUMNS As New List(Of String)
+    Private Shared DATE_COLUMNS_CONFIG As New List(Of String)
+    Public Shared ActiveDocGrid As GridView
+
+    Public Shared DTDocuments As DataTable
+    Private Shared DT_DROPDOWN_ITEMS As DataTable
+
+    Private Shared _dropdownValueChangedHandler As EventHandler
+    Private Shared _datepickerValueChangedHandler As EventHandler
+    Private Shared _textValueChangedHandler As EventHandler
+    Private Shared _checkValueChangedHandler As EventHandler
+
+    Private Shared Function Init_Table()
+        Try
+            Dim oNewDataTable As New DataTable
+            oNewDataTable.TableName = "TBSELECTED_FILES"
+            ' Create two columns, ID and Name.
+            oNewDataTable.Columns.Add("DOC_ID", GetType(Integer))
+            oNewDataTable.Columns.Add("DOC_PATH", GetType(System.String))
+            oNewDataTable.Columns.Add("OBJECTTYPE", GetType(System.String))
+            oNewDataTable.Columns.Add("INWORK", GetType(System.Boolean))
+            oNewDataTable.Columns.Add("DISPLAYNAME", GetType(System.String))
+            oNewDataTable.Columns.Add("ACCESS_RIGHT", GetType(Integer))
+            DTDocuments = oNewDataTable
+            Return True
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            DTDocuments = Nothing
+            Return False
+        End Try
+
+    End Function
+    Public Shared Sub GetDocItems()
+
+        '_Helper = New ClassHelper
+        SELECTED_DOC_ID = 0
+        If Init_Table() = True Then
+            LOGGER.Debug("gridView.SelectedRowsCount: " & ActiveDocGrid.SelectedRowsCount.ToString)
+            If ActiveDocGrid.SelectedRowsCount >= 1 Then
+                DTDocuments.Clear()
+                For Each row In ActiveDocGrid.GetSelectedRows
+                    Dim newRow As DataRow = DTDocuments.NewRow()
+                    Try
+                        Dim DOC_ID = ActiveDocGrid.GetRowCellValue(row, "DocID")
+                        SELECTED_DOC_ID = DOC_ID
+                        newRow("DOC_ID") = ActiveDocGrid.GetRowCellValue(row, "DocID")
+                    Catch ex As Exception
+                        newRow("DOC_ID") = 0
+                        SELECTED_DOC_ID = 0
+                    End Try
+                    Try
+                        SELECTED_DOC_RIGHT = ActiveDocGrid.GetRowCellValue(row, "ACCESS_RIGHT")
+                        newRow("ACCESS_RIGHT") = ActiveDocGrid.GetRowCellValue(row, SELECTED_DOC_RIGHT)
+                    Catch ex As Exception
+                        newRow("ACCESS_RIGHT") = 1
+                    End Try
+                    Try
+                        SELECTED_DOC_PATH = ActiveDocGrid.GetRowCellValue(row, "FULL_FILENAME")
+                        newRow("DOC_PATH") = ActiveDocGrid.GetRowCellValue(row, "FULL_FILENAME")
+                    Catch ex As Exception
+                        newRow("DOC_PATH") = ""
+                    End Try
+                    Try
+                        newRow("OBJECTTYPE") = ActiveDocGrid.GetRowCellValue(row, "OBJECTTYPE")
+                    Catch ex As Exception
+                        newRow("OBJECTTYPE") = ""
+                    End Try
+                    Try
+                        newRow("INWORK") = ActiveDocGrid.GetRowCellValue(row, "in work?")
+                        SELECTED_INWORK = ActiveDocGrid.GetRowCellValue(row, "in work?")
+                    Catch ex As Exception
+                        newRow("INWORK") = False
+                        SELECTED_INWORK = False
+                    End Try
+                    Try
+                        Dim dpn = ActiveDocGrid.GetRowCellValue(row, "Displayname")
+                        If IsDBNull(dpn) Or IsNothing(dpn) Then
+                            dpn = ""
+                        End If
+                        newRow("DISPLAYNAME") = dpn
+                    Catch ex As Exception
+                        newRow("DISPLAYNAME") = ""
+                    End Try
+                    DTDocuments.Rows.Add(newRow)
+                    DTDocuments.AcceptChanges()
+                Next
+            Else
+                Dim newRow As DataRow = DTDocuments.NewRow()
+                Try
+                    Dim DOC_ID = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
+                    SELECTED_DOC_ID = DOC_ID
+                    newRow("DOC_ID") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
+                Catch ex As Exception
+                    newRow("DOC_ID") = 0
+                    SELECTED_DOC_ID = 0
+                End Try
+                Try
+                    SELECTED_DOC_PATH = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("FULL_FILENAME"))
+                    newRow("DOC_PATH") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("FULL_FILENAME"))
+                Catch ex As Exception
+                    newRow("DOC_PATH") = ""
+                End Try
+                Try
+                    newRow("OBJECTTYPE") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("OBJECTTYPE"))
+                Catch ex As Exception
+                    newRow("OBJECTTYPE") = ""
+                End Try
+                Try
+                    newRow("INWORK") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("in work?"))
+                    SELECTED_INWORK = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("in work?"))
+                Catch ex As Exception
+                    newRow("INWORK") = False
+                    SELECTED_INWORK = False
+                End Try
+                Try
+                    Dim dpn = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("Displayname"))
+                    If IsDBNull(dpn) Or IsNothing(dpn) Then
+                        dpn = ""
+                    End If
+                    newRow("DISPLAYNAME") = dpn
+                Catch ex As Exception
+                    newRow("DISPLAYNAME") = ""
+                End Try
+                DTDocuments.Rows.Add(newRow)
+                DTDocuments.AcceptChanges()
+            End If
+        End If
+    End Sub
+
+
+
+    Public Class WindreamDocGridComboboxItem
+        Implements IConvertible
+
+        Public ConfigID As Integer
+        Public Value As String
+
+        Public Overrides Function ToString() As String
+            Return Me.Value
+        End Function
+
+        Public Function ToString1(provider As IFormatProvider) As String Implements IConvertible.ToString
+            Return Me.Value
+        End Function
+
+        Public Function GetTypeCode() As TypeCode Implements IConvertible.GetTypeCode
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToBoolean(provider As IFormatProvider) As Boolean Implements IConvertible.ToBoolean
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToByte(provider As IFormatProvider) As Byte Implements IConvertible.ToByte
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToChar(provider As IFormatProvider) As Char Implements IConvertible.ToChar
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToDateTime(provider As IFormatProvider) As Date Implements IConvertible.ToDateTime
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToDecimal(provider As IFormatProvider) As Decimal Implements IConvertible.ToDecimal
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToDouble(provider As IFormatProvider) As Double Implements IConvertible.ToDouble
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToInt16(provider As IFormatProvider) As Short Implements IConvertible.ToInt16
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToInt32(provider As IFormatProvider) As Integer Implements IConvertible.ToInt32
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToInt64(provider As IFormatProvider) As Long Implements IConvertible.ToInt64
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToSByte(provider As IFormatProvider) As SByte Implements IConvertible.ToSByte
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToSingle(provider As IFormatProvider) As Single Implements IConvertible.ToSingle
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToType(conversionType As Type, provider As IFormatProvider) As Object Implements IConvertible.ToType
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToUInt16(provider As IFormatProvider) As UShort Implements IConvertible.ToUInt16
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToUInt32(provider As IFormatProvider) As UInteger Implements IConvertible.ToUInt32
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToUInt64(provider As IFormatProvider) As ULong Implements IConvertible.ToUInt64
+            Throw New NotImplementedException
+        End Function
+    End Class
+
+End Class

app/DD_Clipboard_Searcher/frmAbout.designer.vb

@@ -0,0 +1,160 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmAbout
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAbout))
+        Me.btnClose = New System.Windows.Forms.Button()
+        Me.lblCopyrightORPALIS = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.lblDemoName = New System.Windows.Forms.Label()
+        Me.lblGdPictureDemo = New System.Windows.Forms.Label()
+        Me.lblGdPictureWebsite = New System.Windows.Forms.LinkLabel()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'btnClose
+        '
+        Me.btnClose.Location = New System.Drawing.Point(664, 283)
+        Me.btnClose.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.btnClose.Name = "btnClose"
+        Me.btnClose.Size = New System.Drawing.Size(100, 28)
+        Me.btnClose.TabIndex = 0
+        Me.btnClose.Text = "Close"
+        Me.btnClose.UseVisualStyleBackColor = True
+        '
+        'lblCopyrightORPALIS
+        '
+        Me.lblCopyrightORPALIS.AutoSize = True
+        Me.lblCopyrightORPALIS.Enabled = False
+        Me.lblCopyrightORPALIS.Location = New System.Drawing.Point(11, 289)
+        Me.lblCopyrightORPALIS.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblCopyrightORPALIS.Name = "lblCopyrightORPALIS"
+        Me.lblCopyrightORPALIS.Size = New System.Drawing.Size(181, 17)
+        Me.lblCopyrightORPALIS.TabIndex = 1
+        Me.lblCopyrightORPALIS.Text = "Copyright © 2018 ORPALIS"
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+        Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
+        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(780, 191)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+        Me.PictureBox1.TabIndex = 2
+        Me.PictureBox1.TabStop = False
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.PictureBox1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(780, 191)
+        Me.Panel1.TabIndex = 3
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.SystemColors.Window
+        Me.Panel2.Controls.Add(Me.lblDemoName)
+        Me.Panel2.Controls.Add(Me.lblGdPictureDemo)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 191)
+        Me.Panel2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(780, 80)
+        Me.Panel2.TabIndex = 4
+        '
+        'lblDemoName
+        '
+        Me.lblDemoName.AutoSize = True
+        Me.lblDemoName.Location = New System.Drawing.Point(27, 39)
+        Me.lblDemoName.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblDemoName.Name = "lblDemoName"
+        Me.lblDemoName.Size = New System.Drawing.Size(251, 17)
+        Me.lblDemoName.TabIndex = 1
+        Me.lblDemoName.Text = ".NET Winform Document Viewer Demo"
+        '
+        'lblGdPictureDemo
+        '
+        Me.lblGdPictureDemo.AutoSize = True
+        Me.lblGdPictureDemo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblGdPictureDemo.Location = New System.Drawing.Point(13, 14)
+        Me.lblGdPictureDemo.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblGdPictureDemo.Name = "lblGdPictureDemo"
+        Me.lblGdPictureDemo.Size = New System.Drawing.Size(247, 17)
+        Me.lblGdPictureDemo.TabIndex = 0
+        Me.lblGdPictureDemo.Text = "GdPicture.NET Application Demo"
+        '
+        'lblGdPictureWebsite
+        '
+        Me.lblGdPictureWebsite.AutoSize = True
+        Me.lblGdPictureWebsite.Location = New System.Drawing.Point(204, 289)
+        Me.lblGdPictureWebsite.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblGdPictureWebsite.Name = "lblGdPictureWebsite"
+        Me.lblGdPictureWebsite.Size = New System.Drawing.Size(168, 17)
+        Me.lblGdPictureWebsite.TabIndex = 6
+        Me.lblGdPictureWebsite.TabStop = True
+        Me.lblGdPictureWebsite.Text = "http://www.gdpicture.com/"
+        '
+        'frmAbout
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(780, 326)
+        Me.Controls.Add(Me.lblGdPictureWebsite)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.lblCopyrightORPALIS)
+        Me.Controls.Add(Me.btnClose)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmAbout"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "About..."
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents btnClose As System.Windows.Forms.Button
+    Friend WithEvents lblCopyrightORPALIS As System.Windows.Forms.Label
+    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents lblDemoName As System.Windows.Forms.Label
+    Friend WithEvents lblGdPictureDemo As System.Windows.Forms.Label
+    Friend WithEvents lblGdPictureWebsite As System.Windows.Forms.LinkLabel
+End Class

app/DD_Clipboard_Searcher/frmAbout.vb

@@ -0,0 +1,13 @@
+Option Strict On
+Option Explicit On
+
+Public Class frmAbout
+
+    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
+        Me.Close()
+    End Sub
+
+    Private Sub lblGdPictureWebsite_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblGdPictureWebsite.LinkClicked
+        Process.Start("http://www.gdpicture.com/")
+    End Sub
+End Class

app/DD_Clipboard_Searcher/frmAdministration.Designer.vb

@@ -889,7 +889,8 @@ Partial Class frmAdministration
         '
         'TimerTest
         '
-        Me.TimerTest.Interval = 5000
+        Me.TimerTest.Interval = 1000
+
         '
         'TBCW_PROFILE_PROCESSBindingSource
         '

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -171,11 +171,11 @@ Public Class frmAdministration
 
     Private Sub TimerTest_Tick(sender As Object, e As EventArgs) Handles TimerTest.Tick
         clsWINDOWSApi.Get_ForegroundWindow_Info()
-        If PID <> PROC_PID And PROC_Name <> "DD_Clipboard_Watcher" Then
+        If PID <> CurrPROC_PID And CurrPROC_Name <> "DD_Clipboard_Watcher" Then
             lblprocessCheckActive.Visible = True
-            PID = PROC_PID
+            PID = CurrPROC_PID
-            txtPID.Text = PROC_PID
+            txtPID.Text = CurrPROC_PID
-            txtProcessName.Text = PROC_Name
+            txtProcessName.Text = CurrPROC_Name
         Else
             lblprocessCheckActive.Visible = False
         End If
@@ -237,7 +237,7 @@ Public Class frmAdministration
             txtProcessName.Text = ""
             TimerTest.Start()
             btnStartStopProcess.Text = "Stoppe Auswertung Fenster"
-            Status_Changed("Auswertung von aktivem Fenster läuft! Alle 5 Sekunden Prüfung! - Wechseln Sie durch die aktiven Anwendungen!", Color.Orange)
+            Status_Changed("Auswertung von aktivem Fenster läuft! Wechseln Sie durch die aktiven Anwendungen!", Color.Orange)
         Else
             Me.Cursor = Cursors.Default
             TimerTest.Stop()

app/DD_Clipboard_Searcher/frmDocView.vb

@@ -0,0 +1,767 @@
+Option Strict On
+Option Explicit On
+
+Imports GdPicture14
+Imports System.Globalization
+Imports System.Text.RegularExpressions
+Imports System.Text
+Imports System.ComponentModel
+
+Public Class frmDocView
+    Private Enum ZoomMode
+        Zoom50
+        Zoom100
+        Zoom150
+        Zoom200
+        ZoomSelectedArea
+        ZoomFitToViewer
+        ZoomFitWidth
+        ZoomFitHeight
+    End Enum
+    Private _docPath As String
+    Private _currentSearchOccurence As Integer = 0
+    Private _toggleGamma As Boolean = True
+
+    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
+        Dim oLicenceManager As New GdPicture14.LicenseManager()
+        oLicenceManager.RegisterKEY("0466385611744606151491532") 'Please, replace XXXX by a valid demo or commercial license key.
+
+        BookmarksTree1.GdViewer = GdViewer1
+
+        tcLeftPanel.Appearance = TabAppearance.FlatButtons
+        tcLeftPanel.ItemSize = New Size(0, 1)
+        tcLeftPanel.SizeMode = TabSizeMode.Fixed
+        SelectSnapIn(0, "Thumbnails")
+
+        Dim zoomModes As New Dictionary(Of ZoomMode, String) From {
+            {ZoomMode.Zoom50, "50%"},
+            {ZoomMode.Zoom100, "100%"},
+            {ZoomMode.Zoom150, "150%"},
+            {ZoomMode.Zoom200, "200%"},
+            {ZoomMode.ZoomSelectedArea, "Zoom to selected area"},
+            {ZoomMode.ZoomFitToViewer, "Fit to viewer"},
+            {ZoomMode.ZoomFitWidth, "Fit to viewer width"},
+            {ZoomMode.ZoomFitHeight, "Fit to viewer height"}
+        }
+        For Each item In zoomModes
+            cbZoom.Items.Add(item.Value)
+        Next
+
+        rbAllPages.Checked = True
+        Dim imageListSearchResults As New ImageList
+        imageListSearchResults.ImageSize = New Size(20, 20)
+        imageListSearchResults.Images.Add(CType(My.Resources.ResourceManager.GetObject("search"), Image))
+        lstSearchResults.LargeImageList = imageListSearchResults
+        lstSearchResults.Groups.Add(New ListViewGroup("SearchResult", "Search result"))
+
+        pGamma.Visible = False
+        tbGamma.Value = CInt(GdViewer1.Gamma * 10)
+        lblGamma.Text = "Current gamma: " & CStr(GdViewer1.Gamma) & " (default: 1)"
+
+        ResetSearch()
+        UpdateMainUi()
+        If My.Settings.frmViewerPosition.IsEmpty = False Then
+            If My.Settings.frmViewerPosition.X > 0 And My.Settings.frmViewerPosition.Y > 0 Then
+                Location = My.Settings.frmViewerPosition
+            End If
+        End If
+        If My.Settings.frmViewerSize.IsEmpty = False Then
+            Size = My.Settings.frmViewerSize
+        End If
+    End Sub
+    Public Sub Load_File_from_Path(filepath As String)
+
+        CloseDocument()
+        _docPath = filepath
+        Me.ToolStripStatusLabel2.Text = _docPath
+        GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
+        GdViewer1.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
+
+        GdViewer1.DisplayFromFile(filepath)
+        GdViewer1.Focus()
+        ThumbnailEx1.LoadFromGdViewer(GdViewer1)
+        UpdateMainUi()
+
+    End Sub
+
+    Private Sub UpdateMainUi()
+        Me.Text = "GdPicture.NET " & GetType(GdPictureImaging).Assembly.GetName().Version.ToString() & " - Document Viewer Demo"
+        If GdViewer1.PageCount = 0 Then
+            btnClose.Enabled = False
+            btnPrint.Enabled = False
+            btnFirstPage.Enabled = False
+            btnPreviousPage.Enabled = False
+            tbCurrentPage.Enabled = False
+            lblPageCount.Enabled = False
+            btnNextPage.Enabled = False
+            btnLastPage.Enabled = False
+            btnZoomOut.Enabled = False
+            cbZoom.Enabled = False
+            btnZoomIn.Enabled = False
+            btnFitPage.Enabled = False
+            btnFitWidth.Enabled = False
+            btnAdjustGamma.Enabled = False
+            btnRotateLeft.Enabled = False
+            btnRotateRight.Enabled = False
+            btnFlipX.Enabled = False
+            btnFlipY.Enabled = False
+            tbCurrentPage.Text = "0"
+            lblPageCount.Text = "/ 0"
+            cbZoom.SelectedIndex = -1
+            tbSearch.Text = ""
+            pSearch.Enabled = False
+        Else
+            btnClose.Enabled = True
+            btnPrint.Enabled = True
+            btnFirstPage.Enabled = True
+            btnPreviousPage.Enabled = True
+            tbCurrentPage.Enabled = True
+            lblPageCount.Enabled = True
+            btnNextPage.Enabled = True
+            btnLastPage.Enabled = True
+            btnZoomOut.Enabled = True
+            cbZoom.Enabled = True
+            btnZoomIn.Enabled = True
+            btnFitPage.Enabled = True
+            btnFitWidth.Enabled = True
+            btnAdjustGamma.Enabled = True
+            btnRotateLeft.Enabled = True
+            btnRotateRight.Enabled = True
+            btnFlipX.Enabled = True
+            btnFlipY.Enabled = True
+            UpdateaNavigationToolbar()
+            pSearch.Enabled = True
+        End If
+        ResetSearch()
+    End Sub
+
+    Private Sub UpdateaNavigationToolbar()
+        Dim currentPage As Integer = GdViewer1.CurrentPage()
+        tbCurrentPage.Text = currentPage.ToString()
+        lblPageCount.Text = "/ " & GdViewer1.PageCount.ToString()
+        If currentPage = 1 Then
+            btnFirstPage.Enabled = False
+            btnPreviousPage.Enabled = False
+        Else
+            btnFirstPage.Enabled = True
+            btnPreviousPage.Enabled = True
+        End If
+        If currentPage = GdViewer1.PageCount Then
+            btnNextPage.Enabled = False
+            btnLastPage.Enabled = False
+        Else
+            btnNextPage.Enabled = True
+            btnLastPage.Enabled = True
+        End If
+        cbZoom.Text = String.Format(CultureInfo.InvariantCulture, "{0:#0.##%}", GdViewer1.Zoom)
+
+
+        Dim widthInches, heightInches As Double
+
+        If GdViewer1.GetDocumentType = DocumentType.DocumentTypePDF Then
+            widthInches = GdViewer1.PdfGetPageWidth / 72
+            heightInches = GdViewer1.PdfGetPageHeight / 72
+        Else
+            widthInches = GdViewer1.PageWidth / GdViewer1.HorizontalResolution
+            heightInches = GdViewer1.PageHeight / GdViewer1.VerticalResolution
+        End If
+
+        Me.ToolStripStatusLabel1.Text = "Type: " + GetDocumentTypeLabel() + "  -  " +
+                                        "Page Size (inches): " + Trim(Str(Math.Round(widthInches, 2))) + " × " + Trim(Str(Math.Round(heightInches, 2))) + "  -  " +
+                                        "Page Size (pixels): " + Trim(Str(GdViewer1.PageWidth)) + " × " + Trim(Str(GdViewer1.PageHeight)) + "  -  " +
+                                        "Horizontal resolution: " + Trim(Str(Math.Round(GdViewer1.HorizontalResolution, 2))) + " DPI  -  " +
+                                        "Vertical resolution: " + Trim(Str(Math.Round(GdViewer1.VerticalResolution, 2))) + " DPI"
+
+    End Sub
+
+    Private Function GetDocumentTypeLabel() As String
+        Dim result As String = ""
+        Select Case GdViewer1.GetDocumentType()
+            Case DocumentType.DocumentTypeBitmap
+                result = "Image"
+            Case DocumentType.DocumentTypeMetaFile
+                result = "Metafile"
+            Case DocumentType.DocumentTypePDF
+                result = "PDF"
+            Case DocumentType.DocumentTypeSVG
+                result = "SVG"
+            Case DocumentType.DocumentTypeTXT
+                result = "Text file"
+            Case DocumentType.DocumentTypeUnknown
+                result = "Unknown"
+        End Select
+        Return result
+    End Function
+
+    Private Sub CloseDocument()
+        GdViewer1.CloseDocument()
+        ThumbnailEx1.ClearAllItems()
+        UpdateMainUi()
+    End Sub
+
+    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnOpen.Click
+        CloseDocument()
+
+        GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
+        GdViewer1.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter
+
+        Using frmOpen As New frmGdPictureOpen(GdViewer1)
+            frmOpen.ShowDialog(Me)
+        End Using
+        GdViewer1.Focus()
+        ThumbnailEx1.LoadFromGdViewer(GdViewer1)
+        UpdateMainUi()
+    End Sub
+
+    Private Sub btnFirstPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFirstPage.Click
+        GdViewer1.DisplayFirstPage()
+    End Sub
+
+    Private Sub btnPreviousPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnPreviousPage.Click
+        GdViewer1.DisplayPreviousPage()
+    End Sub
+
+    Private Sub btnNextPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnNextPage.Click
+        GdViewer1.DisplayNextPage()
+    End Sub
+
+    Private Sub btnLastPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnLastPage.Click
+        GdViewer1.DisplayLastPage()
+    End Sub
+
+    Private Sub tbCurrentPage_Leave(ByVal sender As System.Object, ByVal e As EventArgs) Handles tbCurrentPage.Leave
+        Dim page As Integer = 0
+        If Integer.TryParse(tbCurrentPage.Text, page) Then
+            If page > 0 And page <= GdViewer1.PageCount Then
+                GdViewer1.DisplayPage(page)
+                UpdateaNavigationToolbar()
+            End If
+        End If
+    End Sub
+
+    Private Sub GdViewer1_PageChanged() Handles GdViewer1.PageChanged
+        UpdateaNavigationToolbar()
+    End Sub
+
+    Private Sub ChangeZoomValue()
+        If cbZoom.SelectedIndex <> -1 Then
+            Select Case CType(cbZoom.SelectedIndex, ZoomMode)
+                Case ZoomMode.Zoom50
+                    GdViewer1.Zoom = 50.0F / 100
+                Case ZoomMode.Zoom100
+                    GdViewer1.Zoom = 100.0F / 100
+                Case ZoomMode.Zoom150
+                    GdViewer1.Zoom = 150.0F / 100
+                Case ZoomMode.Zoom200
+                    GdViewer1.Zoom = 250.0F / 100
+                Case ZoomMode.ZoomSelectedArea
+                    If GdViewer1.IsRect() Then
+                        GdViewer1.ZoomRect()
+                    Else
+                        GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaSelection
+                        GdViewer1.Focus()
+                    End If
+                Case ZoomMode.ZoomFitToViewer
+                    GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
+                Case ZoomMode.ZoomFitWidth
+                    GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
+                Case ZoomMode.ZoomFitHeight
+                    GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeHeightViewer
+            End Select
+        Else
+            If (IsNumeric(Regex.Replace(cbZoom.Text, "[^0-9,.]", ""))) Then
+                GdViewer1.Zoom = Val(Regex.Replace(cbZoom.Text, "[^0-9,.]", "")) / 100
+            End If
+        End If
+        UpdateaNavigationToolbar()
+    End Sub
+
+    Private Sub cbZoom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles cbZoom.SelectedIndexChanged
+        ChangeZoomValue()
+    End Sub
+
+    Private Sub GdViewer1_AfterZoomChange() Handles GdViewer1.AfterZoomChange
+        UpdateaNavigationToolbar()
+        If GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaZooming Then
+            GdViewer1.MouseMode = ViewerMouseMode.MouseModePan
+        End If
+    End Sub
+
+    Private Sub btnZoomOut_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnZoomOut.Click
+        GdViewer1.ZoomOUT()
+    End Sub
+
+    Private Sub btnZoomIn_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnZoomIn.Click
+        GdViewer1.ZoomIN()
+    End Sub
+
+    Private Sub cbZoom_TextUpdate(ByVal sender As System.Object, ByVal e As EventArgs) Handles cbZoom.Validating
+        ChangeZoomValue()
+    End Sub
+
+    Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnAbout.Click
+        Using frmAbout As New frmAbout()
+            frmAbout.ShowDialog(Me)
+        End Using
+    End Sub
+
+    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnPrint.Click
+        If GdViewer1.PageCount = 0 Then
+            Return
+        End If
+        Using f As New frmPrint(GdViewer1)
+            f.ShowDialog(Me)
+            If f.DialogResult <> DialogResult.OK Then
+                Return
+            End If
+            Dim printSettings As frmPrint.PrintSettings = f.printConfiguration
+            If Not GdViewer1.PrintSetActivePrinter(printSettings.Printer) Then
+                Return
+            End If
+            GdViewer1.PrintSetDocumentName("GdPicture Print Job " + DateTime.Now.ToString("yyyy-MM-dd HH\mm"))
+            GdViewer1.PrintSetAlignment(printSettings.PrintAlignment)
+            Select Case printSettings.Orientation
+                Case frmPrint.PrintOrientation.AutoDetection
+                    GdViewer1.PrintSetAutoRotation(True)
+                    Exit Select
+                Case frmPrint.PrintOrientation.Portrait
+                    GdViewer1.PrintSetAutoRotation(False)
+                    GdViewer1.PrintSetOrientation(PrinterOrientation.PrinterOrientationPortrait)
+                    Exit Select
+                Case frmPrint.PrintOrientation.Paysage
+                    GdViewer1.PrintSetAutoRotation(False)
+                    GdViewer1.PrintSetOrientation(PrinterOrientation.PrinterOrientationLandscape)
+                    Exit Select
+            End Select
+            GdViewer1.PrintSetCopies(printSettings.Copies)
+            If printSettings.Copies > 1 Then
+                GdViewer1.PrintSetCollate(printSettings.Collate)
+            End If
+            Select Case printSettings.PagesToPrint
+                Case frmPrint.PagesToPrint.All
+                    GdViewer1.PrintSetFromToPage(1, GdViewer1.PageCount)
+                    GdViewer1.Print(printSettings.PrintSize)
+                    Exit Select
+                Case frmPrint.PagesToPrint.Current
+                    GdViewer1.PrintSetFromToPage(GdViewer1.CurrentPage, GdViewer1.CurrentPage)
+                    GdViewer1.Print(printSettings.PrintSize)
+                    Exit Select
+                Case frmPrint.PagesToPrint.Selection
+                    Dim range As String = GetSelectedItemAsRange()
+                    If Not String.IsNullOrWhiteSpace(range) Then
+                        GdViewer1.PrintSetPageSelection(range)
+                        GdViewer1.Print(printSettings.PrintSize)
+                    End If
+                    Exit Select
+                Case frmPrint.PagesToPrint.Range
+                    If printSettings.PageRange IsNot Nothing And printSettings.PageRange <> String.Empty Then
+                        If printSettings.PageRange.Contains("-") Then
+                            Dim pageStart As Integer = 0
+                            If Integer.TryParse(printSettings.PageRange.Split("-"c)(0), pageStart) Then
+                                Dim pageEnd As Integer = 0
+                                If Integer.TryParse(printSettings.PageRange.Split("-"c)(1), pageEnd) Then
+                                    If pageEnd < pageStart Then
+                                        GdViewer1.PrintSetFromToPage(pageEnd, pageStart)
+                                        GdViewer1.Print(printSettings.PrintSize)
+                                    Else
+                                        GdViewer1.PrintSetFromToPage(pageStart, pageEnd)
+                                        GdViewer1.Print(printSettings.PrintSize)
+                                    End If
+                                Else
+                                    MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+                                End If
+                            Else
+                                MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+                            End If
+                        Else
+                            Dim page As Integer = 0
+                            If Integer.TryParse(printSettings.PageRange, page) Then
+                                GdViewer1.PrintSetFromToPage(page, page)
+                                GdViewer1.Print(printSettings.PrintSize)
+                            Else
+                                MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+                            End If
+                        End If
+                    Else
+                        MessageBox.Show("Page range is invalid.", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+                    End If
+                    Exit Select
+            End Select
+        End Using
+    End Sub
+
+    Private Function GetSelectedItemAsRange() As String
+        Dim count As Integer = 0
+        For i As Integer = 0 To ThumbnailEx1.ItemCount - 1
+            If ThumbnailEx1.GetItemCheckState(i) = True Then
+                count += 1
+            End If
+        Next
+        If count = 0 Then
+            If MessageBox.Show("No page has been selected, do you want to save all pages?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
+                For i As Integer = 0 To ThumbnailEx1.ItemCount - 1
+                    ThumbnailEx1.SetItemCheckState(i, True)
+                Next
+                count = ThumbnailEx1.ItemCount
+            End If
+        End If
+        If count > 0 Then
+            Dim sb As New StringBuilder
+            For i As Integer = 0 To ThumbnailEx1.ItemCount
+                If ThumbnailEx1.GetItemCheckState(i) = True Then
+                    If sb.Length <> 0 Then
+                        sb.Append(";")
+                    End If
+                    sb.Append(i + 1)
+                End If
+            Next
+
+            Return sb.ToString()
+        Else
+            Return ""
+        End If
+    End Function
+
+    Private Sub btnRotateLeft_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnRotateLeft.Click
+        GdViewer1.Rotate(RotateFlipType.Rotate270FlipNone)
+    End Sub
+
+    Private Sub btnRotateRight_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnRotateRight.Click
+        GdViewer1.Rotate(RotateFlipType.Rotate90FlipNone)
+    End Sub
+
+    Private Sub btnFlipX_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFlipX.Click
+        GdViewer1.Rotate(RotateFlipType.RotateNoneFlipX)
+    End Sub
+
+    Private Sub btnFlipY_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnFlipY.Click
+        GdViewer1.Rotate(RotateFlipType.RotateNoneFlipY)
+    End Sub
+
+    Private Sub GdViewer1_TransferEnded(ByVal status As GdPictureStatus, ByVal download As System.Boolean) Handles GdViewer1.TransferEnded
+        GdViewer1.Focus()
+        ThumbnailEx1.LoadFromGdViewer(GdViewer1)
+        UpdateMainUi()
+    End Sub
+
+    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnSearch.Click
+        If (GdViewer1.GetDocumentType() <> DocumentType.DocumentTypePDF And GdViewer1.GetDocumentType() <> DocumentType.DocumentTypeTXT) Or String.IsNullOrWhiteSpace(tbSearch.Text) Then
+            Return
+        End If
+
+        ResetSearch()
+        Dim page As Integer
+        Dim found As Boolean = False
+        If rbAllPages.Checked Then
+            page = 1
+        Else
+            page = GdViewer1.CurrentPage
+        End If
+        Dim finish As Boolean = False
+        Dim countResults As Integer = 0
+
+        Me.Cursor = Cursors.WaitCursor
+        searchProgressBar.Value = 1
+        searchProgressBar.Maximum = GdViewer1.PageCount
+        searchProgressBar.Visible = True
+
+        Dim items As New List(Of ListViewItem)
+
+        While Not finish
+            lblSearchResults.Text = "Find results for page " + page.ToString() + " of " + GdViewer1.PageCount.ToString()
+            searchProgressBar.Increment(1)
+            lblSearchResults.Invalidate()
+            lblSearchResults.Update()
+            lblSearchResults.Refresh()
+            searchProgressBar.Invalidate()
+            searchProgressBar.Update()
+            searchProgressBar.Refresh()
+            Dim count As Integer = GetSearchResultCount(page, tbSearch.Text)
+            If count > 0 Then
+                found = True
+                Dim item As New ListViewItem(New String() {"Page " + page.ToString(), count.ToString() + " occurence(s) found"}, 0)
+                item.Name = "Page" + page.ToString()
+                item.Tag = page
+                item.Group = lstSearchResults.Groups(0)
+                items.Add(item)
+            End If
+            countResults += count
+            page = page + 1
+            finish = rbCurrentPage.Checked Or page > GdViewer1.PageCount
+        End While
+
+        lstSearchResults.Items.AddRange(items.ToArray())
+
+        lstSearchResults.Groups(0).Header = "Search results (" + countResults.ToString() + ")"
+        Me.Cursor = Cursors.Default
+
+        lblSearchResults.Text = ""
+        searchProgressBar.Visible = False
+
+        If Not found Then
+            MessageBox.Show("No match found", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
+        End If
+    End Sub
+
+    Private Function GetSearchResultCount(ByVal page As Integer, ByVal searchedTerm As String) As Integer
+        Return GdViewer1.GetTextOccurrenceCount(page, searchedTerm, chkCaseSensitive.Checked, chkWholeWord.Checked)
+    End Function
+
+    Private Sub ResetSearch()
+        btnFindPrevious.Enabled = Not String.IsNullOrWhiteSpace(tbSearch.Text)
+        btnFindNext.Enabled = Not String.IsNullOrWhiteSpace(tbSearch.Text)
+        btnSearch.Enabled = Not String.IsNullOrWhiteSpace(tbSearch.Text)
+        lstSearchResults.Items.Clear()
+        GdViewer1.RemoveAllRegions()
+        _currentSearchOccurence = 0
+        lblSearchResults.Text = ""
+    End Sub
+
+    Private Sub chkWholeWord_CheckedChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles chkWholeWord.CheckedChanged
+        ResetSearch()
+    End Sub
+
+    Private Sub chkCaseSensitive_CheckedChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles chkCaseSensitive.CheckedChanged
+        ResetSearch()
+    End Sub
+
+    Private Sub rbCurrentPage_CheckedChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles rbCurrentPage.CheckedChanged
+        ResetSearch()
+    End Sub
+
+    Private Sub rbAllPages_CheckedChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles rbAllPages.CheckedChanged
+        ResetSearch()
+    End Sub
+
+    Private Sub tbSearch_TextChanged(ByVal sender As System.Object, ByVal e As EventArgs) Handles tbSearch.TextChanged
+        ResetSearch()
+    End Sub
+
+    Private Sub cbZoom_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cbZoom.Validating
+        ChangeZoomValue()
+    End Sub
+
+    Private Sub lstSearchResults_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles lstSearchResults.SelectedIndexChanged
+        If lstSearchResults.SelectedItems.Count <> 0 Then
+            GdViewer1.RemoveAllRegions()
+            Dim item As ListViewItem = lstSearchResults.SelectedItems(0)
+            Dim page As Integer = CType(item.Tag, Integer)
+            If GdViewer1.CurrentPage <> page Then
+                GdViewer1.DisplayPage(page)
+            End If
+            Dim occurence As Integer = 1
+            Dim occurenceLeft As Single
+            Dim occurenceTop As Single
+            Dim occurenceWidth As Single
+            Dim occurenceHeight As Single
+            While GdViewer1.SearchText(page, tbSearch.Text, occurence, chkCaseSensitive.Checked, chkWholeWord.Checked, occurenceLeft, occurenceTop, occurenceWidth, occurenceHeight)
+                AddSearchRegion(occurence, occurenceLeft, occurenceTop, occurenceWidth, occurenceHeight, occurence = 1)
+                occurence = occurence + 1
+            End While
+        End If
+    End Sub
+
+    Private Sub btnFindNext_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFindNext.Click
+        Search(True)
+    End Sub
+
+    Private Sub btnFindPrevious_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFindPrevious.Click
+        Search(False)
+    End Sub
+
+    Private Sub AddSearchRegion(ByVal occurence As Integer, ByVal leftCoordinate As Single, ByVal topCoordinate As Single, ByVal regionWidth As Single, ByVal regionheight As Single, ByVal ensureVisibility As Boolean)
+        Dim searchRegion As Integer = GdViewer1.AddRegionInches("SearchResult" & occurence, leftCoordinate, topCoordinate, regionWidth, regionheight, ForegroundMixMode.ForegroundMixModeMASKPEN, Color.Yellow)
+        GdViewer1.SetRegionEditable(searchRegion, False)
+        If ensureVisibility Then
+            GdViewer1.EnsureRegionVisibility(searchRegion)
+        End If
+    End Sub
+
+    Private Function Search(ByVal ascending As Boolean) As Boolean
+        Dim go As Boolean = True
+        Dim page As Integer = GdViewer1.CurrentPage
+        Dim found As Boolean = False
+        Dim newOccurence As Integer
+        Dim occurenceLeft As Single
+        Dim occurenceTop As Single
+        Dim occurenceWidth As Single
+        Dim occurenceHeight As Single
+        If ascending Then
+            newOccurence = _currentSearchOccurence + 1
+        Else
+            newOccurence = _currentSearchOccurence - 1
+        End If
+        While go
+            If GdViewer1.SearchText(page, tbSearch.Text, newOccurence, chkCaseSensitive.Checked, chkWholeWord.Checked, occurenceLeft, occurenceTop, occurenceWidth, occurenceHeight) Then
+                If page <> GdViewer1.CurrentPage Then
+                    GdViewer1.DisplayPage(page)
+                End If
+                GdViewer1.RemoveAllRegions()
+                AddSearchRegion(newOccurence, occurenceLeft, occurenceTop, occurenceWidth, occurenceHeight, True)
+                _currentSearchOccurence = newOccurence
+                found = True
+                go = False
+            Else
+                If rbAllPages.Checked Then
+                    If ascending Then
+                        page = page + 1
+                        newOccurence = 1
+                    Else
+                        page = page - 1
+                        newOccurence = GetSearchResultCount(page, tbSearch.Text)
+                    End If
+                    If page = 0 Or page > GdViewer1.PageCount Then
+                        go = False
+                    End If
+                Else
+                    go = False
+                End If
+            End If
+        End While
+        If Not found Then
+            MessageBox.Show(Me, "No match found !", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
+        End If
+        Return found
+    End Function
+
+    Private Sub btnClose_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnClose.Click
+        CloseDocument()
+        UpdateMainUi()
+    End Sub
+
+    Private Sub btnSettings_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSettings.Click
+        Using frmSettings As New frmSettings(GdViewer1)
+            frmSettings.ShowDialog(Me)
+        End Using
+        ThumbnailEx1.PdfRasterizerEngine = GdViewer1.PdfRasterizerEngine
+        ThumbnailEx1.PdfIncreaseTextContrast = GdViewer1.PdfIncreaseTextContrast
+        UpdateaNavigationToolbar()
+    End Sub
+
+    Private Sub btnFitWidth_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFitWidth.Click
+        GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
+    End Sub
+
+    Private Sub btnFitPage_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnFitPage.Click
+        GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer
+    End Sub
+
+    Private Sub tbGamma_Scroll(ByVal sender As Object, ByVal e As EventArgs) Handles tbGamma.Scroll
+        GdViewer1.Gamma = CSng(tbGamma.Value / 10)
+        lblGamma.Text = "Current gamma: " & CStr(GdViewer1.Gamma) & " (default: 1)"
+    End Sub
+
+    Private Sub SelectSnapIn(ByVal num As Integer, ByVal title As String)
+        tcLeftPanel.SelectedIndex = num
+        lblSnapInPanel.Text = title
+        For i As Integer = 0 To pSnapInButtons.Controls.Count - 1
+            If i = num Then
+                pSnapInButtons.Controls(i).BackColor = SystemColors.Control
+                CType(pSnapInButtons.Controls(i), Button).FlatAppearance.BorderColor = SystemColors.Control
+            Else
+                pSnapInButtons.Controls(i).BackColor = SystemColors.AppWorkspace
+                CType(pSnapInButtons.Controls(i), Button).FlatAppearance.BorderColor = SystemColors.AppWorkspace
+            End If
+        Next
+    End Sub
+
+    Private Sub btnSnapInThumbnails_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnSnapInThumbnails.Click
+        SelectSnapIn(0, "Thumbnails")
+    End Sub
+
+    Private Sub btnSnapInBookmarks_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnSnapInBookmarks.Click
+        SelectSnapIn(1, "Bookmarks")
+    End Sub
+
+    Private Sub btnSnapInSearch_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnSnapInSearch.Click
+        SelectSnapIn(2, "Search")
+    End Sub
+
+    Private Sub DefaultToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles DefaultToolStripMenuItem.Click
+        GdViewer1.MouseMode = ViewerMouseMode.MouseModeDefault
+        DefaultToolStripMenuItem.Checked = True
+        AreaSelectionToolStripMenuItem.Checked = False
+        PanToolStripMenuItem.Checked = False
+        AreaZoomingToolStripMenuItem.Checked = False
+        MagnifierToolStripMenuItem.Checked = False
+        GdViewer1.Focus()
+    End Sub
+
+    Private Sub AreaSelectionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles AreaSelectionToolStripMenuItem.Click
+        GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaSelection
+        DefaultToolStripMenuItem.Checked = False
+        AreaSelectionToolStripMenuItem.Checked = True
+        PanToolStripMenuItem.Checked = False
+        AreaZoomingToolStripMenuItem.Checked = False
+        MagnifierToolStripMenuItem.Checked = False
+        GdViewer1.Focus()
+    End Sub
+
+    Private Sub PanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles PanToolStripMenuItem.Click
+        GdViewer1.MouseMode = ViewerMouseMode.MouseModePan
+        DefaultToolStripMenuItem.Checked = False
+        AreaSelectionToolStripMenuItem.Checked = False
+        PanToolStripMenuItem.Checked = True
+        AreaZoomingToolStripMenuItem.Checked = False
+        MagnifierToolStripMenuItem.Checked = False
+        GdViewer1.Focus()
+    End Sub
+
+    Private Sub AreaZoomingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles AreaZoomingToolStripMenuItem.Click
+        GdViewer1.MouseMode = ViewerMouseMode.MouseModeAreaZooming
+        DefaultToolStripMenuItem.Checked = False
+        AreaSelectionToolStripMenuItem.Checked = False
+        PanToolStripMenuItem.Checked = False
+        AreaZoomingToolStripMenuItem.Checked = True
+        MagnifierToolStripMenuItem.Checked = False
+        GdViewer1.Focus()
+    End Sub
+
+    Private Sub MagnifierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles MagnifierToolStripMenuItem.Click
+        GdViewer1.MouseMode = ViewerMouseMode.MouseModeMagnifier
+        DefaultToolStripMenuItem.Checked = False
+        AreaSelectionToolStripMenuItem.Checked = False
+        PanToolStripMenuItem.Checked = False
+        AreaZoomingToolStripMenuItem.Checked = False
+        MagnifierToolStripMenuItem.Checked = True
+        GdViewer1.Focus()
+    End Sub
+
+    Private Sub SmallThumbnailsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles SmallThumbnailsToolStripMenuItem1.Click
+        ThumbnailEx1.ThumbnailSize = New Size(64, 64)
+        SmallThumbnailsToolStripMenuItem1.Checked = True
+        MediumThumbnailsToolStripMenuItem1.Checked = False
+        LargeThumbnailsToolStripMenuItem1.Checked = False
+    End Sub
+
+    Private Sub MediumThumbnailsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles MediumThumbnailsToolStripMenuItem1.Click
+        ThumbnailEx1.ThumbnailSize = New Size(128, 128)
+        SmallThumbnailsToolStripMenuItem1.Checked = False
+        MediumThumbnailsToolStripMenuItem1.Checked = True
+        LargeThumbnailsToolStripMenuItem1.Checked = False
+    End Sub
+
+    Private Sub LargeThumbnailsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles LargeThumbnailsToolStripMenuItem1.Click
+        ThumbnailEx1.ThumbnailSize = New Size(256, 256)
+        SmallThumbnailsToolStripMenuItem1.Checked = False
+        MediumThumbnailsToolStripMenuItem1.Checked = False
+        LargeThumbnailsToolStripMenuItem1.Checked = True
+    End Sub
+
+    Private Sub ToolStripButton1_Click_1(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnAdjustGamma.Click
+        pGamma.Visible = _toggleGamma
+        _toggleGamma = Not _toggleGamma
+    End Sub
+
+    Private Sub frmDocView_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        Try
+            ' Position und Größe speichern
+            My.Settings.frmViewerSize = Me.Size
+            My.Settings.frmViewerPosition = Me.Location
+            My.Settings.Save()
+        Catch ex As Exception
+            Logger.Error(ex)
+            Logger.Info("Error in Save FormLayout: " & ex.Message)
+        End Try
+    End Sub
+End Class

app/DD_Clipboard_Searcher/frmGdPictureOpen.designer.vb

@@ -0,0 +1,412 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmGdPictureOpen
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGdPictureOpen))
+        Me.pOpenFromFile = New System.Windows.Forms.Panel()
+        Me.btOpenFromFile = New System.Windows.Forms.Button()
+        Me.tbFile = New System.Windows.Forms.TextBox()
+        Me.rbOpenFromFile = New System.Windows.Forms.RadioButton()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.rbOpenFromHTTP = New System.Windows.Forms.RadioButton()
+        Me.pOpenFromHTTP = New System.Windows.Forms.Panel()
+        Me.tbOpenFromHTTP = New System.Windows.Forms.TextBox()
+        Me.rbOpenFromFTP = New System.Windows.Forms.RadioButton()
+        Me.pOpenFromFTP = New System.Windows.Forms.Panel()
+        Me.tbPassword = New System.Windows.Forms.TextBox()
+        Me.lblPassword = New System.Windows.Forms.Label()
+        Me.tbLogin = New System.Windows.Forms.TextBox()
+        Me.lblLogin = New System.Windows.Forms.Label()
+        Me.tbPath = New System.Windows.Forms.TextBox()
+        Me.lblPath = New System.Windows.Forms.Label()
+        Me.tbPort = New System.Windows.Forms.TextBox()
+        Me.lblPort = New System.Windows.Forms.Label()
+        Me.tbHost = New System.Windows.Forms.TextBox()
+        Me.lblHost = New System.Windows.Forms.Label()
+        Me.rbOpenFromClipboard = New System.Windows.Forms.RadioButton()
+        Me.btnCancel = New System.Windows.Forms.Button()
+        Me.btnOpen = New System.Windows.Forms.Button()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox3 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox4 = New System.Windows.Forms.PictureBox()
+        Me.pOpenFromFile.SuspendLayout()
+        Me.pOpenFromHTTP.SuspendLayout()
+        Me.pOpenFromFTP.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pOpenFromFile
+        '
+        Me.pOpenFromFile.AutoSize = True
+        Me.pOpenFromFile.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pOpenFromFile.Controls.Add(Me.btOpenFromFile)
+        Me.pOpenFromFile.Controls.Add(Me.tbFile)
+        Me.pOpenFromFile.Location = New System.Drawing.Point(17, 44)
+        Me.pOpenFromFile.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.pOpenFromFile.Name = "pOpenFromFile"
+        Me.pOpenFromFile.Size = New System.Drawing.Size(633, 33)
+        Me.pOpenFromFile.TabIndex = 0
+        '
+        'btOpenFromFile
+        '
+        Me.btOpenFromFile.Location = New System.Drawing.Point(529, 1)
+        Me.btOpenFromFile.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.btOpenFromFile.Name = "btOpenFromFile"
+        Me.btOpenFromFile.Size = New System.Drawing.Size(100, 28)
+        Me.btOpenFromFile.TabIndex = 1
+        Me.btOpenFromFile.Text = "Browse..."
+        Me.btOpenFromFile.UseVisualStyleBackColor = True
+        '
+        'tbFile
+        '
+        Me.tbFile.Location = New System.Drawing.Point(4, 4)
+        Me.tbFile.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.tbFile.Name = "tbFile"
+        Me.tbFile.ReadOnly = True
+        Me.tbFile.Size = New System.Drawing.Size(516, 22)
+        Me.tbFile.TabIndex = 0
+        '
+        'rbOpenFromFile
+        '
+        Me.rbOpenFromFile.AutoSize = True
+        Me.rbOpenFromFile.Location = New System.Drawing.Point(56, 16)
+        Me.rbOpenFromFile.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.rbOpenFromFile.Name = "rbOpenFromFile"
+        Me.rbOpenFromFile.Size = New System.Drawing.Size(118, 21)
+        Me.rbOpenFromFile.TabIndex = 1
+        Me.rbOpenFromFile.TabStop = True
+        Me.rbOpenFromFile.Text = "Open from file"
+        Me.rbOpenFromFile.UseVisualStyleBackColor = True
+        '
+        'rbOpenFromHTTP
+        '
+        Me.rbOpenFromHTTP.AutoSize = True
+        Me.rbOpenFromHTTP.Location = New System.Drawing.Point(56, 98)
+        Me.rbOpenFromHTTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.rbOpenFromHTTP.Name = "rbOpenFromHTTP"
+        Me.rbOpenFromHTTP.Size = New System.Drawing.Size(137, 21)
+        Me.rbOpenFromHTTP.TabIndex = 2
+        Me.rbOpenFromHTTP.TabStop = True
+        Me.rbOpenFromHTTP.Text = "Open from HTTP"
+        Me.rbOpenFromHTTP.UseVisualStyleBackColor = True
+        '
+        'pOpenFromHTTP
+        '
+        Me.pOpenFromHTTP.AutoSize = True
+        Me.pOpenFromHTTP.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pOpenFromHTTP.Controls.Add(Me.tbOpenFromHTTP)
+        Me.pOpenFromHTTP.Location = New System.Drawing.Point(21, 133)
+        Me.pOpenFromHTTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.pOpenFromHTTP.Name = "pOpenFromHTTP"
+        Me.pOpenFromHTTP.Size = New System.Drawing.Size(627, 26)
+        Me.pOpenFromHTTP.TabIndex = 3
+        '
+        'tbOpenFromHTTP
+        '
+        Me.tbOpenFromHTTP.Location = New System.Drawing.Point(0, 0)
+        Me.tbOpenFromHTTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.tbOpenFromHTTP.Name = "tbOpenFromHTTP"
+        Me.tbOpenFromHTTP.Size = New System.Drawing.Size(623, 22)
+        Me.tbOpenFromHTTP.TabIndex = 0
+        Me.tbOpenFromHTTP.Text = "http://download.bitsdujour.com/software/screenshot/orpalis-pdf-ocr-desktop-editio" &
+    "n-dbigw.png"
+        '
+        'rbOpenFromFTP
+        '
+        Me.rbOpenFromFTP.AutoSize = True
+        Me.rbOpenFromFTP.Location = New System.Drawing.Point(56, 180)
+        Me.rbOpenFromFTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.rbOpenFromFTP.Name = "rbOpenFromFTP"
+        Me.rbOpenFromFTP.Size = New System.Drawing.Size(126, 21)
+        Me.rbOpenFromFTP.TabIndex = 4
+        Me.rbOpenFromFTP.TabStop = True
+        Me.rbOpenFromFTP.Text = "Open from FTP"
+        Me.rbOpenFromFTP.UseVisualStyleBackColor = True
+        '
+        'pOpenFromFTP
+        '
+        Me.pOpenFromFTP.AutoSize = True
+        Me.pOpenFromFTP.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pOpenFromFTP.Controls.Add(Me.tbPassword)
+        Me.pOpenFromFTP.Controls.Add(Me.lblPassword)
+        Me.pOpenFromFTP.Controls.Add(Me.tbLogin)
+        Me.pOpenFromFTP.Controls.Add(Me.lblLogin)
+        Me.pOpenFromFTP.Controls.Add(Me.tbPath)
+        Me.pOpenFromFTP.Controls.Add(Me.lblPath)
+        Me.pOpenFromFTP.Controls.Add(Me.tbPort)
+        Me.pOpenFromFTP.Controls.Add(Me.lblPort)
+        Me.pOpenFromFTP.Controls.Add(Me.tbHost)
+        Me.pOpenFromFTP.Controls.Add(Me.lblHost)
+        Me.pOpenFromFTP.Location = New System.Drawing.Point(17, 208)
+        Me.pOpenFromFTP.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.pOpenFromFTP.Name = "pOpenFromFTP"
+        Me.pOpenFromFTP.Size = New System.Drawing.Size(632, 95)
+        Me.pOpenFromFTP.TabIndex = 5
+        '
+        'tbPassword
+        '
+        Me.tbPassword.Location = New System.Drawing.Point(392, 69)
+        Me.tbPassword.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.tbPassword.Name = "tbPassword"
+        Me.tbPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
+        Me.tbPassword.Size = New System.Drawing.Size(236, 22)
+        Me.tbPassword.TabIndex = 9
+        Me.tbPassword.Text = "Anonymous"
+        '
+        'lblPassword
+        '
+        Me.lblPassword.AutoSize = True
+        Me.lblPassword.Location = New System.Drawing.Point(313, 73)
+        Me.lblPassword.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblPassword.Name = "lblPassword"
+        Me.lblPassword.Size = New System.Drawing.Size(69, 17)
+        Me.lblPassword.TabIndex = 8
+        Me.lblPassword.Text = "Password"
+        '
+        'tbLogin
+        '
+        Me.tbLogin.Location = New System.Drawing.Point(52, 69)
+        Me.tbLogin.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.tbLogin.Name = "tbLogin"
+        Me.tbLogin.Size = New System.Drawing.Size(236, 22)
+        Me.tbLogin.TabIndex = 7
+        Me.tbLogin.Text = "Anonymous"
+        '
+        'lblLogin
+        '
+        Me.lblLogin.AutoSize = True
+        Me.lblLogin.Location = New System.Drawing.Point(5, 73)
+        Me.lblLogin.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblLogin.Name = "lblLogin"
+        Me.lblLogin.Size = New System.Drawing.Size(43, 17)
+        Me.lblLogin.TabIndex = 6
+        Me.lblLogin.Text = "Login"
+        '
+        'tbPath
+        '
+        Me.tbPath.Location = New System.Drawing.Point(52, 37)
+        Me.tbPath.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.tbPath.Name = "tbPath"
+        Me.tbPath.Size = New System.Drawing.Size(576, 22)
+        Me.tbPath.TabIndex = 5
+        Me.tbPath.Text = "/design/processor/datashts/325567.pdf"
+        '
+        'lblPath
+        '
+        Me.lblPath.AutoSize = True
+        Me.lblPath.Location = New System.Drawing.Point(5, 41)
+        Me.lblPath.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblPath.Name = "lblPath"
+        Me.lblPath.Size = New System.Drawing.Size(37, 17)
+        Me.lblPath.TabIndex = 4
+        Me.lblPath.Text = "Path"
+        '
+        'tbPort
+        '
+        Me.tbPort.Location = New System.Drawing.Point(559, 4)
+        Me.tbPort.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.tbPort.Name = "tbPort"
+        Me.tbPort.Size = New System.Drawing.Size(69, 22)
+        Me.tbPort.TabIndex = 3
+        Me.tbPort.Text = "21"
+        Me.tbPort.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'lblPort
+        '
+        Me.lblPort.AutoSize = True
+        Me.lblPort.Location = New System.Drawing.Point(516, 9)
+        Me.lblPort.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblPort.Name = "lblPort"
+        Me.lblPort.Size = New System.Drawing.Size(34, 17)
+        Me.lblPort.TabIndex = 2
+        Me.lblPort.Text = "Port"
+        '
+        'tbHost
+        '
+        Me.tbHost.Location = New System.Drawing.Point(52, 5)
+        Me.tbHost.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.tbHost.Name = "tbHost"
+        Me.tbHost.Size = New System.Drawing.Size(455, 22)
+        Me.tbHost.TabIndex = 1
+        Me.tbHost.Text = "ftp://download.intel.com"
+        '
+        'lblHost
+        '
+        Me.lblHost.AutoSize = True
+        Me.lblHost.Location = New System.Drawing.Point(4, 9)
+        Me.lblHost.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblHost.Name = "lblHost"
+        Me.lblHost.Size = New System.Drawing.Size(37, 17)
+        Me.lblHost.TabIndex = 0
+        Me.lblHost.Text = "Host"
+        '
+        'rbOpenFromClipboard
+        '
+        Me.rbOpenFromClipboard.AutoSize = True
+        Me.rbOpenFromClipboard.Location = New System.Drawing.Point(56, 331)
+        Me.rbOpenFromClipboard.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.rbOpenFromClipboard.Name = "rbOpenFromClipboard"
+        Me.rbOpenFromClipboard.Size = New System.Drawing.Size(158, 21)
+        Me.rbOpenFromClipboard.TabIndex = 6
+        Me.rbOpenFromClipboard.TabStop = True
+        Me.rbOpenFromClipboard.Text = "Open from clipboard"
+        Me.rbOpenFromClipboard.UseVisualStyleBackColor = True
+        '
+        'btnCancel
+        '
+        Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnCancel.Location = New System.Drawing.Point(551, 361)
+        Me.btnCancel.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.btnCancel.Name = "btnCancel"
+        Me.btnCancel.Size = New System.Drawing.Size(100, 28)
+        Me.btnCancel.TabIndex = 34
+        Me.btnCancel.Text = "Cancel"
+        Me.btnCancel.UseVisualStyleBackColor = True
+        '
+        'btnOpen
+        '
+        Me.btnOpen.Location = New System.Drawing.Point(444, 361)
+        Me.btnOpen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.btnOpen.Name = "btnOpen"
+        Me.btnOpen.Size = New System.Drawing.Size(99, 28)
+        Me.btnOpen.TabIndex = 33
+        Me.btnOpen.Text = "Open"
+        Me.btnOpen.UseVisualStyleBackColor = True
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+        Me.PictureBox1.Location = New System.Drawing.Point(21, 12)
+        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(20, 20)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+        Me.PictureBox1.TabIndex = 35
+        Me.PictureBox1.TabStop = False
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
+        Me.PictureBox2.Location = New System.Drawing.Point(21, 95)
+        Me.PictureBox2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(20, 20)
+        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+        Me.PictureBox2.TabIndex = 36
+        Me.PictureBox2.TabStop = False
+        '
+        'PictureBox3
+        '
+        Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image)
+        Me.PictureBox3.Location = New System.Drawing.Point(21, 176)
+        Me.PictureBox3.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.PictureBox3.Name = "PictureBox3"
+        Me.PictureBox3.Size = New System.Drawing.Size(20, 20)
+        Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+        Me.PictureBox3.TabIndex = 37
+        Me.PictureBox3.TabStop = False
+        '
+        'PictureBox4
+        '
+        Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image)
+        Me.PictureBox4.Location = New System.Drawing.Point(21, 327)
+        Me.PictureBox4.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.PictureBox4.Name = "PictureBox4"
+        Me.PictureBox4.Size = New System.Drawing.Size(20, 20)
+        Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+        Me.PictureBox4.TabIndex = 38
+        Me.PictureBox4.TabStop = False
+        '
+        'frmOpen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.CancelButton = Me.btnCancel
+        Me.ClientSize = New System.Drawing.Size(671, 407)
+        Me.Controls.Add(Me.PictureBox4)
+        Me.Controls.Add(Me.PictureBox3)
+        Me.Controls.Add(Me.PictureBox2)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.btnCancel)
+        Me.Controls.Add(Me.btnOpen)
+        Me.Controls.Add(Me.rbOpenFromClipboard)
+        Me.Controls.Add(Me.pOpenFromFTP)
+        Me.Controls.Add(Me.rbOpenFromFTP)
+        Me.Controls.Add(Me.pOpenFromHTTP)
+        Me.Controls.Add(Me.rbOpenFromHTTP)
+        Me.Controls.Add(Me.rbOpenFromFile)
+        Me.Controls.Add(Me.pOpenFromFile)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmOpen"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Open"
+        Me.pOpenFromFile.ResumeLayout(False)
+        Me.pOpenFromFile.PerformLayout()
+        Me.pOpenFromHTTP.ResumeLayout(False)
+        Me.pOpenFromHTTP.PerformLayout()
+        Me.pOpenFromFTP.ResumeLayout(False)
+        Me.pOpenFromFTP.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents pOpenFromFile As System.Windows.Forms.Panel
+    Friend WithEvents btOpenFromFile As System.Windows.Forms.Button
+    Friend WithEvents tbFile As System.Windows.Forms.TextBox
+    Friend WithEvents rbOpenFromFile As System.Windows.Forms.RadioButton
+    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
+    Friend WithEvents rbOpenFromHTTP As System.Windows.Forms.RadioButton
+    Friend WithEvents pOpenFromHTTP As System.Windows.Forms.Panel
+    Friend WithEvents tbOpenFromHTTP As System.Windows.Forms.TextBox
+    Friend WithEvents rbOpenFromFTP As System.Windows.Forms.RadioButton
+    Friend WithEvents pOpenFromFTP As System.Windows.Forms.Panel
+    Friend WithEvents tbPort As System.Windows.Forms.TextBox
+    Friend WithEvents lblPort As System.Windows.Forms.Label
+    Friend WithEvents tbHost As System.Windows.Forms.TextBox
+    Friend WithEvents lblHost As System.Windows.Forms.Label
+    Friend WithEvents tbPath As System.Windows.Forms.TextBox
+    Friend WithEvents lblPath As System.Windows.Forms.Label
+    Friend WithEvents tbLogin As System.Windows.Forms.TextBox
+    Friend WithEvents lblLogin As System.Windows.Forms.Label
+    Friend WithEvents tbPassword As System.Windows.Forms.TextBox
+    Friend WithEvents lblPassword As System.Windows.Forms.Label
+    Friend WithEvents rbOpenFromClipboard As System.Windows.Forms.RadioButton
+    Friend WithEvents btnCancel As System.Windows.Forms.Button
+    Friend WithEvents btnOpen As System.Windows.Forms.Button
+    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
+    Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
+    Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
+End Class

app/DD_Clipboard_Searcher/frmGdPictureOpen.vb

@@ -0,0 +1,131 @@
+Option Strict On
+Option Explicit On
+
+Imports System.IO
+Imports GdPicture14
+
+Public Class frmGdPictureOpen
+
+    Private ReadOnly m_owner As GdViewer
+
+    Public Sub New(ByVal owner As GdViewer)
+        InitializeComponent()
+        m_owner = owner
+    End Sub
+
+    Private Sub UpdateUi()
+        If rbOpenFromFile.Checked Then
+            pOpenFromFile.Enabled = True
+            pOpenFromHTTP.Enabled = False
+            pOpenFromFTP.Enabled = False
+        ElseIf rbOpenFromHTTP.Checked Then
+            pOpenFromFile.Enabled = False
+            pOpenFromHTTP.Enabled = True
+            pOpenFromFTP.Enabled = False
+        ElseIf rbOpenFromFTP.Checked Then
+            pOpenFromFile.Enabled = False
+            pOpenFromHTTP.Enabled = False
+            pOpenFromFTP.Enabled = True
+        ElseIf rbOpenFromClipboard.Checked Then
+            pOpenFromFile.Enabled = False
+            pOpenFromHTTP.Enabled = False
+            pOpenFromFTP.Enabled = False
+        End If
+    End Sub
+
+    Private Sub frmOpen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        If Clipboard.ContainsImage() Then
+            rbOpenFromClipboard.Checked = True
+        Else
+            rbOpenFromFile.Checked = True
+        End If
+    End Sub
+
+    Private Sub rbOpenFromFile_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOpenFromFile.CheckedChanged
+        If rbOpenFromFile.Checked Then
+            updateUI()
+        End If
+    End Sub
+
+    Private Sub rbOpenFromFTP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOpenFromFTP.CheckedChanged
+        If rbOpenFromFTP.Checked Then
+            updateUI()
+        End If
+    End Sub
+
+    Private Sub rbOpenFromHTTP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOpenFromHTTP.CheckedChanged
+        If rbOpenFromHTTP.Checked Then
+            updateUI()
+        End If
+    End Sub
+
+    Private Sub rbOpenFromClipboard_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOpenFromClipboard.CheckedChanged
+        If rbOpenFromClipboard.Checked Then
+            updateUI()
+        End If
+    End Sub
+
+    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
+        Dim ok As Boolean = False
+        If rbOpenFromFile.Checked Then
+            If Not String.IsNullOrWhiteSpace(tbFile.Text) And File.Exists(tbFile.Text) Then
+                Dim status As GdPictureStatus = m_owner.DisplayFromFile(tbFile.Text)
+                If status = GdPictureStatus.OK Then
+                    ok = True
+                Else
+                    MessageBox.Show("Error during file loading: " + status.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                End If
+            Else
+                MessageBox.Show("You must select a file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                Return
+            End If
+        ElseIf rbOpenFromFTP.Checked Then
+            Dim port As Integer
+            If Not String.IsNullOrWhiteSpace(tbHost.Text) And Not String.IsNullOrWhiteSpace(tbPort.Text) _
+                And Integer.TryParse(tbPort.Text, port) And Not String.IsNullOrWhiteSpace(tbPath.Text) Then
+                Dim status As GdPictureStatus = m_owner.DisplayFromFTP(tbHost.Text, tbPath.Text, tbLogin.Text, tbPassword.Text, port)
+                If status = GdPictureStatus.OK Then
+                    ok = True
+                Else
+                    MessageBox.Show("FTP Error: " + m_owner.GetLastTransferError(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                End If
+            Else
+                MessageBox.Show("You must enter all data for FTP connection", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            End If
+        ElseIf rbOpenFromHTTP.Checked Then
+            Dim uri As Uri = Nothing
+            If Not String.IsNullOrWhiteSpace(tbOpenFromHTTP.Text) And System.Uri.TryCreate(tbOpenFromHTTP.Text, UriKind.Absolute, uri) Then
+                Dim status As GdPictureStatus = m_owner.DisplayFromHTTP(uri.ToString(), "", "")
+                If status = GdPictureStatus.OK Then
+                    ok = True
+                Else
+                    MessageBox.Show("HTTP Error: " + m_owner.GetLastTransferError(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                End If
+            Else
+                MessageBox.Show("You must specify an URI", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            End If
+        ElseIf rbOpenFromClipboard.Checked Then
+            If Clipboard.ContainsImage() Then
+                Dim status As GdPictureStatus = m_owner.DisplayFromClipboard()
+                If status = GdPictureStatus.OK Then
+                    ok = True
+                Else
+                    MessageBox.Show("Error: " + status.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                End If
+            Else
+                MessageBox.Show("There is no image in clipboard", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            End If
+        End If
+        If ok Then
+            Me.Close()
+        End If
+    End Sub
+
+    Private Sub btOpenFromFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOpenFromFile.Click
+        Dim result As DialogResult = OpenFileDialog1.ShowDialog()
+
+        If (result = DialogResult.OK) Then
+            tbFile.Text = OpenFileDialog1.FileName
+        End If
+    End Sub
+End Class

app/DD_Clipboard_Searcher/frmPrint.designer.vb

@@ -0,0 +1,353 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmPrint
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPrint))
+        Me.cmbPrintAlignment = New System.Windows.Forms.ComboBox()
+        Me.chkCollate = New System.Windows.Forms.CheckBox()
+        Me.rbPageRangeSelection = New System.Windows.Forms.RadioButton()
+        Me.rbPageRangeAll = New System.Windows.Forms.RadioButton()
+        Me.txtPageRangeEnd = New System.Windows.Forms.TextBox()
+        Me.lblPageRangeTo = New System.Windows.Forms.Label()
+        Me.txtPageRangeStart = New System.Windows.Forms.TextBox()
+        Me.rbPageRangePages = New System.Windows.Forms.RadioButton()
+        Me.lblPrintAlignment = New System.Windows.Forms.Label()
+        Me.grpPageRange = New System.Windows.Forms.GroupBox()
+        Me.rbPageRangeCurrent = New System.Windows.Forms.RadioButton()
+        Me.rbOrientationLandscape = New System.Windows.Forms.RadioButton()
+        Me.rbOrientationPortrait = New System.Windows.Forms.RadioButton()
+        Me.rbOrientationAutomatic = New System.Windows.Forms.RadioButton()
+        Me.cmbPrintSize = New System.Windows.Forms.ComboBox()
+        Me.btnPrinterProperties = New System.Windows.Forms.Button()
+        Me.lblPrintSize = New System.Windows.Forms.Label()
+        Me.cmbPrinterList = New System.Windows.Forms.ComboBox()
+        Me.lblCopies = New System.Windows.Forms.Label()
+        Me.lblPrinter = New System.Windows.Forms.Label()
+        Me.btnCancel = New System.Windows.Forms.Button()
+        Me.btnPrint = New System.Windows.Forms.Button()
+        Me.grpOrientation = New System.Windows.Forms.GroupBox()
+        Me.numCopies = New System.Windows.Forms.NumericUpDown()
+        Me.grpPageRange.SuspendLayout()
+        Me.grpOrientation.SuspendLayout()
+        CType(Me.numCopies, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'cmbPrintAlignment
+        '
+        Me.cmbPrintAlignment.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cmbPrintAlignment.FormattingEnabled = True
+        Me.cmbPrintAlignment.Location = New System.Drawing.Point(138, 93)
+        Me.cmbPrintAlignment.Name = "cmbPrintAlignment"
+        Me.cmbPrintAlignment.Size = New System.Drawing.Size(198, 21)
+        Me.cmbPrintAlignment.TabIndex = 24
+        '
+        'chkCollate
+        '
+        Me.chkCollate.AutoSize = True
+        Me.chkCollate.Location = New System.Drawing.Point(205, 43)
+        Me.chkCollate.Name = "chkCollate"
+        Me.chkCollate.Size = New System.Drawing.Size(58, 17)
+        Me.chkCollate.TabIndex = 22
+        Me.chkCollate.Text = "Collate"
+        Me.chkCollate.UseVisualStyleBackColor = True
+        '
+        'rbPageRangeSelection
+        '
+        Me.rbPageRangeSelection.AutoSize = True
+        Me.rbPageRangeSelection.Enabled = False
+        Me.rbPageRangeSelection.Location = New System.Drawing.Point(13, 45)
+        Me.rbPageRangeSelection.Name = "rbPageRangeSelection"
+        Me.rbPageRangeSelection.Size = New System.Drawing.Size(100, 17)
+        Me.rbPageRangeSelection.TabIndex = 13
+        Me.rbPageRangeSelection.TabStop = True
+        Me.rbPageRangeSelection.Text = "Checked pages"
+        Me.rbPageRangeSelection.UseVisualStyleBackColor = True
+        '
+        'rbPageRangeAll
+        '
+        Me.rbPageRangeAll.AutoSize = True
+        Me.rbPageRangeAll.Checked = True
+        Me.rbPageRangeAll.Location = New System.Drawing.Point(13, 21)
+        Me.rbPageRangeAll.Name = "rbPageRangeAll"
+        Me.rbPageRangeAll.Size = New System.Drawing.Size(36, 17)
+        Me.rbPageRangeAll.TabIndex = 12
+        Me.rbPageRangeAll.TabStop = True
+        Me.rbPageRangeAll.Text = "All"
+        Me.rbPageRangeAll.UseVisualStyleBackColor = True
+        '
+        'txtPageRangeEnd
+        '
+        Me.txtPageRangeEnd.Location = New System.Drawing.Point(169, 68)
+        Me.txtPageRangeEnd.Name = "txtPageRangeEnd"
+        Me.txtPageRangeEnd.Size = New System.Drawing.Size(42, 20)
+        Me.txtPageRangeEnd.TabIndex = 17
+        '
+        'lblPageRangeTo
+        '
+        Me.lblPageRangeTo.AutoSize = True
+        Me.lblPageRangeTo.Location = New System.Drawing.Point(146, 73)
+        Me.lblPageRangeTo.Name = "lblPageRangeTo"
+        Me.lblPageRangeTo.Size = New System.Drawing.Size(16, 13)
+        Me.lblPageRangeTo.TabIndex = 16
+        Me.lblPageRangeTo.Text = "to"
+        Me.lblPageRangeTo.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        '
+        'txtPageRangeStart
+        '
+        Me.txtPageRangeStart.Location = New System.Drawing.Point(98, 68)
+        Me.txtPageRangeStart.Name = "txtPageRangeStart"
+        Me.txtPageRangeStart.Size = New System.Drawing.Size(42, 20)
+        Me.txtPageRangeStart.TabIndex = 16
+        '
+        'rbPageRangePages
+        '
+        Me.rbPageRangePages.AutoSize = True
+        Me.rbPageRangePages.Location = New System.Drawing.Point(13, 69)
+        Me.rbPageRangePages.Name = "rbPageRangePages"
+        Me.rbPageRangePages.Size = New System.Drawing.Size(78, 17)
+        Me.rbPageRangePages.TabIndex = 15
+        Me.rbPageRangePages.TabStop = True
+        Me.rbPageRangePages.Text = "Pages from"
+        Me.rbPageRangePages.UseVisualStyleBackColor = True
+        '
+        'lblPrintAlignment
+        '
+        Me.lblPrintAlignment.AutoSize = True
+        Me.lblPrintAlignment.Location = New System.Drawing.Point(10, 96)
+        Me.lblPrintAlignment.Name = "lblPrintAlignment"
+        Me.lblPrintAlignment.Size = New System.Drawing.Size(53, 13)
+        Me.lblPrintAlignment.TabIndex = 31
+        Me.lblPrintAlignment.Text = "Alignment"
+        '
+        'grpPageRange
+        '
+        Me.grpPageRange.Controls.Add(Me.txtPageRangeEnd)
+        Me.grpPageRange.Controls.Add(Me.lblPageRangeTo)
+        Me.grpPageRange.Controls.Add(Me.txtPageRangeStart)
+        Me.grpPageRange.Controls.Add(Me.rbPageRangePages)
+        Me.grpPageRange.Controls.Add(Me.rbPageRangeCurrent)
+        Me.grpPageRange.Controls.Add(Me.rbPageRangeSelection)
+        Me.grpPageRange.Controls.Add(Me.rbPageRangeAll)
+        Me.grpPageRange.Location = New System.Drawing.Point(234, 120)
+        Me.grpPageRange.Name = "grpPageRange"
+        Me.grpPageRange.Size = New System.Drawing.Size(288, 100)
+        Me.grpPageRange.TabIndex = 28
+        Me.grpPageRange.TabStop = False
+        Me.grpPageRange.Text = "Page range"
+        '
+        'rbPageRangeCurrent
+        '
+        Me.rbPageRangeCurrent.AutoSize = True
+        Me.rbPageRangeCurrent.Location = New System.Drawing.Point(149, 21)
+        Me.rbPageRangeCurrent.Name = "rbPageRangeCurrent"
+        Me.rbPageRangeCurrent.Size = New System.Drawing.Size(86, 17)
+        Me.rbPageRangeCurrent.TabIndex = 14
+        Me.rbPageRangeCurrent.TabStop = True
+        Me.rbPageRangeCurrent.Text = "Current page"
+        Me.rbPageRangeCurrent.UseVisualStyleBackColor = True
+        '
+        'rbOrientationLandscape
+        '
+        Me.rbOrientationLandscape.AutoSize = True
+        Me.rbOrientationLandscape.Location = New System.Drawing.Point(13, 68)
+        Me.rbOrientationLandscape.Name = "rbOrientationLandscape"
+        Me.rbOrientationLandscape.Size = New System.Drawing.Size(78, 17)
+        Me.rbOrientationLandscape.TabIndex = 10
+        Me.rbOrientationLandscape.Text = "Landscape"
+        Me.rbOrientationLandscape.UseVisualStyleBackColor = True
+        '
+        'rbOrientationPortrait
+        '
+        Me.rbOrientationPortrait.AutoSize = True
+        Me.rbOrientationPortrait.Location = New System.Drawing.Point(13, 45)
+        Me.rbOrientationPortrait.Name = "rbOrientationPortrait"
+        Me.rbOrientationPortrait.Size = New System.Drawing.Size(58, 17)
+        Me.rbOrientationPortrait.TabIndex = 9
+        Me.rbOrientationPortrait.Text = "Portrait"
+        Me.rbOrientationPortrait.UseVisualStyleBackColor = True
+        '
+        'rbOrientationAutomatic
+        '
+        Me.rbOrientationAutomatic.AutoSize = True
+        Me.rbOrientationAutomatic.Checked = True
+        Me.rbOrientationAutomatic.Location = New System.Drawing.Point(13, 22)
+        Me.rbOrientationAutomatic.Name = "rbOrientationAutomatic"
+        Me.rbOrientationAutomatic.Size = New System.Drawing.Size(72, 17)
+        Me.rbOrientationAutomatic.TabIndex = 8
+        Me.rbOrientationAutomatic.TabStop = True
+        Me.rbOrientationAutomatic.Text = "Automatic"
+        Me.rbOrientationAutomatic.UseVisualStyleBackColor = True
+        '
+        'cmbPrintSize
+        '
+        Me.cmbPrintSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cmbPrintSize.FormattingEnabled = True
+        Me.cmbPrintSize.Location = New System.Drawing.Point(138, 66)
+        Me.cmbPrintSize.Name = "cmbPrintSize"
+        Me.cmbPrintSize.Size = New System.Drawing.Size(198, 21)
+        Me.cmbPrintSize.TabIndex = 23
+        '
+        'btnPrinterProperties
+        '
+        Me.btnPrinterProperties.Location = New System.Drawing.Point(415, 11)
+        Me.btnPrinterProperties.Name = "btnPrinterProperties"
+        Me.btnPrinterProperties.Size = New System.Drawing.Size(107, 23)
+        Me.btnPrinterProperties.TabIndex = 21
+        Me.btnPrinterProperties.Text = "Properties"
+        Me.btnPrinterProperties.UseVisualStyleBackColor = True
+        '
+        'lblPrintSize
+        '
+        Me.lblPrintSize.AutoSize = True
+        Me.lblPrintSize.Location = New System.Drawing.Point(10, 69)
+        Me.lblPrintSize.Name = "lblPrintSize"
+        Me.lblPrintSize.Size = New System.Drawing.Size(49, 13)
+        Me.lblPrintSize.TabIndex = 29
+        Me.lblPrintSize.Text = "Print size"
+        '
+        'cmbPrinterList
+        '
+        Me.cmbPrinterList.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cmbPrinterList.FormattingEnabled = True
+        Me.cmbPrinterList.Location = New System.Drawing.Point(138, 12)
+        Me.cmbPrinterList.Name = "cmbPrinterList"
+        Me.cmbPrinterList.Size = New System.Drawing.Size(271, 21)
+        Me.cmbPrinterList.TabIndex = 20
+        '
+        'lblCopies
+        '
+        Me.lblCopies.AutoSize = True
+        Me.lblCopies.Location = New System.Drawing.Point(10, 41)
+        Me.lblCopies.Name = "lblCopies"
+        Me.lblCopies.Size = New System.Drawing.Size(39, 13)
+        Me.lblCopies.TabIndex = 27
+        Me.lblCopies.Text = "Copies"
+        '
+        'lblPrinter
+        '
+        Me.lblPrinter.AutoSize = True
+        Me.lblPrinter.Location = New System.Drawing.Point(10, 15)
+        Me.lblPrinter.Name = "lblPrinter"
+        Me.lblPrinter.Size = New System.Drawing.Size(37, 13)
+        Me.lblPrinter.TabIndex = 25
+        Me.lblPrinter.Text = "Printer"
+        '
+        'btnCancel
+        '
+        Me.btnCancel.Location = New System.Drawing.Point(447, 236)
+        Me.btnCancel.Name = "btnCancel"
+        Me.btnCancel.Size = New System.Drawing.Size(75, 23)
+        Me.btnCancel.TabIndex = 32
+        Me.btnCancel.Text = "Cancel"
+        Me.btnCancel.UseVisualStyleBackColor = True
+        '
+        'btnPrint
+        '
+        Me.btnPrint.Location = New System.Drawing.Point(363, 236)
+        Me.btnPrint.Name = "btnPrint"
+        Me.btnPrint.Size = New System.Drawing.Size(74, 23)
+        Me.btnPrint.TabIndex = 30
+        Me.btnPrint.Text = "Print"
+        Me.btnPrint.UseVisualStyleBackColor = True
+        '
+        'grpOrientation
+        '
+        Me.grpOrientation.Controls.Add(Me.rbOrientationLandscape)
+        Me.grpOrientation.Controls.Add(Me.rbOrientationPortrait)
+        Me.grpOrientation.Controls.Add(Me.rbOrientationAutomatic)
+        Me.grpOrientation.Location = New System.Drawing.Point(13, 120)
+        Me.grpOrientation.Name = "grpOrientation"
+        Me.grpOrientation.Size = New System.Drawing.Size(200, 100)
+        Me.grpOrientation.TabIndex = 26
+        Me.grpOrientation.TabStop = False
+        Me.grpOrientation.Text = "Orientation"
+        '
+        'numCopies
+        '
+        Me.numCopies.Location = New System.Drawing.Point(138, 39)
+        Me.numCopies.Name = "numCopies"
+        Me.numCopies.Size = New System.Drawing.Size(61, 20)
+        Me.numCopies.TabIndex = 33
+        Me.numCopies.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.numCopies.Value = New Decimal(New Integer() {1, 0, 0, 0})
+        '
+        'frmPrint
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(535, 273)
+        Me.Controls.Add(Me.numCopies)
+        Me.Controls.Add(Me.cmbPrintAlignment)
+        Me.Controls.Add(Me.chkCollate)
+        Me.Controls.Add(Me.lblPrintAlignment)
+        Me.Controls.Add(Me.grpPageRange)
+        Me.Controls.Add(Me.cmbPrintSize)
+        Me.Controls.Add(Me.btnPrinterProperties)
+        Me.Controls.Add(Me.lblPrintSize)
+        Me.Controls.Add(Me.cmbPrinterList)
+        Me.Controls.Add(Me.lblCopies)
+        Me.Controls.Add(Me.lblPrinter)
+        Me.Controls.Add(Me.btnCancel)
+        Me.Controls.Add(Me.btnPrint)
+        Me.Controls.Add(Me.grpOrientation)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmPrint"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Print"
+        Me.grpPageRange.ResumeLayout(False)
+        Me.grpPageRange.PerformLayout()
+        Me.grpOrientation.ResumeLayout(False)
+        Me.grpOrientation.PerformLayout()
+        CType(Me.numCopies, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents cmbPrintAlignment As System.Windows.Forms.ComboBox
+    Friend WithEvents chkCollate As System.Windows.Forms.CheckBox
+    Friend WithEvents rbPageRangeSelection As System.Windows.Forms.RadioButton
+    Friend WithEvents rbPageRangeAll As System.Windows.Forms.RadioButton
+    Friend WithEvents txtPageRangeEnd As System.Windows.Forms.TextBox
+    Friend WithEvents lblPageRangeTo As System.Windows.Forms.Label
+    Friend WithEvents txtPageRangeStart As System.Windows.Forms.TextBox
+    Friend WithEvents rbPageRangePages As System.Windows.Forms.RadioButton
+    Friend WithEvents lblPrintAlignment As System.Windows.Forms.Label
+    Friend WithEvents grpPageRange As System.Windows.Forms.GroupBox
+    Friend WithEvents rbPageRangeCurrent As System.Windows.Forms.RadioButton
+    Friend WithEvents rbOrientationLandscape As System.Windows.Forms.RadioButton
+    Friend WithEvents rbOrientationPortrait As System.Windows.Forms.RadioButton
+    Friend WithEvents rbOrientationAutomatic As System.Windows.Forms.RadioButton
+    Friend WithEvents cmbPrintSize As System.Windows.Forms.ComboBox
+    Friend WithEvents btnPrinterProperties As System.Windows.Forms.Button
+    Friend WithEvents lblPrintSize As System.Windows.Forms.Label
+    Friend WithEvents cmbPrinterList As System.Windows.Forms.ComboBox
+    Friend WithEvents lblCopies As System.Windows.Forms.Label
+    Friend WithEvents lblPrinter As System.Windows.Forms.Label
+    Friend WithEvents btnCancel As System.Windows.Forms.Button
+    Friend WithEvents btnPrint As System.Windows.Forms.Button
+    Friend WithEvents grpOrientation As System.Windows.Forms.GroupBox
+    Friend WithEvents numCopies As System.Windows.Forms.NumericUpDown
+End Class

app/DD_Clipboard_Searcher/frmPrint.vb

@@ -0,0 +1,163 @@
+Option Explicit On
+Option Infer On
+Option Strict On
+
+Imports System
+Imports GdPicture14
+
+Public Class frmPrint
+
+    Enum PrintOrientation
+        AutoDetection
+        Portrait
+        Paysage
+    End Enum
+
+    Enum PagesToPrint
+        All
+        Selection
+        Current
+        Range
+    End Enum
+
+    Public Structure PrintSettings
+        Public Printer As String
+        Public Copies As Short
+        Public Collate As Boolean
+        Public PrintSize As PrintSizeOption
+        Public PrintAlignment As PrintAlignment
+        Public Orientation As PrintOrientation
+        Public PagesToPrint As PagesToPrint
+        Public PageRange As String
+    End Structure
+
+    Private m_printSettings As PrintSettings
+    Private ReadOnly m_owner As GdViewer
+
+    Public ReadOnly Property printConfiguration() As PrintSettings
+        Get
+            Return m_printSettings
+        End Get
+    End Property
+
+
+    Private ReadOnly m_isSelectionPartial As Boolean
+    Private ReadOnly m_isEmptySelection As Boolean
+
+    Public Sub New(ByVal owner As GdViewer)
+        InitializeComponent()
+        m_owner = owner
+    End Sub
+
+    Private Sub frmPrint_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
+        cmbPrinterList.Items.Clear()
+        For i As Integer = 1 To m_owner.PrintGetPrintersCount()
+            Dim printerName As String = m_owner.PrintGetPrinterName(i)
+            cmbPrinterList.Items.Add(printerName)
+            If printerName = m_owner.PrintGetActivePrinter() Then
+                cmbPrinterList.SelectedIndex = cmbPrinterList.Items.IndexOf(printerName)
+            End If
+        Next i
+
+        cmbPrintSize.Items.Add("Actual size") '0 = PrintSizeOptionActual
+        cmbPrintSize.Items.Add("Fit to page") '1 = PrintSizeOptionFit, default
+        cmbPrintSize.Items.Add("Shrink oversized pages") '2 = PrintSizeOptionShrinkOversized
+        cmbPrintSize.SelectedIndex = 2
+
+        cmbPrintAlignment.Items.Add("Middle left") '0 = PrintAlignmentMiddleLeft
+        cmbPrintAlignment.Items.Add("Middle right") '1 = PrintAlignmentMiddleRight
+        cmbPrintAlignment.Items.Add("Middle center") '2 = PrintAlignmentMiddleCenter
+        cmbPrintAlignment.Items.Add("Default") '3 = PrintAlignmentDefault
+        cmbPrintAlignment.Items.Add("Top left") '4 = PrintAlignmentTopLeft
+        cmbPrintAlignment.Items.Add("Top right") '5 = PrintAlignmentTopRight
+        cmbPrintAlignment.Items.Add("Top center") '6 = PrintAlignmentTopCenter
+        cmbPrintAlignment.Items.Add("Bottom left") '7 = PrintAlignmentBottomLeft
+        cmbPrintAlignment.Items.Add("Bottom right") '8 = PrintAlignmentBottomRight
+        cmbPrintAlignment.Items.Add("Bottom center") '9 = PrintAlignmentBottomCenter
+        cmbPrintAlignment.SelectedIndex = 2
+
+        If m_isEmptySelection Then
+            rbPageRangeSelection.Enabled = False
+        Else
+            If m_isSelectionPartial Then
+                rbPageRangeSelection.Checked = True
+            End If
+        End If
+        txtPageRangeStart.Enabled = False
+        txtPageRangeEnd.Enabled = False
+        txtPageRangeStart.Text = "1"
+        txtPageRangeEnd.Text = m_owner.PageCount.ToString()
+
+        btnPrint.DialogResult = Windows.Forms.DialogResult.OK
+        btnCancel.DialogResult = Windows.Forms.DialogResult.Cancel
+    End Sub
+
+    Private Sub btnPrinterProperties_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPrinterProperties.Click
+        Dim status As GdPictureStatus = m_owner.PrintShowPrinterSettingsDialog(Me.Handle)
+        If status <> GdPictureStatus.OK Then
+            'todo: handle error
+        End If
+    End Sub
+
+    Private Sub cmbPrinterList_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cmbPrinterList.SelectedIndexChanged
+        m_owner.PrintSetActivePrinter(cmbPrinterList.Text)
+    End Sub
+
+    Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCancel.Click
+        Me.Close()
+    End Sub
+
+    Private Sub rbPageRangeAll_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rbPageRangeAll.CheckedChanged
+        rbPageRangeGeneric_CheckedChanged()
+    End Sub
+
+    Private Sub rbPageRangeSelection_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rbPageRangeSelection.CheckedChanged
+        rbPageRangeGeneric_CheckedChanged()
+    End Sub
+
+    Private Sub rbPageRangeCurrent_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rbPageRangeCurrent.CheckedChanged
+        rbPageRangeGeneric_CheckedChanged()
+    End Sub
+
+    Private Sub rbPageRangePages_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rbPageRangePages.CheckedChanged
+        rbPageRangeGeneric_CheckedChanged()
+    End Sub
+
+    Private Sub rbPageRangeGeneric_CheckedChanged()
+        If rbPageRangePages.Checked Then
+            txtPageRangeStart.Enabled = True
+            txtPageRangeEnd.Enabled = True
+        Else
+            txtPageRangeStart.Enabled = False
+            txtPageRangeEnd.Enabled = False
+        End If
+    End Sub
+
+    Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPrint.Click
+        m_printSettings.Printer = cmbPrinterList.Text
+        m_printSettings.Copies = CShort(numCopies.Value)
+        m_printSettings.Collate = chkCollate.Checked
+        m_printSettings.PrintSize = CType(cmbPrintSize.SelectedIndex, PrintSizeOption)
+        m_printSettings.PrintAlignment = CType(cmbPrintAlignment.SelectedIndex, PrintAlignment)
+
+        If rbOrientationAutomatic.Checked Then
+            m_printSettings.Orientation = PrintOrientation.AutoDetection
+        ElseIf rbOrientationPortrait.Checked Then
+            m_printSettings.Orientation = PrintOrientation.Portrait
+        ElseIf rbOrientationLandscape.Checked Then
+            m_printSettings.Orientation = PrintOrientation.Paysage
+        End If
+
+        If rbPageRangeAll.Checked Then
+            m_printSettings.PagesToPrint = PagesToPrint.All
+        ElseIf rbPageRangeSelection.Checked Then
+            m_printSettings.PagesToPrint = PagesToPrint.Selection
+        ElseIf rbPageRangeCurrent.Checked Then
+            m_printSettings.PagesToPrint = PagesToPrint.Current
+        ElseIf rbPageRangePages.Checked Then
+            m_printSettings.PagesToPrint = PagesToPrint.Range
+            m_printSettings.PageRange = txtPageRangeStart.Text & "-" & txtPageRangeEnd.Text
+        End If
+    End Sub
+
+End Class

app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb

@@ -0,0 +1,120 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmProfileMatch
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
+        Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Calibri", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(39, 15)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(489, 19)
+        Me.Label1.TabIndex = 2
+        Me.Label1.Text = "Clipboard Watcher hat mehr als einen Match für Ihre Suche gefunden:"
+        '
+        'GridControl1
+        '
+        Me.GridControl1.Location = New System.Drawing.Point(27, 48)
+        Me.GridControl1.MainView = Me.TileView1
+        Me.GridControl1.Name = "GridControl1"
+        Me.GridControl1.Size = New System.Drawing.Size(621, 208)
+        Me.GridControl1.TabIndex = 3
+        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1})
+        '
+        'TileView1
+        '
+        Me.TileView1.Appearance.ItemPressed.BackColor = System.Drawing.Color.Silver
+        Me.TileView1.Appearance.ItemPressed.Options.UseBackColor = True
+        Me.TileView1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
+        Me.TileView1.GridControl = Me.GridControl1
+        Me.TileView1.Name = "TileView1"
+        Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(200, 80)
+        Me.TileView1.OptionsTiles.LayoutMode = DevExpress.XtraGrid.Views.Tile.TileViewLayoutMode.List
+        Me.TileView1.OptionsView.BackgroundColorMode = DevExpress.XtraGrid.Views.Tile.BackgroundColorMode.Skin
+        Me.TileView1.ViewCaption = "Clipboard Watcher hat mehr als einen Match für Ihre Suche gefunden:"
+        '
+        'Button2
+        '
+        Me.Button2.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.Location = New System.Drawing.Point(347, 271)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(301, 53)
+        Me.Button2.TabIndex = 4
+        Me.Button2.Text = "Abbruch"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.SystemColors.Control
+        Me.Button1.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ID_SITE_PUBLISH_ALL
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(27, 271)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(300, 53)
+        Me.Button1.TabIndex = 5
+        Me.Button1.Text = "Alle Ergebnisse anzeigen"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'frmProfileMatch
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.SystemColors.Control
+        Me.ClientSize = New System.Drawing.Size(675, 344)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.GridControl1)
+        Me.Controls.Add(Me.Label1)
+        Me.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmProfileMatch"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Profile Match"
+        Me.TopMost = True
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Label1 As Label
+    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents Button2 As Button
+    Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView
+    Friend WithEvents Button1 As Button
+End Class

app/DD_Clipboard_Searcher/frmProfileMatch.resx

@@ -0,0 +1,377 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAMAMDAAAAEAIACoJQAANgAAACAgAAABACAAqBAAAN4lAAAQEAAAAQAgAGgEAACGNgAAKAAAADAA
+        AABgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAgAAAAdAAAAJAAA
+        AB0AAAATAAAACgAAAAMAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQBk
+        hjEAAABPAAAAfCxCSagwSVGYAAAAQwAAAC4AAAAfAAAAFgAAAA0AAAAFAAAAAQAAAAEAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
+        /wAAAAAAAAAAAQCPvpkAlcf1BYay7hFvjukdWGzaJjk/wy0tLbMyMjKjL0dPnAAAAEoAAAA0AAAAIwAA
+        ABkAAAAQAAAABwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAD///8A////AP///wAAAAAAAAAAAQCMuoxAs9n/gc3m/5bX7P81sdz/CJ7Q/wCPv/kSfKDyGl923yNB
+        TMosMDG4MDAwpy5FTaAAAABRAAAAOQAAACcAAAAcAAAAEwAAAAkAAAACAAAAAQAAAAEAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCMu5wAmcz/gs3m/+L2//+W3///atH+/1zK
+        9/9CvOr/Jq3e/w2g0/8AkcL7DYGo9BdmgOMgS1nQKjI2vC8vL6wsQkmoMElRlwAAAD8AAAArAAAAHwAA
+        ABUAAAALAAAAAwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCTxMcOoNL/YcDh/8Hn
+        9f+76///b9X//2/V//9v1f//b9X//2/V//9m0Pr/SsLu/y6y4f8VpNb/BZfH/AmIs/cWeJjwHVNl1ig2
+        OsAuLi6xOjI6oi9HT5w0T1iKAAAALgAAACIAAAAYAAAADQAAAAUAAAABAAAAAQAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCT
+        xMczsuL/Trrg/5fV6v/U8///ftz//3PZ//9z2f//c9n//3PZ//9z2f//c9n//3PZ//9z2f//bNX8/1TI
+        8f84ueT/HanZ/wmbzP4Ejbv5Enyg8iRqgeklOD/ELS4ttTAwMKcyPECZMktTjA0ODjYAAAAlAAAAGgAA
+        ABAAAAAIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
+        /wAAAAAAAAAAAQCTxMdqy/n/GKPS/4/S6f/k+P//nOf//3bc//923P//dtz//3bc//923P//dtz//3bc
+        //923P//dtz//3bc//923P//dtz//3HZ/f9ezvT/Qr/p/yqx3v8PodP/AZHA+w6ApvMgbYXqI0FLyisx
+        NLosLS2oLTQ5mS5ETYwTExM+AAAAHAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAD///8A////AP///wAAAAAAAAAAAQCRwsl+1P//Iqna/3PI5v/H6/f/tez//3nf//953///ed///3nf
+        //953///ed///3nf//953///ed///3nf//953///ed///3nf//953///ed///3nf//913f7/ZtP3/0vF
+        6/8xteD/F6PR/wiSwPwOgaf0HG2J6iFRYNUpOT67NTc4jUNeamagtKUEAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCXyvKD1v//MbDh/1G74v+i2uz/1Pb//4Lk
+        //994///feP//33j//994///feP//33j//994///feP//33j//994///feP//33j//994///feP//33j
+        //994///fOP//3zj//964v7/dt79/2TV9f9JxOr/MrXe/x6l0f8PibD1HWF30U1OW3uLjY8V7PDxAwAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCZzP+H1///Q7np/zGv
+        3f9uxeL/4/n//6Dr//+A5v//gOb//4Dm//+A5v//gOb//4Dm//+A5v//gOb//4Dm//+A5v//gOb//4Dm
+        //+A5v//gOb//4Dm//+A5v//gOb//3/m//+A5v//f+X//3/l//9/5f//e+P8/23Z+P9Dv+P+GIGh4ixW
+        ZKVLYmppzc3PCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAQCZ
+        zP+M2f//TL3t/y6v4P9Tu+D/0vD4/7vz//+E6v//hOr//4Tq//+E6v//hOr//4Tq//+E6v//hOr//4Tq
+        //+E6v//hOr//4Tq//+E6v//hOr//4Tq//+E6f//hOr//4Tp//+D6f//g+n//4Pp//+D6f//g+n//3je
+        //9p2vT/Ra/L8i58k9Q8YGuCo6mtF+zu7gMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
+        /wAAAAAAAAAAAySp2f+R2v//R7vt/zSy5f9DtuD/qt3v/9D4//+H7f//h+3//4ft//+H7f//h+3//4ft
+        //+H7f//h+3//4ft//+H7f//h+3//4ft//+H7f//h+3//4ft//+H7P//h+3//4bs//+G7P//hu3//4bs
+        //+G7P//huz//3rh//+I7v3/Wczm/DWOpd83X2qgdIOFK+To6AMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAD///8A////AP///wAAAAAAAAAACSaq2f+W3P//Qrrt/z646/83s+L/eMnk/+P7//+h8///ivD//4rw
+        //+K8P//ivD//4rw//+K8P//ivD//4rw//+K8P//ivD//4rw//+K8P//ivD//4rw//+J8P//iu///4nw
+        //+K7///ifD//4nv//+J7///ie///3zj//+S9f//c+H0/0+xxe82cYDAQ2Frea60txHw9PEBAAAAAAAA
+        AAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAIi2SCeq2f+b3v//SL3w/0i98P8gqdz/V73g/9v1
+        +/+9+P//jfP//43z//+N8///jfP//43z//+N8///jfP//43z//+N8///jfP//43z//+N8///jfP//43z
+        //+N8///jfL//43z//+M8///jPL//4zy//+M8v//jPL//37l//+X9v//jPD6/2DN4vs7kKPdQGFqlH2J
+        iyLp7O0EAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAIi2SCir2f+f3///TsDz/07A
+        8/8sr+L/T7vk/7Th8f/T/P//kff//5H3//+R9///kff//5H3//+R9///kff//5H3//+R9///kff//5H3
+        //+R9///kff//5H3//+R9///kPf//5H3//+Q9v//kPb//5D2//+Q9v//kPb//4Hn//+c+f//nvr//3ni
+        8v9Sq7zqO214t0hkbXPJzs8N8fPyAgAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAIazSTOw
+        3P+f3/7/VMP2/1TD9v9KvvH/Rbjk/4rR6P/h/v//ovv//5T6//+U+v//lPr//5T6//+U+v//lPr//5T6
+        //+U+v//lPr//5T6//+U+v//lPr//5T6//+U+v//lPr//5T5//+U+f//k/n//5P5//+T+f//k/n//4Tp
+        //99rbX/j6Km/5ikpv+UnKL/dXeV/4tHUP+Ol5oa6e3tAwAAAAAAAAAAAAAAAAAAAAD///8A////AP//
+        /wAAAAAAAIOuS1W+5v+W2/7/XMf6/1zH+v9cx/r/DJ/S/4DN5//k+/7/vv///5n///+Z////mf///5n/
+        //+Z////mf///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///5n+//+Y////mP7//5j9
+        //+Y/v//gbC1/4Gwtf+Qpab/kqWm/6mwtf+ysbX/g4mn/4dUYf+LPkn/rEQw//T19gEAAAAAAAAAAAAA
+        AAD///8A////AP///wAAAAABAIOvXVe/5v+b3f7/Ysr9/2LK/f9iyv3/K67h/2fE5/+85vP/0////5n/
+        //+Z////mf///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///5n/
+        //+Z////mf///5n///+BprX/kKam/5+xtf+Qpqb/oLG1/6ixtf+0sbX/p6ex/3N9j/+TWFH/rUg0/6tA
+        Vv8AAAAAAAAAAAAAAAD///8A////AP///wAAAAABAI6+ilm/5v+f3///Zsz//2bM//9mzP//U8L1/1C5
+        3P+N0ej/6////7r///+j////o////6P///+j////o////6P///+j////o////6P///+j////o////6P/
+        //+j////ov///6P///+j////o////6L///+IsbX/pbG1/5Wmpv+lsbX/p7y1/668tf/VsbX/vry1/5qY
+        r/++XW7//Uk1/6tBV/8AAAAAAAAAAAAAAAD///8A////AP///wAAAAABAI6+ilzA5v+k4f//a9H//2vR
+        //9r0f//a9H//w6g0v9Su97/4PP4//j////k////0f///8P///+3////rf///63///+t////rf///63/
+        //+t////rf///63///+t////rf///6z///+t////rP///46xtf+dpqb/rLG1/6yxtf+rvLX/y7G1/9Gx
+        tf+8vLX/4LG1/7youv+oboX/1WaG//9jWf+qYFb/AAAAAAAAAAD///8A////AP///wAAAAABAI28i4HQ
+        7/+b4f//cNb//3DW//9w1v//cNb//03D7/8wst//RbXa/4zR6P/K6vT/6vf7////////////+v///+//
+        ///k////1////8v////A////uf///7j///+4////uP///7j///+4////uP///5Wxtf+zsbX/srG1/7Ox
+        tf/RsbX/tLy1/9extf/gsbX/5LzE/+HF0P+KrMT/x5B9//5jgv//f3//AAAAAAAAAAD///8A////AP//
+        /wAAAAABAIq4jpHW8v+b4///dtz//3bc//923P//dtz//3bc//9n1Pn/Q7/p/zq65f8nr93/E6TU/xij
+        0f9Mt9v/a8Th/5bV6v/K6vT/6vf7///////y////0f///8P////C////wv///8L////C////nLG1/6um
+        pv+rpqb/urG1/7m8tf/XsbX/2bG1/96xtf/mvLX/6sfE/+rp4f+m1O7/sLi7/8SOmP//YID/AAAAAAAA
+        AAD///8A////AP///wAAAAABAJHBuZXX8v+h5///fOL//3zi//984v//fOL//3zi//984v//fOL//3zi
+        //984v//fOL//23Z+f9WzO//QsDn/za54v8hrdr/D6LT/zev1//B5vP/9P///9j+///N////zP///8z/
+        ///M////orG1/8Cxtf/AprX/wLG1/968xP/AvLX/4LG1/+a8tf/rsbX/7cfE/+3p4f/f7ez/dKvE/8x5
+        ef//gKv//f79AQAAAAD///8A////AP///wAAAAABAJPEx5jY8v+l6v//gef//4Hn//+B5///gef//4Hn
+        //+B5///gef//4Hn//+B5///gef//4Hn//+B5///gef//4Hn//+B5///eeL8/xio1v9ux+T/xOjz//X/
+        /v/g////1////9b////W////qbG1/7impv/HsbX/x7y1/+Sxtf/ksbX/6Ly1/+2xtf/wvMT/8sfE//PS
+        0v/z6eH/m7e//7uQgf9JWV9tf39/AgAAAAD///8A////AP///wAAAAABAJPEx6jf9f+m7v//h+3//4ft
+        //+H7f//h+3//4ft//+H7f//h+3//4ft//+H7f//h+3//4ft//+H7f//h+3//4ft//+H7f//h+3//27d
+        9f8Jns//V73e/8Hm8//9/v///P////j////1/v//u7G1/9axtf/VprX/8bG1/+28xP/svLX/8LG1//O8
+        xP/3sbX/97zE//fHxP/30tL/0sLK/3KHnP9DRUR7AAAACQAAAAD///8A////AP///wAAAAABAJLDyNTx
+        //+e8v//jfP//43z//+N8///jfP//43z//+N8///jfP//43z//+N8///jfP//43z//+N8///jfP//43z
+        //+N8///jfP//43z//9z4vX/GanV/yqs1v9Qudz/a8Th/5DS6f+Mmar/ppSe/9Wssv/dsLT//rvC//+8
+        tf//vLX//rzE//68tf/8vMT//LzE//vH0v/7x9L/+8fS/zCLp+U1QESYTV1jZgAAAAH///8A////AP//
+        /wAAAAABAJHCydny//+k9v//kvj//5L4//+S+P//kvj//5L4//+S+P//kvj//5L4//+S+P//kvj//5L4
+        //+S+P//AAD//wAA//8AAP//AF///wB///+S+P//kvj//4ny/P9u4fL/Ztzv/1XQ6v9Phpz/UHKH/1p6
+        mP9sfZP/foeY/4+PrP+ljKL/yLK4/9q4u//4xML//sfS///H0v//x9L/0+32/1mvzfIbYXipTV1jZgAA
+        AAH///8A////AP///wAAAAABAJnM/970//+p+///mP7//5j+//+Y/v//mP7//5j+//+Y/v//mP7//5j+
+        //+Y/v//mP7//5j+//8AAP//AAD//wBf//8AX///AH///wB///9Vn///mP7//5j+//+Y/v//mP7//5j+
+        //9VHyr/gAAA/6ofKv//Pyr//z9V//9fVf+Fe47/q25z/8Jvnf/Fbp7/MqvW/1y93v+Gz+f/acPh/yaZ
+        v9NMYZhqAAAABwAAAAD///8A////AP///wAAAAABAJnM/+L1//+r/f//mf///5n///+Z////mf///5n/
+        //+Z////mf///5n///+Z////mf///wAA//8AAP//AF///wB///8Af///AJ///1Wf//9Vn///Vb///5n/
+        //+Z////mf///5n///9VHyr/qh8q/6ofKv//P1X//39V//9ff//cgmX/JiorP3R4eQJ2dnYCAJPEMgCO
+        vkUAksOGAI++iQBNZiAAAAAHAAAAAQAAAAD///8A////AP///wAAAAABAJnM/+f3///A+///mf///5n/
+        //+Z////mf///5n///+Z////mf///5n///+Z////mf///wAA//8AAP//AH///wB///8An///AJ///1Wf
+        //9Vv///Vb///5n///+Z////mf///1UfKv+AAAD/qgAq//8/Vf//f3///19//wCZzP8AAQKVAgICKwAA
+        AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAJbIopTV
+        7P/n+f//nv///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///wAA//8AX///AH///wCf
+        //8An///Vb///6rf//+qv///qr///5n///+Z////mf///1UfKv+qHyr/qh8q//9fVf//X3//mf///wCZ
+        zP8AAACVAAAAKgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
+        /wAAAAAAAJTGIR6l0v/i9Pz/xf3//5n///+Z////mf///5n///+Z////mf///5n///+Z////n////wAA
+        //8AX///AH///wCf//8An///qr////D7//+q3///Vd////H6///b+///0Pz//1UfKv+qHyr//z9V//9f
+        Vf+Z////mf///wCZzP8AAACMAAAAJgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAD///8A////AP///wAAAAAAAAAAAACVx6N7y+b/7/z//5////+Z////mf///5n///+Z////mf///5n/
+        //+Z////0/3//wAA//8AAP//AH///wCf//8An///VZ///6rf//9Vv///qt///x+l0v89stn/VR8q/6of
+        Kv+qHyr//19V//9/f//q/P//3v3//w+fz/8AAABeAAAAGAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAACUxiEQn8//6vf8//r9///6/f//4v7//+L+
+        ///K/v//w/7//7H////D/v//+v3//0643P8AAP//AH///wB///9Vn///Vb///1W///+q3///AAAAAQAA
+        AAEAlMYhVR8q/6ofKv+qPyr//19//wCUxcYAmcz/AJnM/wCMu60AAAAYAAAABgAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAAAAAAAAl8qhIKbS/0Cz
+        2f9gv9//gMzm/4/S6f+/5vL/z+z1////////////j9Lp/wCEsN0AAAA3AF///wBf//8Af///Vb///6q/
+        //8AAAAAAAAAAAAAAABVHyr/gAAA/6ofKv//X1X//39V/wAAAAEAAAABAAAAAQAAAAEAAAABAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP///wAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAQCUxkIAirhHAJDAdwCPvokAksKnAJTFxgCVxtUAmcz/AJXH5ABTbjsAAAALAAAAAQAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAFUfKv+AAAD/gAAA/6ofKv//X1X//19//wAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8A////AP//
+        /wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAQAA
+        AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFUfKv+AAAD/qh8q//9/f///f1X/AAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AVQAq/4AAAP+qHyr/qj8q//9/
+        f///f1X/////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AVR8q/4AA
+        AP+qHyr//39///+ff///X3//////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wBVHyr/gAAA/6ofKv+qPyr//39///+ff///X3//////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wBVHyr/qh8q/6oAKv+qPyr//59///+ff///X3//////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wBVHyr/qgAq/6o/Kv+qPyr//59////f1P//f3//////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wBVHyr/qh8q/6o/Kv//P1X//59////f
+        ////X1X/////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wBVHyr/qh8q/6o/
+        Kv//P1X//59////f1P//f3//////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wCAAAD/qh8q/6o/Kv//P1X//59///+ff///f3//////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8AgAAA/6oAKv+qPyr//59///9/f///X1X/////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AKofKv+qACr/qj8q//9fVf////8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AOAP/////wAAwAD/////AADAAA////8AAMAAAH///wAAwAAAB///AADAAAAAf/8AAMAA
+        AAAP/wAAwAAAAAf/AADAAAAAA/8AAMAAAAAB/wAAwAAAAAH/AADAAAAAAP8AAMAAAAAA/wAAwAAAAAB/
+        AADAAAAAAH8AAMAAAAAAPwAAwAAAAAA/AADAAAAAAB8AAIAAAAAAHwAAgAAAAAAfAACAAAAAAA8AAIAA
+        AAAADwAAgAAAAAAPAACAAAAAAAcAAIAAAAAABwAAgAAAAAAHAACAAAAAAAMAAIAAAAAAAwAAgAAAAAAH
+        AACAAAAAAAcAAIAAAAAH/wAAwAAAAAf/AADAAAAAB/8AAOAAAAAH/wAA4AAAAA//AADwAAOAH/8AAPgA
+        PwP//wAA/8D/B///AAD///4H//8AAP///gf//wAA///8B///AAD///wH//8AAP///Af//wAA///8B///
+        AAD///wH//8AAP///Af//wAA///+B///AAD///8P//8AACgAAAAgAAAAQAAAAAEAIAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAoAAAAqAAAAOwAAADEAAAAjAAAAGAAAAA4AAAAHAAAAAQAA
+        AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAABAH2nTjBZZ6YsOD24LCwstTAwMKc2NjaVAAAATAAA
+        ADgAAAAmAAAAGgAAABAAAAAHAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAEAjr6KULnc/0253/8Ni7X7H3iW9CBX
+        atwnP0jLLCwsuC8vL6sAAABtAAAAUgAAADoAAAAoAAAAHQAAABMAAAAJAAAAAgAAAAEAAAABAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAAAAAQCOvopnw+L/2vT//23T
+        //9TxfL/N7fm/xyo2f8Qk8H8E3ia8R5edOEnP0fLLCwsuTgvM64AAABzAAAAWQAAAEAAAAAsAAAAHwAA
+        ABUAAAALAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAABAI28izu0
+        4v//////e9r//3LY//9y2P//ctj//3LY//9dzfX/Qb3p/ySt3P8Mmcf+EH6j9Btlf+YkSFPSKysruy0t
+        LbMAAAB6AAAAYAAAAEUAAAAuAAAAHwAAAA8AAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAA
+        AAEAjLqMTL3s/6/f7/+p6f//dtz//3bc//923P//dtz//3bc//923P//dtz//3bc//9o1Pn/SsTs/y2z
+        3/8PotL/DYSr9xlsiOoiUF/XKysrvSwtLbQAAAB3AAAAQAAAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAD///8AAAAAAQCMu5x50fz/cMbi/9b2//984v//fOL//3zi//984v//fOL//3zi//984v//fOL//3zi
+        //984v//fOL//3zi//903vz/Vszv/zi64v8YqNf/C4m0+SBXat0AAAB2AAAAJAAAAAMAAAAAAAAAAAAA
+        AAAAAAAAAAAAAP///wAAAAABAJPEx3fQ+v8wrtr/9/3//4Dm//+A5v//gOb//4Dm//+A5v//gOb//4Dm
+        //+A5v//gOb//4Dm//+A5v//gOb//4Dm//+A5v//f+b//4Dm/v934Pz/GIuu9issLLkAAABGAAAADAAA
+        AAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAEXns3HedH5/ySr3v/P7PX/rPL//4bs//+G7P//huz//4bs
+        //+G7P//huz//4bs//+G7P//huz//4bs//+G7P//huz//4bs//+G7f//iO3//3vi/P9Wy+P/IFBg2QQF
+        BW8AAAAdAAAAAQAAAAAAAAAAAAAAAAAAAAD///8AAAAAATCo1MeA0/v/O7fq/4DM5v/T+f//ivD//4rw
+        //+K8P//ivD//4rw//+K8P//ivD//4rw//+K8P//ivD//4rw//+L8P//i/D//4/x//+R8/7/h+j8/47o
+        8/8oiKLxKSosswAAADoAAAAIAAAAAAAAAAAAAAAAAAAAAP///wAAAAABMafSyYnX/P9Nv/L/PrPd//H+
+        //+Q9v//kPb//5D2//+Q9v//kPb//5D2//+Q9v//kPb//5D2//+Q9v//kPb//5H2//+T9v//lff//5j3
+        /v+N6f3/n/T5/1rD3P8lQUvPBgcHZAAAABcAAAABAAAAAAAAAAAAAAAA////AAAAAAEqqtfyi9j9/1bE
+        9/8wseT/3/L5/6j7//+U+v//lPr//5T6//+U+v//lPr//5T6//+U+v//lPr//5T6//+U+v//lPn//5b5
+        //+a+///nvv+/5Xn9v+dztX/jJei/2BPX/yPJDzzhRkfhIkyLBoAAAAAAAAAAAAAAAD///8AAAAAASus
+        2f+F1v3/X8j7/02/8v+P0un/0v///5n///+Z////mf///5n///+Z////mf///5n///+Z////mf///5n/
+        //+b////nv3//5/+//+e6e7/mayx/6Klqf+gnKP/gXeI/48xQv+mKyf/pj8156k+WCYAAAAAAAAAAP//
+        /wAAAAABWb/m/4zY//9mzP//Zsz//1y/4v/z////rf///6P///+j////o////6P///+j////o////6P/
+        //+j////o////6T///+l/v//p/3+/5vN0f+trK//saqs/7qvrv+okpj/m1RY//U6Tf/kQEH/o1JSeAAA
+        AAAAAAAA////AAAAAANdweb/k97//23T//9t0///N7bm/4/S6f//////8P///+X////W////yf///8D/
+        //+z////s////7P///+z////s////7L///+v+Pn/oK2x/7Svs//EsrT/0rOy/8Wfpf+wbYT/0Gx7//98
+        f//qamz/AAAAAAAAAAD///8AAAAACWDB5v+a4v//dNr//3Ta//902v//SsPs/y2z3/9exOb/YL/f/4DM
+        5v+/5vL/3/L5//v////L////wP///8D///+/////v////6PDx/+tqKz/urC0/863t//esbP/3q+u/8Cu
+        sv+3uMH//8zK//9xjv8AAAABAAAAAP///wAAiLZIZMPm/5Xn//9+5P//fuT//37k//9+5P//fuT//37k
+        //9+5P//Z9b1/1fN7/9Av+b/aMTi//z////Z////0v///9L////R////rcLE/7ursP/Ftrf/3bW4/+S2
+        s//otLn/48PC/6qvtP/Ql4T/12+DrAAAAAkAAAAA////AACItkh0yen/l+z//4Xr//+F6///hev//4Xr
+        //+F6///hev//4Xr//+F6///hev//4Xr//9t3PX/aMXi///////0////8v7//+b19v++urz/x6qy/+Kx
+        t//svLj/7re5//W2vP/1vcH/s6/A/8F0eP1fMDCBAAAAFgAAAAH///8AAIazSaDb8v+h9P//j/X//4/1
+        //+P9f//j/X//4/1//+P9f//j/X//4/1//9Ri///Kkn//ypy//9k1Pf/Lrfc/2XL5v9gv9//erLJ/5yU
+        n//Ao6v/87q4//mytP/8v77/+sTB//zG0P/zxdL/MXqc7gAAAGEAAAAZAAAAAf///wAAiLZIpt3y/6j6
+        //+W/P//lvz//5b8//+W/P//lvz//5b8//+W/P//VI3//wAT//8AZP//AH3//y2P//9z1P//lvz//5b8
+        //92pq3/dpqk/4mbqf9pi6b/n36J/76Dl/eymLb/hMnj/7/m8v8jjMfeAAAAKAAAAAoAAAAA////AACQ
+        wFWq3vL/rP3//5n///+Z////mf///5n///+Z////mf///5n///8JEP//AE3//wCP//8Aof//WKj//1/C
+        //+Z////lvX1/2g3PP+mCiL/9FRi/993jP9eKyiwAAAAKwAAAAEAlMYhAJDARAB6oygAAAAGAAAAAQAA
+        AAD///8AAJTGIXXJ5v/M+///mf///5n///+Z////mf///5n///+Z////o/7//xcp//8Aff//AJz//1K3
+        ///N5f//k9X//5n///+X+vr/cx4p/9MsNv/sf4f/NK3U/wAAAJEAAAAoAAAAAQAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAP///wAAAAAAFJ7NwuP0/P+k////mf///5n///+Z////mf///5n////i+///FiX5/gBV
+        //8Eo///Tqf//5rY//+K5P7/zu75/4ltdf+ZGyX/8VNY/9LGyf87udz/AAAAbQAAAB4AAAABAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAlMZCe8vm/+z9///h/f//yv7//8P+//+x////1f7//7nk
+        8v8AUIWqAD743Ax6//9Hr///hcn+6kOx1l8ah7GXWhQe87ovLv/ndGz9a8Ti/zSq0uQAAAAeAAAACAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAl8qhUrXWxUOz2PFwxuL/gMzm/6/f
+        7/+/5vL/E5bBzgAAACUAI6YXAGX/JjSq/ya11/8VAAAAAFcHDO6GAgT/2EVD//9odc0AAAABAAAAAQAA
+        AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAAAAAABAAAAAQAA
+        AAEAlMYhAJDARACKuEcAZogYAAAABAAAAAEAAAAAAAAAAAAAAABNABtceQwS/64sLP//h3H//3RgKwAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AVREZDlgVIcmSDA7/52xn//+I
+        gP//YHg1////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wBQICxQhhId/6ga
+        JP/qh2n//4eB//9agTX///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AE8g
+        KkuQEiv/sTMp/++Tev//tbX//2tpNf///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8ATx8qTowiKf/ROjj//5KI//+5uv//amU1////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wB8AQE1kRAT9L8uMv/9kXn//5CA//91dDn///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wB/AAAxpQwn9r9LP/b/ZV2w/1xREP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8AwA///4AA//+AAAf/gAAA/4AAAD+AAAA/gAAAH4AA
+        AB+AAAAPgAAAD4AAAAeAAAAHgAAAA4AAAAOAAAADgAAAAYAAAAGAAAAAgAAAAIAAAAGAAAABgAAAP8AA
+        AD/AAAB/4ACA//AHB////gf///4H///+B////gf///4H////B/8oAAAAEAAAACAAAAABACAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAADgDAwN+AwMDlQMDA5UDAwOVAwMDlQMDA5UDAwOVAwMDlQMD
+        A5UDAwOVAwMDlQMDA5UDAwN+AAAAOAAAACEcgrX/GoCz/xd9sP8Ve67/Enir/w91qP8McqX/CnCj/wdt
+        oP8Fa57/A2mc/wFnmv8AZpn/AgICywMDA34hh7r/Zsz//x+FuP+Z////btT//27U//9u1P//btT//27U
+        //9u1P//btT//27U//9cwvD/mf///wBmmf8DAwOUJIq9/2bM//8mjL//mf///3rg//964P//euD//3rg
+        //964P//euD//3rg//964P//Z83z/5n///8BZ5r/AwMDlSeNwP9mzP//LJLF/5n///+F6///hev//4Xr
+        //+F6///hev//4Lc8f9/ucr/iam8/4O60f+Z+Pj/A2mc/wMDA5Upj8L/Zsz//zKYy/+Z////kff//5H3
+        //+R9///kff//5D1/f+Js73/mquw/6Wvtv+ss7z/o9TV/wVrnv8DAwOVLJLF/27U//8zmcz/mf///5n/
+        //+Z////mf///5n///+Q4OH/ma6x/7G1tf+8trb/veHi/7zZ3P8HbaD/AwMDlC6Ux/964P//LJLF////
+        ////////////////////////3M3Q/+mwtf/9t7f//7e6///Y1f//5+f/CnCj/wMDA3Uwlsn/hev//4Dm
+        //8picj/InTT/ySJ0/8ulMf/LJHE/z5skv9qbo//cHSU/2J3n/9LeKj/IICy/xqAs/8AAAAhMpjL/5H3
+        //+O9P//KFD//wJ///8/t///dbrb//Ht7v+bICz//XeC///W1f//9vf/FXuu/wMDA3YAAAApAAAAATOZ
+        zP//////mf///zJi//8Djv//gtL//8HW4v85VXb/1EFE/0x/rf8cgrX/GoCz/xd9sP8AAAAhAAAACQAA
+        AAAAAAAAM5nM///////o6f//d6n//7jp//9ClsL/eQkN7/FgXdQAAAABAAAAAQAAAAEAAAABAAAAAQAA
+        AAAAAAAAAAAAAAAAAAAzmcz/MpjL/zCWyf8ulMf/YhYjrMRBPP//eHNyAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABTA8RH4MOGvLofGr//3OHbwAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAD///8A////AP///wD///8A////AFEaJSSbICb9+ZWI//+LiHX///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wB7AAAJkAgQn91fV/T/b2ZS////AP//
+        /wD///8A////AP///wD///8A////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAQAAgAMAAMB/AADgfwAA+H8AAPh/AAA=
+</value>
+  </data>
+</root>

app/DD_Clipboard_Searcher/frmProfileMatch.vb

@@ -0,0 +1,169 @@
+Imports DevExpress.XtraEditors
+Imports DevExpress.XtraGrid.Views.Tile
+Imports DevExpress.XtraGrid.Views.Tile.ViewInfo
+
+Public Class frmProfileMatch
+    Private Sub frmProfileMatch_Load(sender As Object, e As EventArgs) Handles Me.Load
+        CreateTiles()
+        CurrSearch2Load = Nothing
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Me.Close()
+    End Sub
+    Sub CreateTiles()
+        Try
+            Dim ImageIndex As Integer = -1
+            Dim i As Integer = 0
+            Dim j As Integer = 0
+            Dim PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
+            Dim SecondaryFont As New Font("Segoe UI", 10)
+            Dim WhiteBackground As Color = System.Drawing.Color.FromArgb(230, Color.White)
+
+            ' Datatable laden
+            GridControl1.DataSource = CurrDT_PROFILE_MATCH
+
+            TileView1.TileTemplate.Clear()
+
+            Dim ImageColumn As TileViewItemElement
+            Dim HeadlineColumn As TileViewItemElement
+            Dim IDColumn As TileViewItemElement
+            Dim TextColumn As TileViewItemElement
+            Dim TextHeaderColumn As TileViewItemElement
+
+            HeadlineColumn = New TileViewItemElement()
+            With HeadlineColumn
+                .Column = TileView1.Columns(1)
+                .TextAlignment = TileItemContentAlignment.TopRight
+                .Appearance.Normal.Font = PrimaryFont
+                .Appearance.Normal.ForeColor = Color.DodgerBlue
+                .Column.OptionsFilter.AllowFilter = True
+            End With
+            TileView1.TileTemplate.Add(HeadlineColumn)
+            IDColumn = New TileViewItemElement()
+            With IDColumn
+                .Column = TileView1.Columns(0)
+                .Column.OptionsFilter.AllowFilter = True
+                .TextAlignment = TileItemContentAlignment.TopLeft
+            End With
+            TileView1.TileTemplate.Add(IDColumn)
+            ImageColumn = New TileViewItemElement()
+            With ImageColumn
+                .Image = My.Resources.build_Selection_32xLG
+                '            
+                '                    '.ImageSize = New Size(186, 90)
+                .ImageSize = New Size(186, 118)
+                .ImageScaleMode = TileItemImageScaleMode.ZoomInside
+                .ImageAlignment = TileItemContentAlignment.BottomLeft
+                '                .ImageLocation = New Point(-10, -10)
+            End With
+            '                TileView1.TileTemplate.Add(ImageColumn)
+            'For Each oProfileColumn As DataColumn In CurrDT_PROFILE_MATCH.Columns
+            '    Dim index As Integer = CurrDT_PROFILE_MATCH.Columns.IndexOf(oProfileColumn)
+
+
+            '    Select Case index
+            '        'Case 0
+            '        '    ' RecordId
+            '        '    RECORDID_Column = New TileViewItemElement()
+            '        '    With RECORDID_Column
+            '        '        .Column = grvwTiles.Columns(0)
+            '        '        .Column.OptionsFilter.AllowFilter = True
+            '        '        .TextAlignment = TileItemContentAlignment.TopLeft
+            '        '    End With
+            '        '    grvwTiles.TileTemplate.Add(RECORDID_Column)
+            '        Case 1
+            '            ' Index 1 ist das Bild
+            '            If oProfileColumn.DataType.ToString.Contains("Byte") Then
+            '                ImageColumn = New TileViewItemElement()
+            '                With ImageColumn
+            '                    .Image = My.Resources.asterisk_orange
+            '                    .Column = TileView1.Columns(1)
+            '                    '.ImageSize = New Size(186, 90)
+            '                    .ImageSize = New Size(186, 118)
+            '                    .ImageScaleMode = TileItemImageScaleMode.ZoomInside
+            '                    .ImageAlignment = TileItemContentAlignment.Manual
+            '                    .ImageLocation = New Point(-10, -10)
+            '                End With
+            '                TileView1.TileTemplate.Add(ImageColumn)
+            '            End If
+            '        Case 2
+            '            ' Index 2 ist die Headline
+            '            HeadlineColumn = New TileViewItemElement()
+            '            With HeadlineColumn
+            '                .Column = TileView1.Columns(2)
+            '                .TextAlignment = TileItemContentAlignment.TopRight
+            '                .Appearance.Normal.Font = PrimaryFont
+            '                .Appearance.Normal.ForeColor = Color.DodgerBlue
+            '                .Column.OptionsFilter.AllowFilter = True
+            '            End With
+            '            TileView1.TileTemplate.Add(HeadlineColumn)
+            '        Case 3 To 4
+            '            ' Indexe 3 und 4 sind normale Textzeilen
+            '            TextColumn = New TileViewItemElement()
+            '            TextHeaderColumn = New TileViewItemElement()
+            '            Dim OffsetIndex = index - 3
+
+            '            With TextHeaderColumn
+            '                .Text = oProfileColumn.ColumnName
+            '                .TextAlignment = TileItemContentAlignment.Manual
+            '                .TextLocation = New Point(120, 20 + (OffsetIndex * 40))
+            '                .Appearance.Normal.Font = SecondaryFont
+            '                .Appearance.Normal.ForeColor = Color.DarkGray
+            '                .Appearance.Normal.BackColor = WhiteBackground
+            '            End With
+
+            '            With TextColumn
+            '                .Column = TileView1.Columns(index)
+            '                .TextAlignment = TileItemContentAlignment.Manual
+            '                .TextLocation = New Point(120, 20 + 18 + (OffsetIndex * 40))
+            '                .Appearance.Normal.Font = SecondaryFont
+            '                .Appearance.Normal.ForeColor = Color.Black
+            '                .Appearance.Normal.BackColor = WhiteBackground
+            '            End With
+
+            '            TileView1.TileTemplate.Add(TextHeaderColumn)
+            '            TileView1.TileTemplate.Add(TextColumn)
+            '    End Select
+            'Next
+        Catch ex As Exception
+
+        End Try
+
+
+    End Sub
+
+    Private Sub TileView1_ItemClick(sender As Object, e As TileViewItemClickEventArgs) Handles TileView1.ItemClick
+        Dim oPROFILE_ID = TileView1.GetFocusedRowCellValue(TileView1.Columns("GUID"))
+        CurrSearch2Load = oPROFILE_ID
+        Dim view As TileView = TryCast(sender, TileView)
+        Dim pt As Point = view.GridControl.PointToClient(Control.MousePosition)
+        Dim hitInfo As TileViewHitInfo = view.CalcHitInfo(pt)
+        If hitInfo.ItemInfo IsNot Nothing Then
+            Dim elementInfo As TileItemElementViewInfo = hitInfo.ItemInfo.Elements.FirstOrDefault(Function(t) t.EntireElementBounds.Contains(pt))
+            If elementInfo IsNot Nothing Then
+                Dim text As String = elementInfo.Element.Text
+
+            End If
+        End If
+        OpenResults_Doc
+    End Sub
+    Sub OpenResults_Doc()
+        Me.Hide()
+        Dim ofrmresult As Form = New frmResultDoc
+        ofrmresult.ShowDialog()
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim oResult As String = ""
+        For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
+            If oResult = "" Then
+                oResult = oRow.Item("GUID")
+            Else
+                oResult &= "," & oRow.Item("GUID")
+            End If
+        Next
+        CurrSearch2Load = oResult
+        OpenResults_Doc()
+
+    End Sub
+End Class

app/DD_Clipboard_Searcher/frmResultDoc.Designer.vb

@@ -0,0 +1,450 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmResultDoc
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmResultDoc))
+        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
+        Me.tslblDocID = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.tslblState = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripDropDownButtonFile = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.ÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.XtraTabControlDocs = New DevExpress.XtraTab.XtraTabControl()
+        Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewDocSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewDocSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewDocSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageDoc4 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlDocSearch4 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewDocSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageDoc5 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewDocSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.ContextMenuStripWMFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.EigenschaftenDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.StatusStrip1.SuspendLayout()
+        Me.ToolStrip1.SuspendLayout()
+        CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabControlDocs.SuspendLayout()
+        Me.XtraTabPageDoc1.SuspendLayout()
+        CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageDoc2.SuspendLayout()
+        CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageDoc3.SuspendLayout()
+        CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageDoc4.SuspendLayout()
+        CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageDoc5.SuspendLayout()
+        CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStripWMFile.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'StatusStrip1
+        '
+        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDocID, Me.tslblState})
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 532)
+        Me.StatusStrip1.Name = "StatusStrip1"
+        Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0)
+        Me.StatusStrip1.Size = New System.Drawing.Size(933, 22)
+        Me.StatusStrip1.TabIndex = 0
+        Me.StatusStrip1.Text = "StatusStrip1"
+        '
+        'tslblDocID
+        '
+        Me.tslblDocID.Name = "tslblDocID"
+        Me.tslblDocID.Size = New System.Drawing.Size(0, 17)
+        '
+        'tslblState
+        '
+        Me.tslblState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Alert_32xMD_color
+        Me.tslblState.Name = "tslblState"
+        Me.tslblState.Size = New System.Drawing.Size(107, 17)
+        Me.tslblState.Text = "No action so far"
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(933, 25)
+        Me.ToolStrip1.TabIndex = 1
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'ToolStripDropDownButtonFile
+        '
+        Me.ToolStripDropDownButtonFile.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.ToolStripDropDownButtonFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ÖffnenToolStripMenuItem, Me.EigenschaftenToolStripMenuItem})
+        Me.ToolStripDropDownButtonFile.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.ID_FILE_PAGE_SETUP
+        Me.ToolStripDropDownButtonFile.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripDropDownButtonFile.Name = "ToolStripDropDownButtonFile"
+        Me.ToolStripDropDownButtonFile.Size = New System.Drawing.Size(63, 22)
+        Me.ToolStripDropDownButtonFile.Text = "Datei"
+        '
+        'ÖffnenToolStripMenuItem
+        '
+        Me.ÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.OpenFile
+        Me.ÖffnenToolStripMenuItem.Name = "ÖffnenToolStripMenuItem"
+        Me.ÖffnenToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
+        Me.ÖffnenToolStripMenuItem.Text = "Öffnen"
+        '
+        'EigenschaftenToolStripMenuItem
+        '
+        Me.EigenschaftenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.properties_16xMD
+        Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
+        Me.EigenschaftenToolStripMenuItem.Size = New System.Drawing.Size(148, 22)
+        Me.EigenschaftenToolStripMenuItem.Text = "Eigenschaften"
+        '
+        'XtraTabControlDocs
+        '
+        Me.XtraTabControlDocs.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.XtraTabControlDocs.Location = New System.Drawing.Point(0, 25)
+        Me.XtraTabControlDocs.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.XtraTabControlDocs.Name = "XtraTabControlDocs"
+        Me.XtraTabControlDocs.SelectedTabPage = Me.XtraTabPageDoc1
+        Me.XtraTabControlDocs.Size = New System.Drawing.Size(933, 507)
+        Me.XtraTabControlDocs.TabIndex = 5
+        Me.XtraTabControlDocs.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5})
+        '
+        'XtraTabPageDoc1
+        '
+        Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
+        Me.XtraTabPageDoc1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
+        Me.XtraTabPageDoc1.Size = New System.Drawing.Size(927, 479)
+        Me.XtraTabPageDoc1.Text = "XtraTabPage1"
+        '
+        'GridControlDocSearch1
+        '
+        Me.GridControlDocSearch1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControlDocSearch1.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        GridLevelNode1.RelationName = "Level1"
+        Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
+        Me.GridControlDocSearch1.Location = New System.Drawing.Point(0, 0)
+        Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1
+        Me.GridControlDocSearch1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.GridControlDocSearch1.Name = "GridControlDocSearch1"
+        Me.GridControlDocSearch1.Size = New System.Drawing.Size(927, 479)
+        Me.GridControlDocSearch1.TabIndex = 0
+        Me.GridControlDocSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch1})
+        '
+        'GridViewDocSearch1
+        '
+        Me.GridViewDocSearch1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
+        Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
+        Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewDocSearch1.DetailHeight = 431
+        Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1
+        Me.GridViewDocSearch1.Name = "GridViewDocSearch1"
+        Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewDocSearch1.OptionsFind.AlwaysVisible = True
+        Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewDocSearch1.OptionsSelection.MultiSelect = True
+        Me.GridViewDocSearch1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewDocSearch1.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewDocSearch1.OptionsView.ShowAutoFilterRow = True
+        '
+        'XtraTabPageDoc2
+        '
+        Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
+        Me.XtraTabPageDoc2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
+        Me.XtraTabPageDoc2.PageVisible = False
+        Me.XtraTabPageDoc2.Size = New System.Drawing.Size(927, 479)
+        Me.XtraTabPageDoc2.Text = "XtraTabPage2"
+        '
+        'GridControlDocSearch2
+        '
+        Me.GridControlDocSearch2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControlDocSearch2.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.GridControlDocSearch2.Location = New System.Drawing.Point(0, 0)
+        Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
+        Me.GridControlDocSearch2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
+        Me.GridControlDocSearch2.Size = New System.Drawing.Size(927, 479)
+        Me.GridControlDocSearch2.TabIndex = 1
+        Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2})
+        '
+        'GridViewDocSearch2
+        '
+        Me.GridViewDocSearch2.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
+        Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
+        Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewDocSearch2.DetailHeight = 431
+        Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2
+        Me.GridViewDocSearch2.Name = "GridViewDocSearch2"
+        Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewDocSearch2.OptionsFind.AlwaysVisible = True
+        Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewDocSearch2.OptionsSelection.MultiSelect = True
+        Me.GridViewDocSearch2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewDocSearch2.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewDocSearch2.OptionsView.ShowAutoFilterRow = True
+        '
+        'XtraTabPageDoc3
+        '
+        Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
+        Me.XtraTabPageDoc3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
+        Me.XtraTabPageDoc3.PageVisible = False
+        Me.XtraTabPageDoc3.Size = New System.Drawing.Size(927, 479)
+        Me.XtraTabPageDoc3.Text = "XtraTabPage1"
+        '
+        'GridControlDocSearch3
+        '
+        Me.GridControlDocSearch3.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControlDocSearch3.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.GridControlDocSearch3.Location = New System.Drawing.Point(0, 0)
+        Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3
+        Me.GridControlDocSearch3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
+        Me.GridControlDocSearch3.Size = New System.Drawing.Size(927, 479)
+        Me.GridControlDocSearch3.TabIndex = 1
+        Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3})
+        '
+        'GridViewDocSearch3
+        '
+        Me.GridViewDocSearch3.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
+        Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
+        Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewDocSearch3.DetailHeight = 431
+        Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3
+        Me.GridViewDocSearch3.Name = "GridViewDocSearch3"
+        Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewDocSearch3.OptionsFind.AlwaysVisible = True
+        Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewDocSearch3.OptionsSelection.MultiSelect = True
+        Me.GridViewDocSearch3.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewDocSearch3.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewDocSearch3.OptionsView.ShowAutoFilterRow = True
+        '
+        'XtraTabPageDoc4
+        '
+        Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
+        Me.XtraTabPageDoc4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
+        Me.XtraTabPageDoc4.PageVisible = False
+        Me.XtraTabPageDoc4.Size = New System.Drawing.Size(927, 479)
+        Me.XtraTabPageDoc4.Text = "XtraTabPage2"
+        '
+        'GridControlDocSearch4
+        '
+        Me.GridControlDocSearch4.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControlDocSearch4.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.GridControlDocSearch4.Location = New System.Drawing.Point(0, 0)
+        Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4
+        Me.GridControlDocSearch4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
+        Me.GridControlDocSearch4.Size = New System.Drawing.Size(927, 479)
+        Me.GridControlDocSearch4.TabIndex = 1
+        Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4})
+        '
+        'GridViewDocSearch4
+        '
+        Me.GridViewDocSearch4.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
+        Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
+        Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewDocSearch4.DetailHeight = 431
+        Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4
+        Me.GridViewDocSearch4.Name = "GridViewDocSearch4"
+        Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewDocSearch4.OptionsFind.AlwaysVisible = True
+        Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewDocSearch4.OptionsSelection.MultiSelect = True
+        Me.GridViewDocSearch4.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewDocSearch4.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewDocSearch4.OptionsView.ShowAutoFilterRow = True
+        '
+        'XtraTabPageDoc5
+        '
+        Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
+        Me.XtraTabPageDoc5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
+        Me.XtraTabPageDoc5.PageVisible = False
+        Me.XtraTabPageDoc5.Size = New System.Drawing.Size(927, 479)
+        Me.XtraTabPageDoc5.Text = "XtraTabPage3"
+        '
+        'GridControlDocSearch5
+        '
+        Me.GridControlDocSearch5.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControlDocSearch5.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.GridControlDocSearch5.Location = New System.Drawing.Point(0, 0)
+        Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5
+        Me.GridControlDocSearch5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
+        Me.GridControlDocSearch5.Size = New System.Drawing.Size(927, 479)
+        Me.GridControlDocSearch5.TabIndex = 1
+        Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5})
+        '
+        'GridViewDocSearch5
+        '
+        Me.GridViewDocSearch5.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
+        Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
+        Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewDocSearch5.DetailHeight = 431
+        Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5
+        Me.GridViewDocSearch5.Name = "GridViewDocSearch5"
+        Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewDocSearch5.OptionsFind.AlwaysVisible = True
+        Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewDocSearch5.OptionsSelection.MultiSelect = True
+        Me.GridViewDocSearch5.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewDocSearch5.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewDocSearch5.OptionsView.ShowAutoFilterRow = True
+        '
+        'ContextMenuStripWMFile
+        '
+        Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.ToolStripMenuItem2})
+        Me.ContextMenuStripWMFile.Name = "ContextMenuStripWMFile"
+        Me.ContextMenuStripWMFile.Size = New System.Drawing.Size(182, 98)
+        '
+        'EigenschaftenDateiToolStripMenuItem
+        '
+        Me.EigenschaftenDateiToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.properties_16xMD
+        Me.EigenschaftenDateiToolStripMenuItem.Name = "EigenschaftenDateiToolStripMenuItem"
+        Me.EigenschaftenDateiToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
+        Me.EigenschaftenDateiToolStripMenuItem.Text = "Eigenschaften Datei"
+        '
+        'DateiÖffnenToolStripMenuItem
+        '
+        Me.DateiÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.OpenFile
+        Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
+        Me.DateiÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
+        Me.DateiÖffnenToolStripMenuItem.Text = "Datei öffnen"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(178, 6)
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.refresh_16xLG
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(181, 22)
+        Me.ToolStripMenuItem1.Text = "Aktualisieren"
+        '
+        'ToolStripMenuItem2
+        '
+        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
+        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(181, 22)
+        Me.ToolStripMenuItem2.Text = "Layout zurücksetzen"
+        '
+        'frmResultDoc
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(933, 554)
+        Me.Controls.Add(Me.XtraTabControlDocs)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.StatusStrip1)
+        Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmResultDoc"
+        Me.Text = "Clipboard-Watcher SearchResult"
+        Me.StatusStrip1.ResumeLayout(False)
+        Me.StatusStrip1.PerformLayout()
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabControlDocs.ResumeLayout(False)
+        Me.XtraTabPageDoc1.ResumeLayout(False)
+        CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageDoc2.ResumeLayout(False)
+        CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageDoc3.ResumeLayout(False)
+        CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageDoc4.ResumeLayout(False)
+        CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageDoc5.ResumeLayout(False)
+        CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStripWMFile.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents StatusStrip1 As StatusStrip
+    Friend WithEvents ToolStrip1 As ToolStrip
+    Friend WithEvents XtraTabControlDocs As DevExpress.XtraTab.XtraTabControl
+    Friend WithEvents XtraTabPageDoc1 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents GridControlDocSearch1 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewDocSearch1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents XtraTabPageDoc2 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents GridControlDocSearch2 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewDocSearch2 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents XtraTabPageDoc3 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents GridControlDocSearch3 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewDocSearch3 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents XtraTabPageDoc4 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents GridControlDocSearch4 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewDocSearch4 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents XtraTabPageDoc5 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents GridControlDocSearch5 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewDocSearch5 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents ContextMenuStripWMFile As ContextMenuStrip
+    Friend WithEvents EigenschaftenDateiToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DateiÖffnenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+    Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
+    Friend WithEvents tslblDocID As ToolStripStatusLabel
+    Friend WithEvents ToolStripDropDownButtonFile As ToolStripDropDownButton
+    Friend WithEvents ÖffnenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents tslblState As ToolStripStatusLabel
+End Class

app/DD_Clipboard_Searcher/frmResultDoc.resx

@@ -0,0 +1,182 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>134, 17</value>
+  </metadata>
+  <metadata name="ContextMenuStripWMFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>241, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
+        AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
+        AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAP///////wAA93d3d3d/AAD3d3d3
+        d38AAPd////3fwAA93////d/AAD3f///938AD/d////3fwD3eH////d/D3Zn////93/3ZmZ///d3f/Z2
+        Z2//93fw9/Zvf3d3fwD/9m//d3fwAPD2bw///wAAAP//AAAAAAAAAAAAAAAAAPAAAADwAAAA8AAAAPAA
+        AADwAAAA8AAAAOAAAADAAAAAgAAAAAAAAAAAAQAAAAMAAAAHAABCDwAAw/8AAP//AAAoAAAAEAAAACAA
+        AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCcUwAAvpBcAIaGhgCzs7MA8e/wAPTz
+        9AD29vYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAICAgICAgICAgICAgAAAAACAEBAQEB
+        AQEBAQEIAAAAAAgBAQEBAQEBAQEBCAAAAAAIAQEGBgYGBgYBAQgAAAAACAEBBgYGBgYGAQEIAAAAAAgB
+        AQYGBgYGBgEBCAAAAAgIAQEGBgYGBgYBAQgAAAgDAwUBBgYGBgYGAQEIAAgDAgIDCAYGBgYGBgEBCAgD
+        AgICAgMIBgYGAQEBBAgIAgMCAgMCCAYGBgEBBAgACAMIAgIIAwgBAQEBBAgAAAgICAICCAgIAQEBBAgA
+        AAAIAAgCAggACAgICAgAAAAAAAAICAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAA
+        AADwAAAA8AAAAPAAAADgAAAAwAAAAIAAAAAAAAAAAAEAAAADAAAABwAAQg8AAMP/AAD//wAAKAAAABAA
+        AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/9vb2//b2
+        9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2/0JC
+        Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/AAAAAAAAAAAAAAAAAAAAAPb2
+        9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAA
+        AAD29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b29v8AAAAAAAAAAAAA
+        AAAAAAAA9vb2/0JCQv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JCQv/29vb/AAAAAAAA
+        AAAAAAAA9vb2MPb29v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv9CQkL/9vb2/wAA
+        AAAAAAAA9vb2MPb29u/29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b2
+        9v8AAAAA9vb2MPb29u++kFz/vpBc/7Ozs/9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JC
+        Qv/29vb/9vb2MPb29u++kFz/nFMA/5xTAP++kFz/9vb2//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JC
+        Qv9CQkL/9vb2//b29u++kFz/nFMA/5xTAP+cUwD/nFMA/76QXP/08/T/8e/w//Hv8P/x7/D/QkJC/0JC
+        Qv9CQkL/hoaG//b29u/29vb/nFMA/76QXP+cUwD/nFMA/76QXP+cUwD/9vb2//Hv8P/x7/D/8e/w/0JC
+        Qv9CQkL/hoaG//b29u/29vYw9vb2/76QXP/29vb/nFMA/5xTAP/29vb/vpBc//b29v9CQkL/QkJC/0JC
+        Qv9CQkL/hoaG//b29u/29vYwAAAAAPb29v/29vbv9vb2/5xTAP+cUwD/9vb2//b29u/29vb/QkJC/0JC
+        Qv9CQkL/hoaG//b29u/29vYwAAAAAAAAAAD29vbv9vb2MPb29v+cUwD/nFMA//b29v/29vYw9vb2//b2
+        9v/29vb/9vb2//b29u/29vYwAAAAAAAAAAAAAAAA9vb2MAAAAAD29vb/9vb2//b29v/29vb/AAAAAPb2
+        9jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAAAADwAAAA8AAAAOAA
+        AADAAAAAgAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAEL/AAD//wAA
+</value>
+  </data>
+</root>

app/DD_Clipboard_Searcher/frmResultDoc.vb

@@ -0,0 +1,561 @@
+Imports System.ComponentModel
+Imports System.IO
+Imports System.Runtime.InteropServices
+Imports DevExpress.Utils
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Columns
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DD_LIB_Standards
+Imports DevExpress.XtraGrid.Views.Base
+Imports DevExpress.XtraTab
+
+Public Class frmResultDoc
+    <DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
+    Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
+    End Function
+    Public Structure SHELLEXECUTEINFO
+        Public cbSize As Integer
+        Public fMask As Integer
+        Public hwnd As IntPtr
+        <MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
+        <MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
+        <MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
+        <MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
+        Dim nShow As Integer
+        Dim hInstApp As IntPtr
+        Dim lpIDList As IntPtr
+        <MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
+        Public hkeyClass As IntPtr
+        Public dwHotKey As Integer
+        Public hIcon As IntPtr
+        Public hProcess As IntPtr
+    End Structure
+#Region "Laufzeitvariablen & Konstanten"
+    Private Const SEE_MASK_INVOKEIDLIST = &HC
+    Private Const SEE_MASK_NOCLOSEPROCESS = &H40
+    Private Const SEE_MASK_FLAG_NO_UI = &H400
+    Public Const SW_SHOW As Short = 5
+    Private Shared BW_DocPath As String
+    Private Shared BW_DocID As Integer
+    Private Shared CurrSearchID As Integer
+    Private DTDocSearchDefinition As DataTable
+    Private _frmDocView As frmDocView 'You need a reference to Form1
+    Private _frmProfileMatch As frmDocView 'You need a reference to Form1
+#End Region
+    Public Sub New()
+        MyBase.New
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        _frmDocView = frmDocView
+    End Sub
+    Sub RefreshTabDoc(PROFILE_ID As Integer, ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
+        Try
+            SQLCommand = clsPatterns.ReplaceAllValues(SQLCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, PROFILE_ID)
+            Dim myGridControl As DevExpress.XtraGrid.GridControl
+            Dim myGridview As DevExpress.XtraGrid.Views.Grid.GridView
+            Select Case TabIndex
+                Case 0
+                    GridControlDocSearch1.DataSource = Nothing
+                    GridViewDocSearch1.Columns.Clear()
+                    myGridview = GridViewDocSearch1
+                    myGridControl = GridControlDocSearch1
+                Case 1
+                    GridControlDocSearch2.DataSource = Nothing
+                    GridViewDocSearch2.Columns.Clear()
+                    myGridview = GridViewDocSearch2
+                    myGridControl = GridControlDocSearch2
+                Case 2
+                    GridControlDocSearch3.DataSource = Nothing
+                    GridViewDocSearch3.Columns.Clear()
+                    myGridview = GridViewDocSearch3
+                    myGridControl = GridControlDocSearch3
+                Case 3
+                    GridControlDocSearch4.DataSource = Nothing
+                    GridViewDocSearch4.Columns.Clear()
+                    myGridControl = GridControlDocSearch4
+                    myGridview = GridViewDocSearch4
+                Case 4
+                    GridControlDocSearch5.DataSource = Nothing
+                    GridViewDocSearch5.Columns.Clear()
+                    myGridControl = GridControlDocSearch5
+                    myGridview = GridViewDocSearch5
+            End Select
+            myGridControl.ContextMenuStrip = ContextMenuStripWMFile
+            Dim oDatatable As DataTable = clsDatabase.Return_Datatable(SQLCommand)
+            If Not IsNothing(oDatatable) Then
+                XtraTabControlDocs.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
+                clsWMDocGrid.DTDocuments = oDatatable
+                'Select Case TabIndex
+                '    Case 0
+                '        GridControlDocSearch1.DataSource = oDatatable
+                '    Case 1
+                '        GridControlDocSearch2.DataSource = oDatatable
+                '    Case 2
+                '        GridControlDocSearch3.DataSource = oDatatable
+                '    Case 3
+                '        GridControlDocSearch4.DataSource = oDatatable
+                '    Case 4
+                '        GridControlDocSearch5.DataSource = oDatatable
+
+                'End Select
+                Create_GridControl(myGridview, oDatatable)
+                Dim oxmlPath As String = ""
+                oxmlPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
+
+                If File.Exists(oxmlPath) Then
+                    myGridview.RestoreLayoutFromXml(oxmlPath)
+                    myGridview.GuessAutoFilterRowValuesFromFilter()
+                End If
+                tslblState.Text = $"Tab [{TabCaption}] refreshed - {Now}"
+                XtraTabControlDocs.TabPages(TabIndex).PageVisible = True
+            Else
+                clsWMDocGrid.DTDocuments = Nothing
+            End If
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
+    End Sub
+    Private Function Create_GridControl(MyGridView As GridView, _datatable As DataTable) As GridView
+        Dim oMyDocDatatable As New DataTable
+        Try
+            'Die Icon Colum erstellen und konfigurieren
+            Dim oColIcon As New System.Data.DataColumn()
+            oColIcon.DataType = GetType(Image)
+            oColIcon.ColumnName = "ICON"
+            oColIcon.Caption = ""
+            oMyDocDatatable.Columns.Add(oColIcon)
+
+            Dim oColPath As New System.Data.DataColumn()
+            oColPath.DataType = GetType(String)
+            oColPath.ColumnName = "FULL_FILENAME"
+            oColPath.Caption = "Fullpath"
+            oMyDocDatatable.Columns.Add(oColPath)
+            Dim oColDocID As New System.Data.DataColumn()
+            oColDocID.DataType = GetType(Int32)
+            oColDocID.ColumnName = "DocID"
+            oColDocID.Caption = "DocID"
+            oMyDocDatatable.Columns.Add(oColDocID)
+            Dim oRestColArray As New List(Of String)
+            For Each oCol As DataColumn In _datatable.Columns
+                Dim onewColumn As New System.Data.DataColumn()
+                If oCol.ColumnName <> "DocID" And oCol.ColumnName <> "FULL_FILENAME" And oCol.ColumnName <> "Filename" Then
+
+                    onewColumn.DataType = GetType(String)
+                    onewColumn.ColumnName = oCol.ColumnName
+                    onewColumn.Caption = oCol.Caption
+                    oMyDocDatatable.Columns.Add(onewColumn)
+                    oRestColArray.Add(onewColumn.ColumnName)
+                End If
+
+            Next
+            For Each FILE_ROW As DataRow In _datatable.Rows
+                Dim oFullpath = FILE_ROW.Item("FULL_FILENAME")
+                Dim oDocID = FILE_ROW.Item("DocID")
+                'Dim Folderpath = Path.GetDirectoryName(fullpath)
+                Dim oFilename = Path.GetFileName(oFullpath)
+                Dim oFileextension = Path.GetExtension(oFullpath)
+                Dim oNewRow As DataRow
+                oNewRow = oMyDocDatatable.NewRow()
+                'Icon zuweisen
+                Select Case oFileextension.ToUpper
+                    Case ".csv".ToUpper
+                        oNewRow.Item(0) = My.Resources.doc_excel_csv
+                    Case ".txt".ToUpper
+                        oNewRow.Item(0) = My.Resources.txt
+                    Case ".pdf".ToUpper
+                        oNewRow.Item(0) = My.Resources.pdf
+                    Case ".doc".ToUpper
+                        oNewRow.Item(0) = My.Resources.doc
+                    Case ".docx".ToUpper
+                        oNewRow.Item(0) = My.Resources.doc
+                    Case ".xls".ToUpper
+                        oNewRow.Item(0) = My.Resources.xls
+                    Case ".xlsx".ToUpper
+                        oNewRow.Item(0) = My.Resources.xls
+                    Case ".xlsm".ToUpper
+                        oNewRow.Item(0) = My.Resources.xls
+                    Case ".ppt".ToUpper
+                        oNewRow.Item(0) = My.Resources.ppt
+                    Case ".pptx".ToUpper
+                        oNewRow.Item(0) = My.Resources.ppt
+                    Case ".dwg".ToUpper
+                        oNewRow.Item(0) = My.Resources.dwg
+                    Case ".dxf".ToUpper
+                        oNewRow.Item(0) = My.Resources.dxf
+                    Case ".msg".ToUpper
+                        oNewRow.Item(0) = My.Resources.email_go
+                    Case ".msg".ToUpper
+                        oNewRow.Item(0) = My.Resources.email_go
+                    Case ".tif".ToUpper
+                        oNewRow.Item(0) = My.Resources.tiff
+                    Case ".tiff".ToUpper
+                        oNewRow.Item(0) = My.Resources.tiff
+                    Case ".jpg".ToUpper
+                        oNewRow.Item(0) = My.Resources.jpg
+                    Case Else
+                        oNewRow.Item(0) = My.Resources._blank
+                End Select
+                'Den Filepath mitgeben
+                oNewRow.Item(1) = oFullpath
+                oNewRow.Item(2) = oDocID
+
+                Dim i = 3 'Fängt bei 3 an, um die definierten Spalten zu überspringen
+                For Each Colname As String In oRestColArray
+                    Dim oRowValue
+                    oRowValue = FILE_ROW.Item(Colname)
+                    oNewRow.Item(i) = oRowValue.ToString
+                    i += 1
+                Next
+                oMyDocDatatable.Rows.Add(oNewRow)
+            Next
+            Dim sdsd As String = ""
+
+
+
+
+
+
+            Dim oGridControl As GridControl = MyGridView.GridControl
+            oGridControl.DataSource = oMyDocDatatable
+            oGridControl.ForceInitialize()
+            Try
+                MyGridView.Columns.Item("DocID").Visible = False
+            Catch ex As Exception
+            End Try
+            Try
+                MyGridView.Columns.Item("FULL_FILENAME").Visible = False
+            Catch ex As Exception
+            End Try
+
+            Dim created, changed As String
+            If USER_LANGUAGE <> "de-DE" Then
+                changed = "Changed"
+                created = "Created"
+            Else
+                changed = "Geändert"
+                created = "Erstellt"
+            End If
+
+            Dim createdColumn = MyGridView.Columns(created)
+            If Not IsNothing(createdColumn) Then
+                createdColumn.DisplayFormat.FormatType = FormatType.DateTime
+                createdColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
+            End If
+
+            Dim changedColumn = MyGridView.Columns(changed)
+            If Not IsNothing(changedColumn) Then
+                changedColumn.DisplayFormat.FormatType = FormatType.DateTime
+                changedColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
+            End If
+            ' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt
+            For Each column As GridColumn In MyGridView.Columns
+                column.OptionsColumn.AllowEdit = False
+            Next
+            MyGridView.Columns.Item("ICON").MaxWidth = 24
+            MyGridView.Columns.Item("ICON").MinWidth = 24
+            MyGridView.OptionsView.BestFitMaxRowCount = -1
+            MyGridView.BestFitColumns(True)
+            Return MyGridView
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
+    End Function
+    Private Function Get_DocGrid_Layout_Filename(oIndex As Integer)
+        Dim oFilename As String = String.Format("GridViewDoc_Search-{0}-{1}-UserLayout.xml", oIndex, CurrSearchID)
+        Dim oPath = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
+        Return oPath
+    End Function
+    Private Sub GridControlDocSearch_Leave(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Leave, GridControlDocSearch2.Leave, GridControlDocSearch3.Leave, GridControlDocSearch4.Leave, GridControlDocSearch5.Leave
+        SaveDocGridLayout()
+    End Sub
+
+    Sub SaveDocGridLayout()
+        Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
+        clsWMDocGrid.ActiveDocGrid.SaveLayoutToXml(oXMLPath)
+
+    End Sub
+
+    Private Sub EigenschaftenDateiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenDateiToolStripMenuItem.Click
+        Show_File_Properties()
+    End Sub
+    Sub Show_File_Properties()
+        If IsNothing(clsWMDocGrid.DTDocuments) Then
+            MsgBox("Could not read file Parameters!", MsgBoxStyle.Exclamation)
+            Exit Sub
+        End If
+        For Each oRow As DataRow In clsWMDocGrid.DTDocuments.Rows
+            If oRow.Item("DOC_PATH") <> "" Then
+                Cursor = Cursors.WaitCursor
+                Dim sei As New SHELLEXECUTEINFO
+                sei.cbSize = Marshal.SizeOf(sei)
+                sei.lpVerb = "properties"
+                sei.lpFile = oRow.Item("DOC_PATH")
+                sei.nShow = SW_SHOW
+                sei.fMask = SEE_MASK_INVOKEIDLIST
+                If Not ShellExecuteEx(sei) Then
+                    Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
+                    MsgBox("Error in Open file propertys: " & ex.Message, MsgBoxStyle.Critical)
+                    Logger.Error(ex)
+                End If
+            End If
+            Cursor = Cursors.Default
+        Next
+    End Sub
+
+    Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
+        FileShow()
+    End Sub
+    Sub FileShow()
+        Try
+            If IsNothing(clsWMDocGrid.DTDocuments) Then
+                MsgBox("Could not read fileparameters(5)!", MsgBoxStyle.Exclamation)
+                Exit Sub
+            End If
+            For Each row As DataRow In clsWMDocGrid.DTDocuments.Rows
+                File_SYSOPEN(row.Item("DOC_PATH"), row.Item("DOC_ID"))
+            Next
+        Catch ex As Exception
+
+        End Try
+    End Sub
+    Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String)
+        Try
+            If RESULT_DOC_PATH <> Nothing Then
+
+                BW_DocPath = RESULT_DOC_PATH
+                BW_DocID = DocID
+
+                Dim BWFileHandler As New BackgroundWorker
+                AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork
+                BWFileHandler.RunWorkerAsync()
+
+            End If
+        Catch ex As Exception
+            MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
+            Logger.Error(ex)
+        End Try
+    End Sub
+    Private Shared Sub BWFileHandler_DoWork()
+        Try
+
+            Dim oMyProcess = New Process()
+            Dim oExtension
+            Dim oSql
+            Try
+                'Dim oPSI As New ProcessStartInfo(BW_DocPath)
+                oMyProcess.StartInfo.FileName = BW_DocPath
+                oMyProcess.StartInfo.UseShellExecute = True
+                oMyProcess.StartInfo.RedirectStandardOutput = False
+                oMyProcess.Start()
+
+                'oMyProcess.WaitForExit()
+            Catch ex As Exception
+                Logger.Error(ex)
+                Exit Sub
+            End Try
+
+        Catch ex As Exception
+            Logger.Error(ex)
+
+            Try
+                Process.Start(BW_DocPath)
+            Catch ex1 As Exception
+                Logger.Error(ex)
+
+            End Try
+        End Try
+    End Sub
+    Sub Refresh_DocID(myGrid As GridView)
+        clsWMDocGrid.ActiveDocGrid = myGrid
+        clsWMDocGrid.ActiveDocGrid.EndSelection()
+        clsWMDocGrid.GetDocItems()
+        If ToolStripDropDownButtonFile.Visible = False Then
+            ToolStripDropDownButtonFile.Visible = True
+        End If
+        If clsWMDocGrid.SELECTED_DOC_ID <> 0 Then
+            Dim msg = "Doc-ID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
+            tslblDocID.Text = msg
+            ToolStripDropDownButtonFile.Enabled = True
+            Dim frmCollection As New FormCollection()
+            frmCollection = Application.OpenForms()
+            Try
+                If frmCollection.Item("frmDocView").IsHandleCreated Then
+                    'MsgBox("Yes Opened")
+                    _frmDocView.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
+                Else
+                    Dim f As New frmDocView
+                    With f
+                        .Show()
+                        .Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
+                    End With
+                End If
+            Catch ex As Exception
+                Dim newDocView As New frmDocView
+                With newDocView
+                    .Show()
+                    .Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
+                End With
+                _frmDocView = newDocView
+            End Try
+
+        Else
+            tslblDocID.Text = "DocRow not selected"
+            ToolStripDropDownButtonFile.Enabled = False
+        End If
+    End Sub
+    Private Sub GridViewDocSearch1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewDocSearch1.FocusedRowChanged
+        Refresh_DocID(GridViewDocSearch1)
+    End Sub
+    Private Sub GridViewDocSearch1_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridViewDocSearch1.ColumnWidthChanged
+        SaveDocGridLayout()
+    End Sub
+
+    Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem.Click
+        FileShow()
+    End Sub
+
+    Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
+        Show_File_Properties()
+    End Sub
+
+    Private Sub frmResultDoc_Load(sender As Object, e As EventArgs) Handles Me.Load
+        ToolStripDropDownButtonFile.Visible = False
+        If My.Settings.frmResultDocPosition.IsEmpty = False Then
+            If My.Settings.frmResultDocPosition.X > 0 And My.Settings.frmResultDocPosition.Y > 0 Then
+                Location = My.Settings.frmResultDocPosition
+            End If
+        End If
+        If My.Settings.frmResultDocSize.IsEmpty = False Then
+            Size = My.Settings.frmResultDocSize
+        End If
+        Load_Searches()
+    End Sub
+    Sub Load_Searches()
+        If Not IsNothing(CurrSearch2Load) Then
+            Dim oSQL = $"SELECT * FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({CurrSearch2Load}) ORDER BY TAB_INDEX"
+            DTDocSearchDefinition = clsDatabase.Return_Datatable(oSQL)
+            Dim oindex As Integer
+            Dim ocounter As Integer = 0
+            If CurrSearch2Load.ToString.Contains(",") Then
+
+            End If
+            For Each oRow As DataRow In DTDocSearchDefinition.Rows
+                RefreshTabDoc(oRow.Item("PROFILE_ID"), oRow.Item("CONN_ID"), oRow.Item("SQL_COMMAND"), ocounter, oRow.Item("TAB_TITLE"))
+                ocounter += 1
+            Next
+        Else
+            MsgBox("Sorry but the selection of profile went wrong. (CurrSearch2Load is nothing)", MsgBoxStyle.Critical)
+            Me.Close()
+        End If
+    End Sub
+    Private Sub frmResultDoc_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        Try
+            ' Position und Größe speichern
+            My.Settings.frmResultDocSize = Me.Size
+            My.Settings.frmResultDocPosition = Me.Location
+            My.Settings.Save()
+        Catch ex As Exception
+            Logger.Error(ex)
+            Logger.Info("Error in Save FormLayout: " & ex.Message)
+        End Try
+        Try
+            Dim frmCollection As New FormCollection()
+            frmCollection = Application.OpenForms()
+            If frmCollection.Item("frmDocView").IsHandleCreated Then
+                _frmDocView.Close()
+            End If
+            If frmCollection.Item("frmProfileMatch").IsHandleCreated Then
+                frmProfileMatch.Show()
+                frmProfileMatch.BringToFront()
+            End If
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
+        ReLoad_Active_DocTab()
+    End Sub
+
+    Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
+        Set_DoclayoutBack()
+    End Sub
+    Sub Set_DoclayoutBack()
+        Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
+        Try
+            If File.Exists(oXMLPath) Then
+                File.Delete(oXMLPath)
+                ReLoad_Active_DocTab()
+                tslblState.Text = "Layout has been set back!"
+            Else
+                tslblState.Text = ""
+            End If
+        Catch ex As Exception
+            tslblState.Text = ""
+        End Try
+    End Sub
+    Sub ReLoad_Active_DocTab()
+        Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
+        Dim oConID = DTDocSearchDefinition.Rows(oTabIndex).Item("CONN_ID")
+        Dim oCommand = DTDocSearchDefinition.Rows(oTabIndex).Item("SQL_COMMAND")
+        Dim oProfID = DTDocSearchDefinition.Rows(oTabIndex).Item("PROFILE_ID")
+        oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfID)
+        RefreshTabDoc(oProfID, oConID, oCommand, oTabIndex, DTDocSearchDefinition.Rows(oTabIndex).Item("TAB_TITLE"))
+    End Sub
+
+    Private Sub GridViewDocSearch1_FocusedColumnChanged(sender As Object, e As Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDocSearch1.FocusedColumnChanged
+        Refresh_DocID(GridViewDocSearch1)
+    End Sub
+
+    Private Sub GridViewDocSearch2_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch2.FocusedColumnChanged
+        Refresh_DocID(GridViewDocSearch2)
+    End Sub
+
+    Private Sub GridViewDocSearch3_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch3.FocusedColumnChanged
+        Refresh_DocID(GridViewDocSearch3)
+    End Sub
+
+    Private Sub GridViewDocSearch4_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch4.FocusedColumnChanged
+        Refresh_DocID(GridViewDocSearch4)
+    End Sub
+
+    Private Sub GridViewDocSearch5_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch5.FocusedColumnChanged
+        Refresh_DocID(GridViewDocSearch5)
+    End Sub
+
+    Private Sub GridViewDocSearch2_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch2.FocusedRowChanged
+        Refresh_DocID(GridViewDocSearch2)
+    End Sub
+
+    Private Sub GridViewDocSearch3_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch3.FocusedRowChanged
+        Refresh_DocID(GridViewDocSearch3)
+    End Sub
+
+    Private Sub GridViewDocSearch4_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch4.FocusedRowChanged
+        Refresh_DocID(GridViewDocSearch4)
+    End Sub
+
+    Private Sub GridViewDocSearch5_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch5.FocusedRowChanged
+        Refresh_DocID(GridViewDocSearch5)
+    End Sub
+
+    Private Sub frmResultDoc_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
+
+    End Sub
+
+    Private Sub XtraTabControlDocs_TabIndexChanged(sender As Object, e As EventArgs) Handles XtraTabControlDocs.TabIndexChanged
+
+    End Sub
+
+    Private Sub XtraTabControlDocs_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControlDocs.SelectedPageChanged
+        If IsNothing(DTDocSearchDefinition) Then Exit Sub
+        Dim oConID = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("CONN_ID")
+        Dim oCommand = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("SQL_COMMAND")
+        Dim oProfileID = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("PROFILE_ID")
+        oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileID)
+        Dim oTabIndex = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_INDEX")
+        Dim oTabCaption = DTDocSearchDefinition.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_TITLE")
+        RefreshTabDoc(oProfileID, oConID, oCommand, oTabIndex, oTabCaption)
+    End Sub
+End Class

app/DD_Clipboard_Searcher/frmSettings.designer.vb

@@ -0,0 +1,517 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmSettings
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSettings))
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.chkIgnoreDocumentResolution = New System.Windows.Forms.CheckBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.txtZoomStep = New System.Windows.Forms.NumericUpDown()
+        Me.cbMouseWheelMode = New System.Windows.Forms.ComboBox()
+        Me.cbDocumentPosition = New System.Windows.Forms.ComboBox()
+        Me.cbDocumentAlignment = New System.Windows.Forms.ComboBox()
+        Me.chkEnableMenu = New System.Windows.Forms.CheckBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.cbDisplayQuality = New System.Windows.Forms.ComboBox()
+        Me.chkContinuousViewMode = New System.Windows.Forms.CheckBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btnApply = New System.Windows.Forms.Button()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.chkHQAnnotationsRendering = New System.Windows.Forms.CheckBox()
+        Me.chkAnnotationsDropShadow = New System.Windows.Forms.CheckBox()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.chkEnableICM = New System.Windows.Forms.CheckBox()
+        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.cbPDFRenderingEngine = New System.Windows.Forms.ComboBox()
+        Me.chkPDFVerifyDigitalCertificates = New System.Windows.Forms.CheckBox()
+        Me.chkPDFIncreaseTextContrast = New System.Windows.Forms.CheckBox()
+        Me.chkPDFEnableLinks = New System.Windows.Forms.CheckBox()
+        Me.chkPDFEnableFileLinks = New System.Windows.Forms.CheckBox()
+        Me.chkPDFDisplayFormFields = New System.Windows.Forms.CheckBox()
+        Me.cbPageDisplayMode = New System.Windows.Forms.ComboBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.chkEnableDeferredPainting = New System.Windows.Forms.CheckBox()
+        Me.GroupBox1.SuspendLayout
+        CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
+        CType(Me.txtZoomStep,System.ComponentModel.ISupportInitialize).BeginInit
+        Me.GroupBox2.SuspendLayout
+        Me.GroupBox3.SuspendLayout
+        Me.GroupBox4.SuspendLayout
+        Me.SuspendLayout
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.chkEnableDeferredPainting)
+        Me.GroupBox1.Controls.Add(Me.Label8)
+        Me.GroupBox1.Controls.Add(Me.cbPageDisplayMode)
+        Me.GroupBox1.Controls.Add(Me.chkIgnoreDocumentResolution)
+        Me.GroupBox1.Controls.Add(Me.PictureBox1)
+        Me.GroupBox1.Controls.Add(Me.txtZoomStep)
+        Me.GroupBox1.Controls.Add(Me.cbMouseWheelMode)
+        Me.GroupBox1.Controls.Add(Me.cbDocumentPosition)
+        Me.GroupBox1.Controls.Add(Me.cbDocumentAlignment)
+        Me.GroupBox1.Controls.Add(Me.chkEnableMenu)
+        Me.GroupBox1.Controls.Add(Me.Label6)
+        Me.GroupBox1.Controls.Add(Me.Label5)
+        Me.GroupBox1.Controls.Add(Me.Label4)
+        Me.GroupBox1.Controls.Add(Me.Label3)
+        Me.GroupBox1.Controls.Add(Me.Label2)
+        Me.GroupBox1.Controls.Add(Me.cbDisplayQuality)
+        Me.GroupBox1.Controls.Add(Me.chkContinuousViewMode)
+        Me.GroupBox1.Controls.Add(Me.Label1)
+        Me.GroupBox1.Location = New System.Drawing.Point(18, 18)
+        Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox1.Size = New System.Drawing.Size(436, 455)
+        Me.GroupBox1.TabIndex = 1
+        Me.GroupBox1.TabStop = false
+        Me.GroupBox1.Text = "General options"
+        '
+        'chkIgnoreDocumentResolution
+        '
+        Me.chkIgnoreDocumentResolution.AutoSize = true
+        Me.chkIgnoreDocumentResolution.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkIgnoreDocumentResolution.Location = New System.Drawing.Point(9, 382)
+        Me.chkIgnoreDocumentResolution.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkIgnoreDocumentResolution.Name = "chkIgnoreDocumentResolution"
+        Me.chkIgnoreDocumentResolution.Size = New System.Drawing.Size(229, 24)
+        Me.chkIgnoreDocumentResolution.TabIndex = 11
+        Me.chkIgnoreDocumentResolution.Text = "Ignore document resolution"
+        Me.chkIgnoreDocumentResolution.UseVisualStyleBackColor = true
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.PictureBox1.Location = New System.Drawing.Point(174, 305)
+        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(30, 31)
+        Me.PictureBox1.TabIndex = 3
+        Me.PictureBox1.TabStop = false
+        '
+        'txtZoomStep
+        '
+        Me.txtZoomStep.Location = New System.Drawing.Point(104, 28)
+        Me.txtZoomStep.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.txtZoomStep.Maximum = New Decimal(New Integer() {1000, 0, 0, 0})
+        Me.txtZoomStep.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
+        Me.txtZoomStep.Name = "txtZoomStep"
+        Me.txtZoomStep.Size = New System.Drawing.Size(118, 26)
+        Me.txtZoomStep.TabIndex = 0
+        Me.txtZoomStep.Value = New Decimal(New Integer() {1, 0, 0, 0})
+        '
+        'cbMouseWheelMode
+        '
+        Me.cbMouseWheelMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cbMouseWheelMode.FormattingEnabled = true
+        Me.cbMouseWheelMode.Location = New System.Drawing.Point(174, 263)
+        Me.cbMouseWheelMode.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.cbMouseWheelMode.Name = "cbMouseWheelMode"
+        Me.cbMouseWheelMode.Size = New System.Drawing.Size(158, 28)
+        Me.cbMouseWheelMode.TabIndex = 7
+        '
+        'cbDocumentPosition
+        '
+        Me.cbDocumentPosition.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cbDocumentPosition.FormattingEnabled = true
+        Me.cbDocumentPosition.Location = New System.Drawing.Point(174, 223)
+        Me.cbDocumentPosition.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.cbDocumentPosition.Name = "cbDocumentPosition"
+        Me.cbDocumentPosition.Size = New System.Drawing.Size(158, 28)
+        Me.cbDocumentPosition.TabIndex = 6
+        '
+        'cbDocumentAlignment
+        '
+        Me.cbDocumentAlignment.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cbDocumentAlignment.FormattingEnabled = true
+        Me.cbDocumentAlignment.Location = New System.Drawing.Point(174, 183)
+        Me.cbDocumentAlignment.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.cbDocumentAlignment.Name = "cbDocumentAlignment"
+        Me.cbDocumentAlignment.Size = New System.Drawing.Size(158, 28)
+        Me.cbDocumentAlignment.TabIndex = 5
+        '
+        'chkEnableMenu
+        '
+        Me.chkEnableMenu.AutoSize = true
+        Me.chkEnableMenu.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkEnableMenu.Location = New System.Drawing.Point(9, 346)
+        Me.chkEnableMenu.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkEnableMenu.Name = "chkEnableMenu"
+        Me.chkEnableMenu.Size = New System.Drawing.Size(206, 24)
+        Me.chkEnableMenu.TabIndex = 10
+        Me.chkEnableMenu.Text = "Enable contextual menu"
+        Me.chkEnableMenu.UseVisualStyleBackColor = true
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = true
+        Me.Label6.Location = New System.Drawing.Point(9, 311)
+        Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(133, 20)
+        Me.Label6.TabIndex = 9
+        Me.Label6.Text = "Background color"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = true
+        Me.Label5.Location = New System.Drawing.Point(10, 266)
+        Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(146, 20)
+        Me.Label5.TabIndex = 8
+        Me.Label5.Text = "Mouse wheel mode"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = true
+        Me.Label4.Location = New System.Drawing.Point(10, 226)
+        Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(142, 20)
+        Me.Label4.TabIndex = 7
+        Me.Label4.Text = "Document position"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = true
+        Me.Label3.Location = New System.Drawing.Point(10, 186)
+        Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(156, 20)
+        Me.Label3.TabIndex = 6
+        Me.Label3.Text = "Document alignment"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = true
+        Me.Label2.Location = New System.Drawing.Point(9, 106)
+        Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(109, 20)
+        Me.Label2.TabIndex = 4
+        Me.Label2.Text = "Display quality"
+        '
+        'cbDisplayQuality
+        '
+        Me.cbDisplayQuality.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cbDisplayQuality.FormattingEnabled = true
+        Me.cbDisplayQuality.Location = New System.Drawing.Point(174, 103)
+        Me.cbDisplayQuality.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.cbDisplayQuality.Name = "cbDisplayQuality"
+        Me.cbDisplayQuality.Size = New System.Drawing.Size(158, 28)
+        Me.cbDisplayQuality.TabIndex = 3
+        '
+        'chkContinuousViewMode
+        '
+        Me.chkContinuousViewMode.AutoSize = true
+        Me.chkContinuousViewMode.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkContinuousViewMode.Location = New System.Drawing.Point(9, 65)
+        Me.chkContinuousViewMode.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkContinuousViewMode.Name = "chkContinuousViewMode"
+        Me.chkContinuousViewMode.Size = New System.Drawing.Size(194, 24)
+        Me.chkContinuousViewMode.TabIndex = 2
+        Me.chkContinuousViewMode.Text = "Continuous view mode"
+        Me.chkContinuousViewMode.UseVisualStyleBackColor = true
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = true
+        Me.Label1.Location = New System.Drawing.Point(9, 31)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(85, 20)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Zoom step"
+        '
+        'btnApply
+        '
+        Me.btnApply.Location = New System.Drawing.Point(793, 520)
+        Me.btnApply.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.btnApply.Name = "btnApply"
+        Me.btnApply.Size = New System.Drawing.Size(112, 35)
+        Me.btnApply.TabIndex = 99
+        Me.btnApply.Text = "Apply"
+        Me.btnApply.UseVisualStyleBackColor = true
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.chkHQAnnotationsRendering)
+        Me.GroupBox2.Controls.Add(Me.chkAnnotationsDropShadow)
+        Me.GroupBox2.Location = New System.Drawing.Point(464, 18)
+        Me.GroupBox2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox2.Size = New System.Drawing.Size(436, 128)
+        Me.GroupBox2.TabIndex = 3
+        Me.GroupBox2.TabStop = false
+        Me.GroupBox2.Text = "Annotations options"
+        '
+        'chkHQAnnotationsRendering
+        '
+        Me.chkHQAnnotationsRendering.AutoSize = true
+        Me.chkHQAnnotationsRendering.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkHQAnnotationsRendering.Location = New System.Drawing.Point(9, 65)
+        Me.chkHQAnnotationsRendering.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkHQAnnotationsRendering.Name = "chkHQAnnotationsRendering"
+        Me.chkHQAnnotationsRendering.Size = New System.Drawing.Size(218, 24)
+        Me.chkHQAnnotationsRendering.TabIndex = 14
+        Me.chkHQAnnotationsRendering.Text = "HQ annotations rendering"
+        Me.chkHQAnnotationsRendering.UseVisualStyleBackColor = true
+        '
+        'chkAnnotationsDropShadow
+        '
+        Me.chkAnnotationsDropShadow.AutoSize = true
+        Me.chkAnnotationsDropShadow.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkAnnotationsDropShadow.Location = New System.Drawing.Point(9, 29)
+        Me.chkAnnotationsDropShadow.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkAnnotationsDropShadow.Name = "chkAnnotationsDropShadow"
+        Me.chkAnnotationsDropShadow.Size = New System.Drawing.Size(216, 24)
+        Me.chkAnnotationsDropShadow.TabIndex = 13
+        Me.chkAnnotationsDropShadow.Text = "Annotations drop shadow"
+        Me.chkAnnotationsDropShadow.UseVisualStyleBackColor = true
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.Controls.Add(Me.chkEnableICM)
+        Me.GroupBox3.Location = New System.Drawing.Point(18, 483)
+        Me.GroupBox3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox3.Size = New System.Drawing.Size(436, 71)
+        Me.GroupBox3.TabIndex = 2
+        Me.GroupBox3.TabStop = false
+        Me.GroupBox3.Text = "Image viewing options"
+        '
+        'chkEnableICM
+        '
+        Me.chkEnableICM.AutoSize = true
+        Me.chkEnableICM.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkEnableICM.Location = New System.Drawing.Point(9, 29)
+        Me.chkEnableICM.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkEnableICM.Name = "chkEnableICM"
+        Me.chkEnableICM.Size = New System.Drawing.Size(118, 24)
+        Me.chkEnableICM.TabIndex = 12
+        Me.chkEnableICM.Text = "Enable ICM"
+        Me.chkEnableICM.UseVisualStyleBackColor = true
+        '
+        'GroupBox4
+        '
+        Me.GroupBox4.Controls.Add(Me.Label7)
+        Me.GroupBox4.Controls.Add(Me.cbPDFRenderingEngine)
+        Me.GroupBox4.Controls.Add(Me.chkPDFVerifyDigitalCertificates)
+        Me.GroupBox4.Controls.Add(Me.chkPDFIncreaseTextContrast)
+        Me.GroupBox4.Controls.Add(Me.chkPDFEnableLinks)
+        Me.GroupBox4.Controls.Add(Me.chkPDFEnableFileLinks)
+        Me.GroupBox4.Controls.Add(Me.chkPDFDisplayFormFields)
+        Me.GroupBox4.Location = New System.Drawing.Point(464, 155)
+        Me.GroupBox4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.GroupBox4.Size = New System.Drawing.Size(436, 283)
+        Me.GroupBox4.TabIndex = 4
+        Me.GroupBox4.TabStop = false
+        Me.GroupBox4.Text = "PDF viewing options"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = true
+        Me.Label7.Location = New System.Drawing.Point(12, 188)
+        Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(163, 20)
+        Me.Label7.TabIndex = 6
+        Me.Label7.Text = "PDF rasterizer engine"
+        '
+        'cbPDFRenderingEngine
+        '
+        Me.cbPDFRenderingEngine.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cbPDFRenderingEngine.FormattingEnabled = true
+        Me.cbPDFRenderingEngine.Location = New System.Drawing.Point(183, 182)
+        Me.cbPDFRenderingEngine.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.cbPDFRenderingEngine.Name = "cbPDFRenderingEngine"
+        Me.cbPDFRenderingEngine.Size = New System.Drawing.Size(180, 28)
+        Me.cbPDFRenderingEngine.TabIndex = 19
+        '
+        'chkPDFVerifyDigitalCertificates
+        '
+        Me.chkPDFVerifyDigitalCertificates.AutoSize = true
+        Me.chkPDFVerifyDigitalCertificates.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkPDFVerifyDigitalCertificates.Location = New System.Drawing.Point(9, 225)
+        Me.chkPDFVerifyDigitalCertificates.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkPDFVerifyDigitalCertificates.Name = "chkPDFVerifyDigitalCertificates"
+        Me.chkPDFVerifyDigitalCertificates.Size = New System.Drawing.Size(201, 24)
+        Me.chkPDFVerifyDigitalCertificates.TabIndex = 20
+        Me.chkPDFVerifyDigitalCertificates.Text = "Verify digital certificates"
+        Me.chkPDFVerifyDigitalCertificates.UseVisualStyleBackColor = true
+        '
+        'chkPDFIncreaseTextContrast
+        '
+        Me.chkPDFIncreaseTextContrast.AutoSize = true
+        Me.chkPDFIncreaseTextContrast.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkPDFIncreaseTextContrast.Location = New System.Drawing.Point(9, 148)
+        Me.chkPDFIncreaseTextContrast.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkPDFIncreaseTextContrast.Name = "chkPDFIncreaseTextContrast"
+        Me.chkPDFIncreaseTextContrast.Size = New System.Drawing.Size(189, 24)
+        Me.chkPDFIncreaseTextContrast.TabIndex = 18
+        Me.chkPDFIncreaseTextContrast.Text = "Increase text contrast"
+        Me.chkPDFIncreaseTextContrast.UseVisualStyleBackColor = true
+        '
+        'chkPDFEnableLinks
+        '
+        Me.chkPDFEnableLinks.AutoSize = true
+        Me.chkPDFEnableLinks.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkPDFEnableLinks.Location = New System.Drawing.Point(9, 112)
+        Me.chkPDFEnableLinks.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkPDFEnableLinks.Name = "chkPDFEnableLinks"
+        Me.chkPDFEnableLinks.Size = New System.Drawing.Size(120, 24)
+        Me.chkPDFEnableLinks.TabIndex = 17
+        Me.chkPDFEnableLinks.Text = "Enable links"
+        Me.chkPDFEnableLinks.UseVisualStyleBackColor = true
+        '
+        'chkPDFEnableFileLinks
+        '
+        Me.chkPDFEnableFileLinks.AutoSize = true
+        Me.chkPDFEnableFileLinks.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkPDFEnableFileLinks.Location = New System.Drawing.Point(9, 77)
+        Me.chkPDFEnableFileLinks.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkPDFEnableFileLinks.Name = "chkPDFEnableFileLinks"
+        Me.chkPDFEnableFileLinks.Size = New System.Drawing.Size(144, 24)
+        Me.chkPDFEnableFileLinks.TabIndex = 16
+        Me.chkPDFEnableFileLinks.Text = "Enable file links"
+        Me.chkPDFEnableFileLinks.UseVisualStyleBackColor = true
+        '
+        'chkPDFDisplayFormFields
+        '
+        Me.chkPDFDisplayFormFields.AutoSize = true
+        Me.chkPDFDisplayFormFields.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkPDFDisplayFormFields.Location = New System.Drawing.Point(9, 42)
+        Me.chkPDFDisplayFormFields.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkPDFDisplayFormFields.Name = "chkPDFDisplayFormFields"
+        Me.chkPDFDisplayFormFields.Size = New System.Drawing.Size(163, 24)
+        Me.chkPDFDisplayFormFields.TabIndex = 15
+        Me.chkPDFDisplayFormFields.Text = "Display form fields"
+        Me.chkPDFDisplayFormFields.UseVisualStyleBackColor = true
+        '
+        'cbPageDisplayMode
+        '
+        Me.cbPageDisplayMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cbPageDisplayMode.FormattingEnabled = true
+        Me.cbPageDisplayMode.Location = New System.Drawing.Point(174, 143)
+        Me.cbPageDisplayMode.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.cbPageDisplayMode.Name = "cbPageDisplayMode"
+        Me.cbPageDisplayMode.Size = New System.Drawing.Size(193, 28)
+        Me.cbPageDisplayMode.TabIndex = 4
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = true
+        Me.Label8.Location = New System.Drawing.Point(9, 146)
+        Me.Label8.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(104, 20)
+        Me.Label8.TabIndex = 16
+        Me.Label8.Text = "Display mode"
+        '
+        'chkEnableDeferredPainting
+        '
+        Me.chkEnableDeferredPainting.AutoSize = true
+        Me.chkEnableDeferredPainting.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkEnableDeferredPainting.Location = New System.Drawing.Point(9, 416)
+        Me.chkEnableDeferredPainting.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.chkEnableDeferredPainting.Name = "chkEnableDeferredPainting"
+        Me.chkEnableDeferredPainting.Size = New System.Drawing.Size(209, 24)
+        Me.chkEnableDeferredPainting.TabIndex = 17
+        Me.chkEnableDeferredPainting.Text = "Enable deferred painting"
+        Me.chkEnableDeferredPainting.UseVisualStyleBackColor = true
+        '
+        'frmSettings
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(9!, 20!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(918, 569)
+        Me.Controls.Add(Me.GroupBox4)
+        Me.Controls.Add(Me.GroupBox3)
+        Me.Controls.Add(Me.GroupBox2)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.btnApply)
+        Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.MaximizeBox = false
+        Me.MinimizeBox = false
+        Me.Name = "frmSettings"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Viewer settings"
+        Me.GroupBox1.ResumeLayout(false)
+        Me.GroupBox1.PerformLayout
+        CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).EndInit
+        CType(Me.txtZoomStep,System.ComponentModel.ISupportInitialize).EndInit
+        Me.GroupBox2.ResumeLayout(false)
+        Me.GroupBox2.PerformLayout
+        Me.GroupBox3.ResumeLayout(false)
+        Me.GroupBox3.PerformLayout
+        Me.GroupBox4.ResumeLayout(false)
+        Me.GroupBox4.PerformLayout
+        Me.ResumeLayout(false)
+
+End Sub
+    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+    Friend WithEvents chkEnableMenu As System.Windows.Forms.CheckBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents cbDisplayQuality As System.Windows.Forms.ComboBox
+    Friend WithEvents chkContinuousViewMode As System.Windows.Forms.CheckBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtZoomStep As System.Windows.Forms.NumericUpDown
+    Friend WithEvents cbMouseWheelMode As System.Windows.Forms.ComboBox
+    Friend WithEvents cbDocumentPosition As System.Windows.Forms.ComboBox
+    Friend WithEvents cbDocumentAlignment As System.Windows.Forms.ComboBox
+    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+    Friend WithEvents btnApply As System.Windows.Forms.Button
+    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+    Friend WithEvents chkHQAnnotationsRendering As System.Windows.Forms.CheckBox
+    Friend WithEvents chkAnnotationsDropShadow As System.Windows.Forms.CheckBox
+    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
+    Friend WithEvents chkEnableICM As System.Windows.Forms.CheckBox
+    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+    Friend WithEvents chkPDFIncreaseTextContrast As System.Windows.Forms.CheckBox
+    Friend WithEvents chkPDFEnableLinks As System.Windows.Forms.CheckBox
+    Friend WithEvents chkPDFEnableFileLinks As System.Windows.Forms.CheckBox
+    Friend WithEvents chkPDFDisplayFormFields As System.Windows.Forms.CheckBox
+    Friend WithEvents chkPDFVerifyDigitalCertificates As System.Windows.Forms.CheckBox
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents cbPDFRenderingEngine As System.Windows.Forms.ComboBox
+    Friend WithEvents chkIgnoreDocumentResolution As System.Windows.Forms.CheckBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents cbPageDisplayMode As ComboBox
+    Friend WithEvents chkEnableDeferredPainting As CheckBox
+End Class

app/DD_Clipboard_Searcher/frmSettings.vb

@@ -0,0 +1,142 @@
+Option Strict On
+Option Explicit On
+
+Imports GdPicture14
+
+Public Class frmSettings
+
+    Private ReadOnly _owner As GdViewer
+
+    Private ReadOnly _mouseWheelModes As New Dictionary(Of ViewerMouseWheelMode, String) From {
+        {ViewerMouseWheelMode.MouseWheelModeZoom, "Zoom"},
+        {ViewerMouseWheelMode.MouseWheelModeVerticalScroll, "Scroll"},
+        {ViewerMouseWheelMode.MouseWheelModePageChange, "Page change"}
+    }
+    Private ReadOnly _documentAlignments As New Dictionary(Of ViewerDocumentAlignment, String) From {
+        {ViewerDocumentAlignment.DocumentAlignmentBottomCenter, "Bottom center"},
+        {ViewerDocumentAlignment.DocumentAlignmentBottomLeft, "Bottom left"},
+        {ViewerDocumentAlignment.DocumentAlignmentBottomRight, "Bottom right"},
+        {ViewerDocumentAlignment.DocumentAlignmentMiddleCenter, "Middle center"},
+        {ViewerDocumentAlignment.DocumentAlignmentMiddleLeft, "Middle left"},
+        {ViewerDocumentAlignment.DocumentAlignmentMiddleRight, "Middle right"},
+        {ViewerDocumentAlignment.DocumentAlignmentTopCenter, "Top center"},
+        {ViewerDocumentAlignment.DocumentAlignmentTopLeft, "Top left"},
+        {ViewerDocumentAlignment.DocumentAlignmentTopRight, "Top right"}
+    }
+    Private ReadOnly _documentPositions As New Dictionary(Of ViewerDocumentPosition, String) From {
+        {ViewerDocumentPosition.DocumentPositionBottomCenter, "Bottom center"},
+        {ViewerDocumentPosition.DocumentPositionBottomLeft, "Bottom left"},
+        {ViewerDocumentPosition.DocumentPositionBottomRight, "Bottom right"},
+        {ViewerDocumentPosition.DocumentPositionMiddleCenter, "Middle center"},
+        {ViewerDocumentPosition.DocumentPositionMiddleLeft, "Middle left"},
+        {ViewerDocumentPosition.DocumentPositionMiddleRight, "Middle right"},
+        {ViewerDocumentPosition.DocumentPositionTopCenter, "Top center"},
+        {ViewerDocumentPosition.DocumentPositionTopLeft, "Top left"},
+        {ViewerDocumentPosition.DocumentPositionTopRight, "Top right"}
+    }
+    Private ReadOnly _displayQualities As New Dictionary(Of DisplayQuality, String) From {
+        {DisplayQuality.DisplayQualityLow, "Low"},
+        {DisplayQuality.DisplayQualityBilinear, "Bilinear"},
+        {DisplayQuality.DisplayQualityBicubic, "Bicubic"},
+        {DisplayQuality.DisplayQualityBilinearHQ, "Bilinear HQ"},
+        {DisplayQuality.DisplayQualityBicubicHQ, "Bicubic HQ"},
+        {DisplayQuality.DisplayQualityAutomatic, "Automatic"}
+    }
+    Private ReadOnly _renderingEngines As New Dictionary(Of PdfRasterizerEngine, String) From {
+        {PdfRasterizerEngine.PdfRasterizerEngineGdiplus, "GDI+"},
+        {PdfRasterizerEngine.PdfRasterizerEngineWPF, "WPF"},
+        {PdfRasterizerEngine.PdfRasterizerEngineHybrid, "Hybrid"}
+    }
+    Private ReadOnly _displayPageModes As New Dictionary(Of PageDisplayMode, String) From {
+        {PageDisplayMode.MultiplePagesView, "Multiple pages"},
+        {PageDisplayMode.SinglePageView, "Single page"}
+    }
+
+    Public Sub New(ByVal owner As GdViewer)
+        InitializeComponent()
+        _owner = owner
+    End Sub
+
+    Private Sub frmSettings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        For Each item In _mouseWheelModes
+            cbMouseWheelMode.Items.Add(item.Value)
+        Next
+        For Each item In _documentAlignments
+            cbDocumentAlignment.Items.Add(item.Value)
+        Next
+        For Each item In _documentPositions
+            cbDocumentPosition.Items.Add(item.Value)
+        Next
+        For Each item In _displayQualities
+            cbDisplayQuality.Items.Add(item.Value)
+        Next
+        For Each item In _renderingEngines
+            cbPDFRenderingEngine.Items.Add(item.Value)
+        Next
+        For Each item In _displayPageModes
+            cbPageDisplayMode.Items.Add(item.Value)
+        Next
+
+        cbMouseWheelMode.SelectedIndex = CType(_owner.MouseWheelMode, Integer)
+        cbDocumentAlignment.SelectedItem = _documentAlignments(_owner.DocumentAlignment)
+        cbDocumentPosition.SelectedItem = _documentPositions(_owner.DocumentPosition)
+        cbDisplayQuality.SelectedItem = _displayQualities(_owner.DisplayQuality)
+        cbPageDisplayMode.SelectedItem = _displayPageModes(_owner.PageDisplayMode)
+        txtZoomStep.Text = CStr(_owner.ZoomStep)
+        chkContinuousViewMode.Checked = _owner.ContinuousViewMode
+        chkEnableMenu.Checked = _owner.EnableMenu
+        PictureBox1.BackColor = _owner.BackColor
+        chkIgnoreDocumentResolution.Checked = _owner.IgnoreDocumentResolution
+        chkEnableDeferredPainting.Checked = _owner.EnableDeferredPainting
+
+        chkAnnotationsDropShadow.Checked = _owner.AnnotationDropShadow
+        chkHQAnnotationsRendering.Checked = _owner.HQAnnotationRendering
+
+        chkEnableICM.Checked = _owner.EnableICM
+
+        chkPDFDisplayFormFields.Checked = _owner.PdfDisplayFormField
+        chkPDFEnableFileLinks.Checked = _owner.PdfEnableFileLinks
+        chkPDFEnableLinks.Checked = _owner.PdfEnableLinks
+        chkPDFIncreaseTextContrast.Checked = _owner.PdfIncreaseTextContrast
+        cbPDFRenderingEngine.SelectedItem = _renderingEngines(_owner.PdfRasterizerEngine)
+        chkPDFVerifyDigitalCertificates.Checked = _owner.PdfVerifyDigitalCertificates
+    End Sub
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        Using colorDialog As New ColorDialog
+            If colorDialog.ShowDialog() = DialogResult.OK Then
+                PictureBox1.BackColor = colorDialog.Color
+            End If
+        End Using
+    End Sub
+
+    Private Sub btnApply_Click(sender As Object, e As EventArgs) Handles btnApply.Click
+        _owner.MouseWheelMode = _mouseWheelModes.FirstOrDefault(Function(x) x.Value.Contains(cbMouseWheelMode.SelectedItem.ToString())).Key
+        _owner.DocumentAlignment = _documentAlignments.FirstOrDefault(Function(x) x.Value.Contains(cbDocumentAlignment.SelectedItem.ToString())).Key
+        _owner.DocumentPosition = _documentPositions.FirstOrDefault(Function(x) x.Value.Contains(cbDocumentPosition.SelectedItem.ToString())).Key
+        _owner.DisplayQuality = _displayQualities.FirstOrDefault(Function(x) x.Value.Contains(cbDisplayQuality.SelectedItem.ToString())).Key
+        _owner.PageDisplayMode = _displayPageModes.FirstOrDefault(Function(x) x.Value.Contains(cbPageDisplayMode.SelectedItem.ToString())).Key
+
+        _owner.ZoomStep = CInt(txtZoomStep.Text)
+        _owner.ContinuousViewMode = chkContinuousViewMode.Checked
+        _owner.EnableMenu = chkEnableMenu.Checked
+        _owner.BackColor = PictureBox1.BackColor
+        _owner.IgnoreDocumentResolution = chkIgnoreDocumentResolution.Checked
+        _owner.EnableDeferredPainting = chkEnableDeferredPainting.Checked
+
+        _owner.AnnotationDropShadow = chkAnnotationsDropShadow.Checked
+        _owner.HQAnnotationRendering = chkHQAnnotationsRendering.Checked
+
+        _owner.EnableICM = chkEnableICM.Checked
+
+        _owner.PdfDisplayFormField = chkPDFDisplayFormFields.Checked
+        _owner.PdfEnableFileLinks = chkPDFEnableFileLinks.Checked
+        _owner.PdfEnableLinks = chkPDFEnableLinks.Checked
+        _owner.PdfIncreaseTextContrast = chkPDFIncreaseTextContrast.Checked
+        _owner.PdfRasterizerEngine = _renderingEngines.FirstOrDefault(Function(x) x.Value.Contains(cbPDFRenderingEngine.SelectedItem.ToString())).Key
+        _owner.PdfVerifyDigitalCertificates = chkPDFVerifyDigitalCertificates.Checked
+
+        Me.Close()
+    End Sub
+
+End Class

app/DD_Clipboard_Searcher/frmStart.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmMain
+Partial Class frmStart
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,17 +20,18 @@ Partial Class frmMain
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
+        Me.components = New System.ComponentModel.Container()
-        Me.SplashScreenManager1 = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.DD_Clipboard_Watcher.WaitForm1), True, True)
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart))
-        Me.NotifyIconMain = New System.Windows.Forms.NotifyIcon()
+        Me.NotifyIconMain = New System.Windows.Forms.NotifyIcon(Me.components)
-        Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip()
+        Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ClientÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
         Me.tslblUser = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.TimerClose = New System.Windows.Forms.Timer()
+        Me.TimerClose = New System.Windows.Forms.Timer(Me.components)
-        Me.ContextMenuStripForm = New System.Windows.Forms.ContextMenuStrip()
+        Me.ContextMenuStripForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.MinimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
@@ -44,10 +45,6 @@ Partial Class frmMain
         Me.GroupBox1.SuspendLayout()
         Me.SuspendLayout()
         '
-        'SplashScreenManager1
-        '
-        Me.SplashScreenManager1.ClosingDelay = 500
-        '
         'NotifyIconMain
         '
         Me.NotifyIconMain.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
@@ -60,9 +57,9 @@ Partial Class frmMain
         '
         'cmstrpNotifyIcon
         '
-        Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiChangeState})
+        Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiChangeState, Me.ClientÖffnenToolStripMenuItem})
         Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon"
-        Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 26)
+        Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 70)
         '
         'tsmiChangeState
         '
@@ -72,6 +69,13 @@ Partial Class frmMain
         Me.tsmiChangeState.Tag = "stop"
         Me.tsmiChangeState.Text = "Überwachung Clipboard stoppen"
         '
+        'ClientÖffnenToolStripMenuItem
+        '
+        Me.ClientÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.door_open
+        Me.ClientÖffnenToolStripMenuItem.Name = "ClientÖffnenToolStripMenuItem"
+        Me.ClientÖffnenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
+        Me.ClientÖffnenToolStripMenuItem.Text = "Client öffnen"
+        '
         'StatusStrip1
         '
         Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblUser})
@@ -216,5 +220,5 @@ Partial Class frmMain
     Friend WithEvents Label3 As Label
     Friend WithEvents lbHKFunction As Label
     Friend WithEvents GroupBox1 As GroupBox
-    Friend WithEvents SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager
+    Friend WithEvents ClientÖffnenToolStripMenuItem As ToolStripMenuItem
 End Class

app/DD_Clipboard_Searcher/frmStart.resx

@@ -118,10 +118,10 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <metadata name="NotifyIconMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>196, 17</value>
+    <value>17, 17</value>
   </metadata>
   <metadata name="cmstrpNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>332, 17</value>
+    <value>153, 17</value>
   </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="NotifyIconMain.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -1257,7 +1257,7 @@
 </value>
   </data>
   <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>478, 17</value>
+    <value>299, 17</value>
   </metadata>
   <data name="tslblUser.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -1271,10 +1271,10 @@
 </value>
   </data>
   <metadata name="TimerClose.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>595, 17</value>
+    <value>416, 17</value>
   </metadata>
   <metadata name="ContextMenuStripForm.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>707, 17</value>
+    <value>528, 17</value>
   </metadata>
   <data name="btnAdminConfig.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

app/DD_Clipboard_Searcher/frmStart.vb

@@ -1,7 +1,7 @@
 Imports System.ComponentModel
 Imports System.Threading
 Imports DD_LIB_Standards
-Public Class frmMain
+Public Class frmStart
     Dim WithEvents Hotkey As New clsHotkey(Me)
 
     Private PID As Integer
@@ -40,12 +40,14 @@ Public Class frmMain
         'End With
         Dim found As Boolean = False
         CLIPBOARD_TEXT = Clipboard.GetText
-        Logger.Debug(String.Format(" >>{0} - Clipboard-Watcher fired for process '{1}'", Now.ToString, PROC_Name), False)
+        Logger.Debug(String.Format(" >>[{0}] Clipboard-Watcher fired for process '{1}'", Now.ToString, CurrPROC_Name), False)
-
+        Dim oDTMatchProfiles As DataTable = New DataTable
-        For Each row As DataRow In DT_USER_PROFILES.Rows
+        oDTMatchProfiles.Columns.Add("GUID")
-            If found = True Then Exit For
+        oDTMatchProfiles.Columns.Add("NAME")
-            If PROC_Name.ToUpper = row.Item("PROC_NAME").ToString.ToUpper Then
+        For Each oProfileRow As DataRow In DT_USER_PROFILES.Rows
-                Dim regex_expression = row.Item("REGEX_EXPRESSION")
+            'If found = True Then Exit For
+            If CurrPROC_Name.ToUpper = oProfileRow.Item("PROC_NAME").ToString.ToUpper Then
+                Dim regex_expression = oProfileRow.Item("REGEX_EXPRESSION")
                 Dim regex As New System.Text.RegularExpressions.Regex(regex_expression)
                 Dim match As System.Text.RegularExpressions.Match = regex.Match(CLIPBOARD_TEXT)
                 If match.Success Then
@@ -53,7 +55,12 @@ Public Class frmMain
                     ' If match.Groups(0).Value <> CURR_MATCH_RESULT Then
                     CURR_MATCH_RESULT = match.Groups(0).Value
                     If Not IsNothing(CURR_MATCH_RESULT) Then
-                        CURR_MATCH_WM_SEARCH = row.Item("WD_SEARCH")
+                        CURR_MATCH_WM_SEARCH = oProfileRow.Item("WD_SEARCH")
+
+                        Dim onewMatchRow As DataRow = oDTMatchProfiles.NewRow
+                        onewMatchRow("GUID") = oProfileRow.Item("GUID")
+                        onewMatchRow("NAME") = oProfileRow.Item("NAME")
+                        oDTMatchProfiles.Rows.Add(onewMatchRow)
 
                         found = True
                     End If
@@ -68,7 +75,10 @@ Public Class frmMain
             End If
         Next
         If found = False Then
-            Logger.Debug(String.Format(" >> {0} - Process '{1}' not configured!", Now.ToString, PROC_Name), False)
+            Logger.Debug(String.Format(" >> {0} - Process '{1}' not configured!", Now.ToString, CurrPROC_Name), False)
+            CurrDT_PROFILE_MATCH = Nothing
+        Else
+            CurrDT_PROFILE_MATCH = oDTMatchProfiles
         End If
 
     End Sub
@@ -171,18 +181,26 @@ Public Class frmMain
     End Sub
     Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles Hotkey.HotKeyPressed
         If HotKeyID = 354523017 Then
-
+            If Not IsNothing(CURR_MATCH_RESULT) Then
-            If Not IsNothing(CURR_MATCH_RESULT) And Not IsNothing(CURR_MATCH_WM_SEARCH) Then
+                CHECK_PROFILE_MATCH()
-                SplashScreenManager1.ShowForm(Me, GetType(WaitForm1), True, True, False)
-                clsSearch.RUN_WD_SEARCH(CURR_MATCH_WM_SEARCH)
-                'Close Wait Form
-                SplashScreenManager1.CloseForm(False)
             End If
+            'If Not IsNothing(CURR_MATCH_RESULT) And Not IsNothing(CURR_MATCH_WM_SEARCH) Then
+            '    clsSearch.RUN_WD_SEARCH(CURR_MATCH_WM_SEARCH)
+            '    'Close Wait Form
+            'End If
         ElseIf HotKeyID = 354522017 Then
             Change_Monitoring_State()
         End If
 
     End Sub
+    Sub CHECK_PROFILE_MATCH()
+        If CurrDT_PROFILE_MATCH.Rows.Count = 1 Then
+            frmProfileMatch.ShowDialog()
+            clsSearch.RUN_WD_SEARCH(CURR_MATCH_WM_SEARCH)
+        Else
+            frmProfileMatch.ShowDialog()
+        End If
+    End Sub
     Sub Change_Monitoring_State()
         If MONITORING_ACTIVE = True Then
             NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde inaktiviert!", ToolTipIcon.Info)
@@ -214,6 +232,9 @@ Public Class frmMain
     End Sub
 
     Private Sub NotifyIcon1_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIconMain.DoubleClick
+        OpenClose()
+    End Sub
+    Sub OpenClose()
         If Me.Visible = False Then
             Me.BringToFront()
             Me.Visible = True
@@ -282,7 +303,7 @@ Public Class frmMain
         Me.Hide()
     End Sub
 
-    Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+    Private Sub ClientÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientÖffnenToolStripMenuItem.Click
-
+        OpenClose()
     End Sub
 End Class

app/DD_Clipboard_Searcher/modCurrent.vb

@@ -23,6 +23,7 @@ Module modCurrent
     Public USER_SHORTNAME
     Public USER_EMAIL
     Public USER_LANGUAGE As String = "de-DE"
+    Public USER_DATE_FORMAT As String
     Public USER_EXISTS = False
     Public USER_IN_MODULE = False
 
@@ -51,9 +52,13 @@ Module modCurrent
     Public CURR_FOCUSED_WINDOWNAME
     Public MONITORING_ACTIVE As Boolean = True
 
-    Public PROC_PID As String
+    Public CurrPROC_PID As String
-    Public PROC_Name As String
+    Public CurrPROC_Name As String
-    Public PROC_WindowTitle As String
+    Public CurrPROC_WindowTitle As String
 
     Public CLIENT_SELECTED As Integer = 0
+    Public CurrDT_PROFILE_MATCH As DataTable
+    Public CURRENT_DT_DOC_SEARCHES As DataTable
+    Public CURRENT_DT_DATA_SEARCHES As DataTable
+    Public CurrSearch2Load As Object
 End Module