MS3

app/DD-Record-Organiser/DD-Record-Organiser.vbproj

@@ -1166,6 +1166,7 @@
     <None Include="Resources\brick.png" />
   </ItemGroup>
   <ItemGroup>
+    <None Include="Resources\NetworkPipes_32xLG.png" />
     <None Include="Resources\dwg.png" />
     <None Include="Resources\doc_excel_csv.png" />
     <None Include="Resources\windream-Logo-transparent_klein.png" />

app/DD-Record-Organiser/My Project/Resources.Designer.vb

@@ -1330,6 +1330,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property NetworkPipes_32xLG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("NetworkPipes_32xLG", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

app/DD-Record-Organiser/My Project/Resources.resx

@@ -136,8 +136,8 @@
   <data name="DD_Icons-ADDI" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\DD_Icons-ADDI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Home_5699_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="brainpool" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\brainpool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -184,12 +184,18 @@
   <data name="f6" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\f6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="windream-Logo-transparent1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\windream-Logo-transparent1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="text" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\text.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="userAccounts" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\userAccounts.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="user_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\user_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -208,9 +214,6 @@
   <data name="112_RefreshArrow_Blue_24x24_72" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\112_RefreshArrow_Blue_24x24_72.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Filter" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Filter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="module_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\module_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -238,12 +241,12 @@
   <data name="table" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\table.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="changechartlegendalignment_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\changechartlegendalignment_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="page_excel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\page_excel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="dtp" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\dtp.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -253,8 +256,11 @@
   <data name="application_view_tile" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\application_view_tile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="application_view_detail" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Home_5699_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\application_view_detail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="magifier_zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -277,8 +283,8 @@
   <data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="mail" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Filter" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\mail.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Filter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="flag_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -304,12 +310,6 @@
   <data name="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="AddTable_5632" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="lightbulb" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\lightbulb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -358,6 +358,9 @@
   <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="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="database_lightning" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_lightning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -418,15 +421,12 @@
   <data name="database_key" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="AddTable_5632" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="windream-Logo-transparent" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\windream-Logo-transparent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="1532_Flag_Blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\1532_Flag_Blue.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Men6" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Men6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -436,9 +436,6 @@
   <data name="database_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="brainpool" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\brainpool.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>
@@ -457,6 +454,9 @@
   <data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Excel_25ixel.jpg;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="benutzer3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\benutzer3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -466,6 +466,9 @@
   <data name="user_suit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="windream_Logo_transparent_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\windream-Logo-transparent_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="WebUserControl(ascx)_11270_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WebUserControl(ascx)_11270_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -487,6 +490,9 @@
   <data name="email_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="mail" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\mail.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="bricks" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bricks.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -505,6 +511,9 @@
   <data name="folder_Open_32xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\folder_Open_32xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Men5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="page_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -535,8 +544,8 @@
   <data name="keinbild" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\keinbild.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="changechartlegendalignment_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="1532_Flag_Blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\changechartlegendalignment_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\1532_Flag_Blue.ico;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>
@@ -547,8 +556,8 @@
   <data name="f1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\f1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\arrow_refresh.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>
@@ -586,8 +595,8 @@
   <data name="138_PushPin_32x42_72" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\138_PushPin_32x42_721.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Men5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="database_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="database_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -598,6 +607,9 @@
   <data name="EditLabel_13239" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\EditLabel_13239.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="application_view_detail" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\application_view_detail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="HomeHS" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\HomeHS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -610,16 +622,7 @@
   <data name="action_Cancel_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="windream-Logo-transparent1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="NetworkPipes_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\windream-Logo-transparent1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\NetworkPipes_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="windream_Logo_transparent_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\windream-Logo-transparent_klein.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="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>
 </root>

app/DD-Record-Organiser/frmConstructor_Main.resx

@@ -500,11 +500,11 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB
-        AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAcC8AAAYNAAAAAAAACw==
+        AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAIS8AAJwMAAAAAAAACw==
 </value>
   </data>
   <data name="AxObjectListControl.Size" type="System.Drawing.Size, System.Drawing">
-    <value>459, 126</value>
+    <value>456, 122</value>
   </data>
   <data name="AxObjectListControl.TabIndex" type="System.Int32, mscorlib">
     <value>6</value>

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -95,6 +95,7 @@ Public Class frmConstructor_Main
     Private RIGHT_DELETE_DOC As Boolean = False
 
     Private RIGHT_ONLY_READ As Boolean = False
+    Private RIGHT_WINDREAM_FORBIDDEN As Boolean = False
 
     Private windream_Docshow As Boolean = False
     Private WD_Suche As String
@@ -123,6 +124,7 @@ Public Class frmConstructor_Main
     Private RECORD_ID As Integer
     Private PARENT_ID As Integer
     Private SQL_RIGHT_READ_AND_VIEW_ONLY As String = ""
+    Private SQL_RIGHT_WINDREAM_FORBIDDEN As String = ""
 
     Private FORM_TYPE As Integer
     Private ENTITY_ID As Integer
@@ -751,6 +753,7 @@ Public Class frmConstructor_Main
                 Show_Selected_Record_Data(Grid_RecordID, False)
 
                 RIGHT_ONLY_READ = False
+                RIGHT_WINDREAM_FORBIDDEN = False
                 tsmi_RecordDelete.Enabled = True
                 DeleteToolStripMenuItem.Enabled = True
                 CopyToolStripMenuItem.Enabled = True
@@ -758,6 +761,9 @@ Public Class frmConstructor_Main
                 PropertiesToolStripMenuItem.Enabled = True
                 tslblLocked.Visible = False
                 TabFollowUp.PageEnabled = True
+
+                TabWindream.PageEnabled = True
+                WindreamsucheNeuLadenToolStripMenuItem.Enabled = True
                 Dim tempsql
                 If SQL_RIGHT_READ_AND_VIEW_ONLY <> "" Then
                     Try
@@ -809,6 +815,47 @@ Public Class frmConstructor_Main
                         ClassLogger.Add("TempSQL so far: " & tempsql)
                     End Try
                 End If
+                If SQL_RIGHT_WINDREAM_FORBIDDEN <> "" Then
+                    Try
+                        tempsql = SQL_RIGHT_WINDREAM_FORBIDDEN
+                        tempsql = tempsql.Replace("@RECORDID", RECORD_ID)
+                        tempsql = tempsql.Replace("@RECORD_ID", RECORD_ID)
+                        tempsql = tempsql.Replace("@USER_ID", USER_GUID)
+                        tempsql = tempsql.Replace("@USER_GUID", USER_GUID)
+
+                        ''Regulären Ausdruck zum Auslesen der windream-Indexe definieren
+                        'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
+                        '' einen Regulären Ausdruck laden
+                        'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
+                        '' die Vorkommen im SQL-String auslesen
+                        'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(tempsql)
+                        '' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
+                        ''#####
+                        '' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
+                        'For Each element As System.Text.RegularExpressions.Match In elemente
+                        '    Dim elementohneSZ = element.Value.Replace("[%", "")
+                        '    elementohneSZ = elementohneSZ.Replace("]", "")
+                        '    ' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
+                        '    tempsql = tempsql.Replace(element.Value, controlvalue.ToString)
+                        'Next
+
+                        Try
+                            RIGHT_WINDREAM_FORBIDDEN = CBool(ClassDatabase.Execute_Scalar(tempsql))
+                        Catch ex As Exception
+                            RIGHT_WINDREAM_FORBIDDEN = False
+                        End Try
+                        If RIGHT_WINDREAM_FORBIDDEN = True Then
+                            ' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
+                            TabWindream.PageEnabled = False
+                            WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
+                        End If
+
+                    Catch ex As Exception
+                        MsgBox("unexpected Error in Check Read-Limitations WINDREAM:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                        ClassLogger.Add("Unexpected Error in Check Read-Limitations WINDREAM: " & ex.Message)
+                        ClassLogger.Add("TempSQL so far: " & tempsql)
+                    End Try
+                End If
 
                 If TCDetails.SelectedTabPage Is Nothing Then
                     Exit Sub
@@ -1650,6 +1697,7 @@ Public Class frmConstructor_Main
             POS_ENTITY = ClassDatabase.Execute_Scalar("SELECT POS_ENTITY FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
             CONTROL_DOCTYPE_MATCH = ClassDatabase.Execute_Scalar("SELECT CONTROL_DOCTYPE_MATCH FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
             SQL_RIGHT_READ_AND_VIEW_ONLY = ClassDatabase.Execute_Scalar("SELECT SQL_RIGHT_READ_AND_VIEW_ONLY FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
+            SQL_RIGHT_WINDREAM_FORBIDDEN = ClassDatabase.Execute_Scalar("SELECT SQL_RIGHT_WINDREAM_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
             If VIEW_ID_RUNTIME <> -1 Then
                 GRID_TYPE_ID = VIEW_ID_RUNTIME
             Else
@@ -3812,13 +3860,15 @@ Public Class frmConstructor_Main
             Load_POSGrid_Layout()
         End If
         If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then
-            Load_DocGrid_Layout()
+            If RIGHT_WINDREAM_FORBIDDEN = False Then
-            tsButtonEdit.Enabled = False
+                Load_DocGrid_Layout()
-            If RECORD_ID = 0 Then
+                tsButtonEdit.Enabled = False
-                RUN_WD_SEARCH(WD_Suche, "ENTITY")
+                If RECORD_ID = 0 Then
-            Else
+                    RUN_WD_SEARCH(WD_Suche, "ENTITY")
-                ' RUN_WD_SEARCH(WD_Suche, "RECORD")
+                Else
-                RUN_WDSEARCH_GRID()
+                    ' RUN_WD_SEARCH(WD_Suche, "RECORD")
+                    RUN_WDSEARCH_GRID()
+                End If
             End If
         End If
         If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Or TCDetails.SelectedTabPage.Text.ToLower.StartsWith("follo") Then
@@ -3863,7 +3913,7 @@ Public Class frmConstructor_Main
         End If
     End Sub
     Sub Drag_Drop(e As DragEventArgs)
-        If act_FormViewID <> 0 And RIGHT_ONLY_READ = False Then
+        If act_FormViewID <> 0 And RIGHT_ONLY_READ = False And RIGHT_WINDREAM_FORBIDDEN = False Then
             Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
             If ClassDatabase.Execute_Scalar(sql, True) = 0 Then
                 MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
@@ -3922,6 +3972,9 @@ Public Class frmConstructor_Main
             If RIGHT_ONLY_READ = True Then
                 ClassLogger.Add(">> RIGHT_ONLY_READ is set! No DragDrop allowed", False)
             End If
+            If RIGHT_WINDREAM_FORBIDDEN = True Then
+                ClassLogger.Add(">> RIGHT_WD_FORBIDDEN is set! No DragDrop allowed", False)
+            End If
 
         End If
     End Sub

app/DD-Record-Organiser/frmMain.Designer.vb

@@ -78,6 +78,7 @@ Partial Class frmMain
         Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
         Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components)
         Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.LabelIP = New DevExpress.XtraBars.BarStaticItem()
         Me.cmsSystray.SuspendLayout()
         CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -170,9 +171,9 @@ Partial Class frmMain
         Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
         Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
         Me.ribbonMain.ExpandCollapseItem.Id = 0
-        Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelUser, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.LabelLanguage, Me.BarButtonItem20})
+        Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelUser, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.LabelLanguage, Me.BarButtonItem20, Me.LabelIP})
         resources.ApplyResources(Me.ribbonMain, "ribbonMain")
-        Me.ribbonMain.MaxItemId = 35
+        Me.ribbonMain.MaxItemId = 36
         Me.ribbonMain.Name = "ribbonMain"
         Me.ribbonMain.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageHome, Me.pageForms, Me.pageAdmin})
         Me.ribbonMain.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013
@@ -487,6 +488,7 @@ Partial Class frmMain
         'RibbonStatusBar1
         '
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelMachine)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelIP)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelUser)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLoggedIn)
         Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelVersion)
@@ -516,6 +518,14 @@ Partial Class frmMain
         Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
         resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
         '
+        'LabelIP
+        '
+        resources.ApplyResources(Me.LabelIP, "LabelIP")
+        Me.LabelIP.Glyph = Global.DD_Record_Organiser.My.Resources.Resources.NetworkPipes_32xLG
+        Me.LabelIP.Id = 35
+        Me.LabelIP.Name = "LabelIP"
+        Me.LabelIP.TextAlignment = System.Drawing.StringAlignment.Near
+        '
         'frmMain
         '
         Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color)
@@ -594,5 +604,6 @@ Partial Class frmMain
     Friend WithEvents CockpitAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents LabelLanguage As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents BarButtonItem20 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents LabelIP As DevExpress.XtraBars.BarStaticItem
 
 End Class

app/DD-Record-Organiser/frmMain.resx

@@ -124,18 +124,6 @@
     <value>442, 56</value>
   </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="ADDIBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>165, 22</value>
-  </data>
-  <data name="ADDIBeendenToolStripMenuItem.Text" xml:space="preserve">
-    <value>ADDI beenden</value>
-  </data>
-  <data name="CockpitAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>165, 22</value>
-  </data>
-  <data name="CockpitAnzeigenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Cockpit anzeigen</value>
-  </data>
   <data name="cmsSystray.Size" type="System.Drawing.Size, System.Drawing">
     <value>166, 48</value>
   </data>
@@ -1044,6 +1032,18 @@
   <data name="NotifyIcon.Visible" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
+  <data name="ADDIBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>165, 22</value>
+  </data>
+  <data name="ADDIBeendenToolStripMenuItem.Text" xml:space="preserve">
+    <value>ADDI beenden</value>
+  </data>
+  <data name="CockpitAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>165, 22</value>
+  </data>
+  <data name="CockpitAnzeigenToolStripMenuItem.Text" xml:space="preserve">
+    <value>Cockpit anzeigen</value>
+  </data>
   <metadata name="TimerTasks.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>190, 56</value>
   </metadata>
@@ -1898,53 +1898,32 @@ Konfiguration</value>
         Mo2gQ5ClxGkN/D+QoPYNyjCHoEagDiHUZ/F/wv8lADB+B3eE88Zb5X+IAAAAAElFTkSuQmCC
 </value>
   </data>
+  <data name="LabelIP.Caption" xml:space="preserve">
+    <value>BarStaticItem1</value>
+  </data>
   <data name="ribbonMain.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
-  <data name="RibbonPageGroup2.Text" xml:space="preserve">
-    <value>Kalender</value>
-  </data>
-  <data name="groupQuickAccessForm.Text" xml:space="preserve">
-    <value>Views/Sichten</value>
-  </data>
   <data name="pageHome.Text" xml:space="preserve">
     <value>Home</value>
   </data>
   <data name="pageForms.Appearance.BackColor" type="System.Drawing.Color, System.Drawing">
     <value>Yellow</value>
   </data>
-  <data name="groupQuickAccessForm2.Text" xml:space="preserve">
-    <value>Views/Sichten</value>
-  </data>
   <data name="pageForms.Text" xml:space="preserve">
     <value>Weitere Sichten</value>
   </data>
-  <data name="RibbonPageGroupProgram.Text" xml:space="preserve">
-    <value>Programm Konfiguration</value>
-  </data>
-  <data name="RibbonPageGroupTask.Text" xml:space="preserve">
-    <value>Tasks und Wiedervorlagen</value>
-  </data>
-  <data name="RibbonPageGroupMenue.Text" xml:space="preserve">
-    <value>Menü Konfiguration</value>
-  </data>
-  <data name="RibbonPageGroupWindream.Text" xml:space="preserve">
-    <value>Windream Konfiguration</value>
-  </data>
-  <data name="RibbonPageGroup1.Text" xml:space="preserve">
-    <value>SQL Konfiguration</value>
-  </data>
   <data name="pageAdmin.Text" xml:space="preserve">
     <value>Administration</value>
   </data>
   <data name="ribbonMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1554, 150</value>
+    <value>1562, 150</value>
   </data>
   <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 683</value>
+    <value>0, 687</value>
   </data>
   <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1554, 23</value>
+    <value>1562, 23</value>
   </data>
   <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
     <value>RibbonStatusBar1</value>
@@ -1970,6 +1949,30 @@ Konfiguration</value>
   <data name="&gt;&gt;ribbonMain.ZOrder" xml:space="preserve">
     <value>3</value>
   </data>
+  <data name="RibbonPageGroup2.Text" xml:space="preserve">
+    <value>Kalender</value>
+  </data>
+  <data name="groupQuickAccessForm.Text" xml:space="preserve">
+    <value>Views/Sichten</value>
+  </data>
+  <data name="groupQuickAccessForm2.Text" xml:space="preserve">
+    <value>Views/Sichten</value>
+  </data>
+  <data name="RibbonPageGroupProgram.Text" xml:space="preserve">
+    <value>Programm Konfiguration</value>
+  </data>
+  <data name="RibbonPageGroupTask.Text" xml:space="preserve">
+    <value>Tasks und Wiedervorlagen</value>
+  </data>
+  <data name="RibbonPageGroupMenue.Text" xml:space="preserve">
+    <value>Menü Konfiguration</value>
+  </data>
+  <data name="RibbonPageGroupWindream.Text" xml:space="preserve">
+    <value>Windream Konfiguration</value>
+  </data>
+  <data name="RibbonPageGroup1.Text" xml:space="preserve">
+    <value>SQL Konfiguration</value>
+  </data>
   <metadata name="DefaultLookAndFeel1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>242, 17</value>
   </metadata>
@@ -1995,7 +1998,7 @@ Konfiguration</value>
     <value>6, 13</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>1554, 706</value>
+    <value>1562, 710</value>
   </data>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt</value>
@@ -3201,6 +3204,12 @@ Konfiguration</value>
   <data name="&gt;&gt;RibbonPageGroup3.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;LabelIP.Name" xml:space="preserve">
+    <value>LabelIP</value>
+  </data>
+  <data name="&gt;&gt;LabelIP.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmMain</value>
   </data>

app/DD-Record-Organiser/frmMain.vb

@@ -4,6 +4,8 @@ Imports DevExpress.XtraBars
 Imports System.ComponentModel
 Imports System.Threading
 Imports System.Globalization
+Imports System.Net
+Imports System.Net.Sockets
 
 Public Class frmMain
 
@@ -59,6 +61,44 @@ Public Class frmMain
             TIMER_SCAN.Enabled = False
         End Try
     End Sub
+   Private Sub GetIPAddress()
+        Try
+            Dim strHostName As String
+
+            Dim strIPAddress As String
+
+            strHostName = System.Net.Dns.GetHostName()
+            Try
+                strIPAddress = System.Net.Dns.GetHostEntry(strHostName).AddressList(3).ToString()
+            Catch ex As Exception
+                strIPAddress = System.Net.Dns.GetHostEntry(strHostName).AddressList(2).ToString()
+            End Try
+
+
+            'For Each adr In System.Net.Dns.GetHostEntry(strHostName).AddressList()
+            '    MessageBox.Show(adr.ToString)
+            'Next
+            LabelIP.Caption = "IP Address: " & strIPAddress
+        Catch ex As Exception
+            LabelIP.Caption = "error getting IP"
+        End Try
+       
+
+    End Sub
+    'Private Function GetIPv4Address() As String
+    '    GetIPv4Address = String.Empty
+    '    Dim strHostName As String = System.Net.Dns.GetHostName()
+    '    Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)
+
+    '    For Each ipheal As System.Net.IPAddress In iphe.AddressList
+    '        If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
+    '            GetIPv4Address = ipheal.ToString()
+    '        End If
+    '    Next
+
+    'End Function
+
+
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
         ' Referenz zu frmMain speichern
         MAIN_FORM = Me
@@ -67,7 +107,8 @@ Public Class frmMain
                 ' Form Titel setzen
                 ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
                 Dim i = My.Application.UICulture.ToString()
-
+                GetIPAddress()
+                ' GetIPv4Address()
                 'Dim splash As New frmSplash()
                 'splash.ShowDialog()
 
@@ -77,6 +118,7 @@ Public Class frmMain
                 Me.Text = Application.ProductName
                 LabelVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString)
                 LabelUser.Caption = Environment.UserName
+
                 LabelMachine.Caption = My.Computer.Name
                 LabelLanguage.Caption = "Language: " & USER_LANGUAGE
                 Load_Connection_Dep_Data()