allow deserialization for IUniquieID

NuGet.Config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <packageSources>
+    <add key="Telerik UI for WinForms 2023.1.117" value="C:\Program Files (x86)\Progress\Telerik UI for WinForms R1 2023\Bin60\NuGet" />
+  </packageSources>
+</configuration>

Pilz.Collections/Pilz.Collections.vbproj

@@ -26,6 +26,9 @@
   </PropertyGroup>
   <PropertyGroup>
     <OptionInfer>On</OptionInfer>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.856</Version>
   </PropertyGroup>
   <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
     <DefineDebug>true</DefineDebug>

Pilz.Collections/SimpleHistory/SimpleHistory.vb

@@ -17,6 +17,26 @@ Namespace SimpleHistory
             End Get
         End Property
 
+        ''' <summary>
+        ''' Gets the current stack of all past HistoryPoints that are used for the Undo function.
+        ''' </summary>
+        ''' <returns></returns>
+        Public ReadOnly Property PastHistoryPoints As HistoryPoint()
+            Get
+                Return stackPast.ToArray
+            End Get
+        End Property
+
+        ''' <summary>
+        ''' Gets the current stack of all future HistoryPoints that are used for the Redo function.
+        ''' </summary>
+        ''' <returns></returns>
+        Public ReadOnly Property FutureHistoryPoints As HistoryPoint()
+            Get
+                Return stackFuture.ToArray
+            End Get
+        End Property
+
         ''' <summary>
         ''' Checks if the History has past changes.
         ''' </summary>

Pilz.Configuration/Pilz.Configuration.vbproj

@@ -24,12 +24,17 @@
   <PropertyGroup>
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.856</Version>
+  </PropertyGroup>
   <ItemGroup>
     <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
     <PackageReference Include="System.Net.Http" Version="4.3.4" />
   </ItemGroup>
   <ItemGroup>
-    <PackageReference Include="Newtonsoft.Json" Version="12.0.3" />
+    <PackageReference Include="Newtonsoft.Json" Version="13.0.3" />
   </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />

Pilz.Cryptography/IUniquieID.cs

@@ -0,0 +1,18 @@
+using Newtonsoft.Json;
+using System;
+using System.Collections.Generic;
+using System.Text;
+
+namespace Pilz.Cryptography
+{
+    [JsonConverter(typeof(Json.Converters.UniquieIDStringJsonConverter))]
+    public interface IUniquieID
+    {
+        bool HasID { get; }
+        string ID { get; }
+
+        void GenerateIfNull();
+        void Generate();
+        bool Equals(object obj);
+    }
+}

Pilz.Cryptography/IUniquieIDHost.cs

@@ -0,0 +1,14 @@
+using System;
+using System.Collections.Generic;
+using System.Text;
+
+namespace Pilz.Cryptography
+{
+    /// <summary>
+    /// Can be implemented on objects that provides an UniquieID.
+    /// </summary>
+    public interface IUniquieIDHost
+    {
+        UniquieID ID { get; }
+    }
+}

Pilz.Cryptography/Json.Converters/UniquieIDStringJsonConverter.cs

@@ -2,30 +2,28 @@
 using Pilz.Cryptography;
 using System;
 using System.Collections.Generic;
-using System.IO;
-using System.IO.Compression;
-using System.Linq;
 using System.Text;
-using System.Threading.Tasks;
 
 namespace Pilz.Json.Converters
 {
-    public class UniquiIDStringJsonConverter<TargetType> : JsonConverter
+    public class UniquieIDStringJsonConverter : JsonConverter
     {
+        public static bool EnableCheckForDepricatedTypes { get; set; } = true;
+
         public override bool CanConvert(Type objectType)
         {
-            return typeof(UniquieID<TargetType>).IsAssignableFrom(objectType);
+            return typeof(IUniquieID).IsAssignableFrom(objectType);
         }
 
         public override object ReadJson(JsonReader reader, Type objectType, object existingValue, JsonSerializer serializer)
         {
             var idString = serializer.Deserialize<string>(reader);
-            UniquieID<TargetType> id;
+            UniquieID id;
 
-            if (existingValue is object)
-                id = (UniquieID<TargetType>)existingValue;
+            if (existingValue is UniquieID existingID && (!EnableCheckForDepricatedTypes || existingID.GetType() == typeof(UniquieID)))
+                id = existingID;
             else
-                id = new UniquieID<TargetType>();
+                id = new UniquieID();
 
             id.ID = idString;
 
@@ -34,7 +32,7 @@ namespace Pilz.Json.Converters
 
         public override void WriteJson(JsonWriter writer, object value, JsonSerializer serializer)
         {
-            serializer.Serialize(writer, ((UniquieID<TargetType>)value).ID);
+            serializer.Serialize(writer, ((UniquieID)value).ID);
         }
     }
 }

Pilz.Cryptography/Pilz.Cryptography.csproj

@@ -5,13 +5,18 @@
     <Product>Pilz.Cryptography</Product>
     <Copyright>Copyright ©  2020</Copyright>
   </PropertyGroup>
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.918.846</Version>
+  </PropertyGroup>
   <ItemGroup>
-    <PackageReference Include="System.Management" Version="4.7.0" />
+    <PackageReference Include="System.Management" Version="7.0.2" />
     <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
     <PackageReference Include="Microsoft.CSharp" Version="4.7.0" />
     <PackageReference Include="System.Net.Http" Version="4.3.4" />
   </ItemGroup>
   <ItemGroup>
-    <PackageReference Include="Newtonsoft.Json" Version="12.0.3" />
+    <PackageReference Include="Newtonsoft.Json" Version="13.0.3" />
   </ItemGroup>
 </Project>

Pilz.Cryptography/SecureString.cs

@@ -11,20 +11,19 @@ namespace Pilz.Cryptography
     public class SecureString
     {
         public static ICrypter DefaultCrypter { get; set; }
-
-        [JsonIgnore]
         public ICrypter Crypter { get; set; }
-
-        [JsonProperty]
         public string EncryptedValue { get; set; }
-
-        [JsonIgnore]
         public string Value
         {
-            get => GetCrypter().Decrypt(EncryptedValue);
+            get => GetCrypter()?.Decrypt(EncryptedValue);
             set => EncryptedValue = GetCrypter().Encrypt(value);
         }
 
+        [JsonConstructor]
+        private SecureString(JsonConstructorAttribute dummyAttribute)
+        {
+        }
+
         public SecureString() :
             this(string.Empty, true)
         {
@@ -73,7 +72,7 @@ namespace Pilz.Cryptography
         public static implicit operator string(SecureString value) => value?.Value;
         public static implicit operator SecureString(string value) => new SecureString(value, false);
 
-        public static bool operator ==(SecureString left, SecureString right) => left.EncryptedValue == right.EncryptedValue;
-        public static bool operator !=(SecureString left, SecureString right) => left.EncryptedValue != right.EncryptedValue;
+        public static bool operator ==(SecureString left, SecureString right) => left?.EncryptedValue == right?.EncryptedValue;
+        public static bool operator !=(SecureString left, SecureString right) => left?.EncryptedValue != right?.EncryptedValue;
     }
 }

Pilz.Cryptography/SecureStringJsonConverter.cs

@@ -22,12 +22,13 @@ namespace Pilz.Json.Converters
             var idString = serializer.Deserialize<string>(reader);
             SecureString  id;
 
-            if (existingValue is object)
+            if (existingValue is SecureString)
+            {
                 id = (SecureString)existingValue;
-            else
-                id = new SecureString();
-
                 id.EncryptedValue = idString;
+            }
+            else
+                id = new SecureString(idString, true);
 
             return id;
         }

Pilz.Cryptography/SimpleStringCrypter.cs

@@ -35,10 +35,13 @@ namespace Pilz.Cryptography
             byte[] bytes = TextEncoding.GetBytes(key);
             byte[] array = sha1CryptoServiceProvider.ComputeHash(bytes);
 
-            var output = new byte[checked(length - 1 + 1)];
-            array.CopyTo(output, 0);
+            var output = new byte[length];
+            var lowerLength = Math.Min(array.Length, output.Length);
             
-            return array;
+            for (int i = 0; i < lowerLength; i++)
+                output[i] = array[i];
+
+            return output;
         }
 
         private string EncryptData(string plaintext)
@@ -63,7 +66,7 @@ namespace Pilz.Cryptography
 
         public string Encrypt(string plainValue)
         {
-            return EncryptData(plainValue);
+            return EncryptData(plainValue ?? string.Empty);
         }
 
         public string Decrypt(string encryptedValue)

Pilz.Cryptography/UniquieID.cs

@@ -1,23 +1,31 @@
 using Newtonsoft.Json;
 using System;
 using System.Collections.Generic;
-using System.Linq;
 using System.Management;
 using System.Security.Cryptography;
 using System.Text;
-using System.Threading.Tasks;
 
 namespace Pilz.Cryptography
 {
-    public class UniquieID<TargetType>
+    [JsonConverter(typeof(Json.Converters.UniquieIDStringJsonConverter))]
+    public class UniquieID : IUniquieID
     {
-        private static int currentSimpleID = 0;
+        protected static ulong currentSimpleID = 0;
 
         [JsonProperty(nameof(ID))]
-        private string _iD;
+        protected string _iD;
 
         [JsonIgnore]
-        public string ID
+        public virtual bool SimpleMode { get; }
+
+        [JsonIgnore]
+        public virtual bool GenerateOnGet { get; }
+
+        [JsonIgnore]
+        public virtual bool HasID => !string.IsNullOrEmpty(_iD);
+
+        [JsonIgnore]
+        public virtual string ID
         {
             get
             {
@@ -29,36 +37,96 @@ namespace Pilz.Cryptography
                 => _iD = value;
         }
 
-        [JsonIgnore]
-        public bool HasID { get => !string.IsNullOrEmpty(_iD); }
-        [JsonIgnore]
-        public bool SimpleMode { get; set; } = false;
-        [JsonIgnore]
-        public bool GenerateOnGet { get; set; } = false;
-
-        public UniquieID() : this(false)
+        public UniquieID() : this(UniquieIDGenerationMode.None)
         {
         }
 
-        public UniquieID(bool autoGenerate)
+        public UniquieID(UniquieIDGenerationMode mode) : this(mode, false)
         {
-            if (autoGenerate)
+        }
+
+        public UniquieID(UniquieIDGenerationMode mode, bool simpleMode)
+        {
+            SimpleMode = simpleMode;
+
+            if (mode == UniquieIDGenerationMode.GenerateOnInit)
                 GenerateIfNull();
+            else if (mode == UniquieIDGenerationMode.GenerateOnGet)
+                GenerateOnGet = true;
         }
 
-        public void Generate()
+        [Obsolete]
+        public UniquieID(bool autoGenerate) : this(autoGenerate ? UniquieIDGenerationMode.GenerateOnInit : UniquieIDGenerationMode.None)
+        {
+        }
+
+        public virtual void Generate()
         {
             if (SimpleMode)
-                ID = typeof(TargetType).ToString() + currentSimpleID++.ToString();
+                ID = GenerateSimple();
             else
-                ID = GenerateUniquieID<TargetType>(string.Empty);
+                ID = GenerateDefault();
         }
-        public void GenerateIfNull()
+
+        protected virtual string GenerateSimple()
+        {
+            return new Random().Next().ToString() + DateTime.Now.ToString("yyyyMMddHHmmssfffffff") + currentSimpleID++.ToString();
+        }
+
+        protected virtual string GenerateDefault()
+        {
+            return GenerateUniquieID<UniquieID>(currentSimpleID++.ToString());
+        }
+
+        public virtual void GenerateIfNull()
         {
             if (!HasID) Generate();
         }
 
-        private static string GenerateUniquieID<T>(string var)
+        public override string ToString()
+        {
+            return ID;
+        }
+
+        public override int GetHashCode()
+        {
+            return -1430039477 + EqualityComparer<string>.Default.GetHashCode(_iD);
+        }
+
+        public override bool Equals(object obj)
+        {
+            if (obj is UniquieID iD)
+            {
+                if (ReferenceEquals(obj, iD))
+                    return true;
+                else
+                {
+                    var leftHasID = iD.HasID;
+                    var rightHasID = HasID;
+
+                    if (!leftHasID && iD.GenerateOnGet)
+                    {
+                        iD.Generate();
+                        leftHasID = iD.HasID;
+                    }
+
+                    if (!rightHasID && GenerateOnGet)
+                    {
+                        Generate();
+                        rightHasID = HasID;
+                    }
+
+                    if (leftHasID && rightHasID)
+                        return _iD.Equals(iD._iD);
+                }
+            }
+            
+            return base.Equals(obj);
+        }
+
+        #region Statics for Generation
+
+        protected static string GenerateUniquieID<T>(string var)
         {
             var sn = TryGetSerialNumberOfFirstHardDrive();
             var dateTime = DateTime.UtcNow.ToString("yyyyMMddHHmmssfffffff");
@@ -72,7 +140,10 @@ namespace Pilz.Cryptography
             return hash;
         }
 
+        private static string Win32_PhysicalMedia_SerialNumber = null;
         private static string TryGetSerialNumberOfFirstHardDrive()
+        {
+            if (Win32_PhysicalMedia_SerialNumber == null)
             {
                 var searcher = new ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia");
                 var sn = string.Empty;
@@ -83,28 +154,19 @@ namespace Pilz.Cryptography
                         sn = wmi_HD["SerialNumber"].ToString().Trim();
                 }
 
-            return sn;
+                Win32_PhysicalMedia_SerialNumber = sn;
             }
 
-        public override string ToString() => ID;
-
-        public override bool Equals(object obj)
-        {
-            var iD = obj as UniquieID<TargetType>;
-            return iD != null &&
-                   _iD == iD._iD;
+            return Win32_PhysicalMedia_SerialNumber;
         }
 
-        public override int GetHashCode()
-        {
-            return -1430039477 + EqualityComparer<string>.Default.GetHashCode(_iD);
-        }
+        #endregion
 
-        public static implicit operator string(UniquieID<TargetType> id)    => id.ID;
-        public static implicit operator UniquieID<TargetType>(string id)    => new UniquieID<TargetType>() { ID = id };
-        public static implicit operator UniquieID<TargetType>(int id)       => new UniquieID<TargetType>() { ID = Convert.ToString(id) };
+        public static implicit operator string(UniquieID id) => id.ID;
+        public static implicit operator UniquieID(string id) => new UniquieID() { ID = id };
+        public static implicit operator UniquieID(int id) => new UniquieID() { ID = Convert.ToString(id) };
 
-        public static bool operator ==(UniquieID<TargetType> left, UniquieID<TargetType> right) => left.ID == right.ID;
-        public static bool operator !=(UniquieID<TargetType> left, UniquieID<TargetType> right) => left.ID != right.ID;
+        public static bool operator ==(UniquieID left, UniquieID right) => left.ID.Equals(right.ID);
+        public static bool operator !=(UniquieID left, UniquieID right) => !left.ID.Equals(right.ID);
     }
 }

Pilz.Cryptography/UniquieIDGenerationMode.cs

@@ -0,0 +1,13 @@
+using System;
+using System.Collections.Generic;
+using System.Text;
+
+namespace Pilz.Cryptography
+{
+    public enum UniquieIDGenerationMode
+    {
+        None,
+        GenerateOnGet,
+        GenerateOnInit
+    }
+}

Pilz.Drawing.Drawing3D.OpenGLRenderer/Camera/Camera.vb

@@ -1,5 +1,7 @@
 Imports System.Windows.Forms
+
 Imports OpenTK
+Imports OpenTK.Mathematics
 
 Namespace CameraN
 

Pilz.Drawing.Drawing3D.OpenGLRenderer/Pilz.Drawing.Drawing3D.OpenGLFactory.vbproj

@@ -1,10 +1,11 @@
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <MyType>Windows</MyType>
-    <TargetFramework>net48</TargetFramework>
+    <TargetFramework>net6.0-windows</TargetFramework>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
     <DocumentationFile>Pilz.Drawing.Drawing3D.OpenGLFactory.xml</DocumentationFile>
     <DefineTrace>true</DefineTrace>
+    <UseWindowsForms>true</UseWindowsForms>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <DefineDebug>true</DefineDebug>
@@ -24,19 +25,21 @@
   <PropertyGroup>
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.856</Version>
+  </PropertyGroup>
   <ItemGroup>
+    <PackageReference Include="OpenTK.Input" Version="4.8.0" />
+    <PackageReference Include="OpenTK.WinForms" Version="4.0.0-pre.6" />
     <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
     <PackageReference Include="System.Net.Http" Version="4.3.4" />
   </ItemGroup>
   <ItemGroup>
-    <PackageReference Include="OpenTK" Version="3.2" />
-    <PackageReference Include="OpenTK.GLControl" Version="3.1.0" />
+    <PackageReference Include="OpenTK" Version="4.8.0" />
     <PackageReference Include="System.Numerics.Vectors" Version="4.5.0" />
   </ItemGroup>
-  <ItemGroup>
-    <Reference Include="Microsoft.VisualBasic" />
-    <Reference Include="System.Windows.Forms" />
-  </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />
     <Import Include="System" />
@@ -52,9 +55,7 @@
     <Compile Update="Preview\ModelPreview.Designer.vb">
       <DependentUpon>ModelPreview.vb</DependentUpon>
     </Compile>
-    <Compile Update="Preview\ModelPreview.vb">
-      <SubType>Form</SubType>
-    </Compile>
+    <Compile Update="Preview\ModelPreview.vb" />
     <Compile Update="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
@@ -98,4 +99,9 @@
   <ItemGroup>
     <Compile Remove="ModelPreview.Designer.vb" />
   </ItemGroup>
+  <ItemGroup>
+    <Reference Include="OpenTK3">
+      <HintPath>..\Shared Libs\OpenTK3.dll</HintPath>
+    </Reference>
+  </ItemGroup>
 </Project>

Pilz.Drawing.Drawing3D.OpenGLRenderer/Preview/ModelPreview.vb

@@ -6,10 +6,12 @@ Imports OpenTK
 Imports OpenTK.Graphics.OpenGL
 Imports Pilz.S3DFileParser
 Imports Point = System.Drawing.Point
-Imports KeyboardState = OpenTK.Input.KeyboardState
-Imports Keyboard = OpenTK.Input.Keyboard
-Imports Key = OpenTK.Input.Key
 Imports Color = System.Drawing.Color
+Imports OpenTK.Mathematics
+Imports OpenTK.WinForms
+Imports OpenTK.Input
+Imports OpenTK.Windowing.GraphicsLibraryFramework
+Imports Key = OpenTK3.Input.Key
 
 Namespace PreviewN
 
@@ -30,6 +32,12 @@ Namespace PreviewN
         Public Property Scaling As Single = 500.0F
         Public Property ClearColor As Color = Color.CornflowerBlue
 
+        Public ReadOnly Property Keyboard As OpenTK3.Input.KeyboardState
+            Get
+                Return OpenTK3.Input.Keyboard.GetState
+            End Get
+        End Property
+
         Public Property EnableCameraControlling As Boolean
             Get
                 Return _EnableCameraControlling
@@ -81,14 +89,14 @@ Namespace PreviewN
 
         Private ReadOnly Property IsStrgPressed As Boolean
             Get
-                Dim state As KeyboardState = Keyboard.GetState()
+                Dim state = Keyboard
                 Return state(Key.ControlLeft) OrElse state(Key.ControlRight)
             End Get
         End Property
 
         Private ReadOnly Property IsShiftPressed As Boolean
             Get
-                Dim state As KeyboardState = Keyboard.GetState()
+                Dim state = Keyboard
                 Return state(Key.ShiftLeft) OrElse state(Key.ShiftRight)
             End Get
         End Property
@@ -132,7 +140,6 @@ Namespace PreviewN
             Me.glControl1.Size = Me.ClientSize
             Me.glControl1.TabIndex = 0
             Me.glControl1.TabStop = False
-            Me.glControl1.VSync = False
             Me.Controls.Add(Me.glControl1)
             Me.ResumeLayout(False)
 
@@ -247,7 +254,7 @@ Namespace PreviewN
         End Sub
 
         Private Sub glControl1_Resize(sender As Object, e As EventArgs) Handles glControl1.Resize
-            glControl1.Context.Update(glControl1.WindowInfo)
+            'glControl1.Context.Update(glControl1.WindowInfo)
             GL.Viewport(0, 0, glControl1.Width, glControl1.Height)
             ProjMatrix = Matrix4.CreatePerspectiveFieldOfView(FOV, glControl1.Width / glControl1.Height, 100.0F, 100000.0F)
             glControl1.Invalidate()
@@ -286,7 +293,7 @@ Namespace PreviewN
             Dim allowCamMove As Boolean = Not (IsMouseDown AndAlso IsShiftPressed)
 
             If allowCamMove Then
-                Dim state As KeyboardState = Keyboard.GetState
+                Dim state = Keyboard
 
                 If state(Key.W) Then
                     'camera.Move(moveSpeed, moveSpeed, camMtx)

Pilz.Drawing.Drawing3D.OpenGLRenderer/Rendering/Renderer.vb

@@ -1,9 +1,13 @@
 Imports System.Drawing
 Imports System.Threading
 Imports System.Windows.Forms
+
 Imports OpenTK
 Imports OpenTK.Graphics.OpenGL
+Imports OpenTK.Mathematics
+
 Imports Pilz.S3DFileParser
+
 Imports Bitmap = System.Drawing.Bitmap
 Imports Color = System.Drawing.Color
 Imports Image = System.Drawing.Image

Pilz.Drawing/Pilz.Drawing.vbproj

@@ -1,10 +1,11 @@
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <MyType>Windows</MyType>
-    <TargetFramework>net48</TargetFramework>
+    <TargetFramework>net6.0-windows</TargetFramework>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
     <DocumentationFile>Pilz.Drawing.xml</DocumentationFile>
     <DefineTrace>true</DefineTrace>
+    <UseWindowsForms>true</UseWindowsForms>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <DefineDebug>true</DefineDebug>
@@ -24,6 +25,11 @@
   <PropertyGroup>
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.856</Version>
+  </PropertyGroup>
   <ItemGroup>
     <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
     <PackageReference Include="System.Net.Http" Version="4.3.4" />

Pilz.IO/Extensions.cs

@@ -0,0 +1,26 @@
+using Pilz.Runtime;
+using Pilz.Win32.Native;
+using System;
+using System.Collections.Generic;
+using System.Diagnostics;
+using System.Text;
+
+namespace Pilz.IO
+{
+    public static class Extensions
+    {
+        static readonly int MAX_PATH = 255;
+
+        public static string GetExecutablePath(bool checkRealOS = false)
+        {
+            if (RuntimeInformationsEx.IsOSPlatform(OSType.Windows, checkRealOS))
+            {
+                var sb = new StringBuilder(MAX_PATH);
+                Kernel32.GetModuleFileName(IntPtr.Zero, sb, MAX_PATH);
+                return sb.ToString();
+            }
+            else
+                return Process.GetCurrentProcess().MainModule.FileName;
+        }
+    }
+}

Pilz.IO/Pilz.IO.csproj

@@ -1,7 +1,7 @@
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <MyType>Windows</MyType>
-    <TargetFramework>netstandard2.0</TargetFramework>
+    <TargetFramework>net6.0-windows</TargetFramework>
     <DefaultItemExcludes>$(DefaultItemExcludes);$(ProjectDir)**\*.vb</DefaultItemExcludes>
     <LangVersion>latest</LangVersion>
     <AssemblyTitle>NamedPipeManaging</AssemblyTitle>
@@ -43,12 +43,17 @@
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
     <CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
   </PropertyGroup>
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.856</Version>
+  </PropertyGroup>
   <ItemGroup>
     <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
     <PackageReference Include="System.Net.Http" Version="4.3.4" />
   </ItemGroup>
   <ItemGroup>
-    <PackageReference Include="Newtonsoft.Json" Version="12.0.3" />
+    <PackageReference Include="Newtonsoft.Json" Version="13.0.3" />
   </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />
@@ -86,4 +91,8 @@
       <LastGenOutput>Application.Designer.cs</LastGenOutput>
     </None>
   </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\Pilz.Win32\Pilz.Win32.vbproj" />
+    <ProjectReference Include="..\Pilz\Pilz.vbproj" />
+  </ItemGroup>
 </Project>

Pilz.LicenseHelper/Pilz.LicenseHelper.csproj

@@ -7,6 +7,11 @@
     <Copyright>Copyright © DRSN 2018</Copyright>
     <AllowUnsafeBlocks>true</AllowUnsafeBlocks>
   </PropertyGroup>
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.1955</Version>
+  </PropertyGroup>
   <ItemGroup>
     <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
     <PackageReference Include="Microsoft.CSharp" Version="4.7.0" />

Pilz.Networking/Pilz.Networking.vbproj

@@ -1,10 +1,11 @@
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <MyType>Windows</MyType>
-    <TargetFramework>net48</TargetFramework>
+    <TargetFramework>net6.0-windows</TargetFramework>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
     <DocumentationFile>Pilz.Networking.xml</DocumentationFile>
     <DefineTrace>true</DefineTrace>
+    <UseWindowsForms>true</UseWindowsForms>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <DefineDebug>true</DefineDebug>
@@ -24,12 +25,18 @@
   <PropertyGroup>
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.856</Version>
+  </PropertyGroup>
   <ItemGroup>
+    <PackageReference Include="Microsoft.VisualBasic" Version="10.3.0" />
     <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
     <PackageReference Include="System.Net.Http" Version="4.3.4" />
   </ItemGroup>
   <ItemGroup>
-    <PackageReference Include="Newtonsoft.Json" Version="12.0.3" />
+    <PackageReference Include="Newtonsoft.Json" Version="13.0.3" />
   </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />

Pilz.Reflection.PluginSystem/Pilz.Reflection.PluginSystem.vbproj

@@ -24,6 +24,11 @@
   <PropertyGroup>
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.856</Version>
+  </PropertyGroup>
   <ItemGroup>
     <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
     <PackageReference Include="System.Net.Http" Version="4.3.4" />

Pilz.Reflection.PluginSystem/PluginManager.vb

@@ -2,6 +2,12 @@
 
 Public Class PluginManager
 
+    ''' <summary>
+    ''' Gets or sets an indicator if an exception should throw on error while loading a plugin.
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property ThrowOnError As Boolean = False
+
     ''' <summary>
     ''' The name of the type where to search for Methods when loading a new Plugin.
     ''' </summary>
@@ -79,7 +85,11 @@ Public Class PluginManager
             If addToList Then Plugins.Add(filePath, plugin)
             Return plugin
         Catch ex As Exception
+            If ThrowOnError Then
+                Throw
+            Else
                 Return Nothing
+            End If
         End Try
     End Function
 

Pilz.Simple3DFileParser/Pilz.Simple3DFileParser.vbproj

@@ -26,9 +26,14 @@
   <PropertyGroup>
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.1955</Version>
+  </PropertyGroup>
   <ItemGroup>
     <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
-    <PackageReference Include="System.Drawing.Common" Version="4.7.0" />
+    <PackageReference Include="System.Drawing.Common" Version="7.0.0" />
     <PackageReference Include="System.Net.Http" Version="4.3.4" />
   </ItemGroup>
   <ItemGroup>

Pilz.Threading/Pilz.Threading.vbproj

@@ -1,10 +1,11 @@
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <MyType>Windows</MyType>
-    <TargetFramework>net48</TargetFramework>
+    <TargetFramework>net6.0-windows</TargetFramework>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
     <DocumentationFile>Pilz.Threading.xml</DocumentationFile>
     <DefineTrace>true</DefineTrace>
+    <UseWindowsForms>true</UseWindowsForms>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <DefineDebug>true</DefineDebug>
@@ -34,13 +35,16 @@
     <OutputPath>bin\$(Platform)\$(Configuration)\</OutputPath>
     <CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
   </PropertyGroup>
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.856</Version>
+  </PropertyGroup>
   <ItemGroup>
+    <PackageReference Include="Microsoft.VisualBasic" Version="10.3.0" />
     <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
     <PackageReference Include="System.Net.Http" Version="4.3.4" />
   </ItemGroup>
-  <ItemGroup>
-    <Reference Include="System.Windows.Forms" />
-  </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />
     <Import Include="System" />

Pilz.UI.Telerik.SymbolFactory/Pilz - Backup.UI.Telerik.SymbolFactory.csproj

@@ -0,0 +1,10 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>net6.0</TargetFramework>
+    <ImplicitUsings>enable</ImplicitUsings>
+    <Nullable>enable</Nullable>
+    <PackageId>Pilz.UI.Telerik</PackageId>
+  </PropertyGroup>
+
+</Project>

Pilz.UI.Telerik.SymbolFactory/Pilz.UI.Telerik.SymbolFactory.csproj

@@ -0,0 +1,21 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>net6.0-windows</TargetFramework>
+    <ImplicitUsings>enable</ImplicitUsings>
+    <Nullable>enable</Nullable>
+    <RootNamespace>Pilz.UI.Telerik</RootNamespace>
+  </PropertyGroup>
+
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.1955</Version>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="System.Drawing.Common" Version="7.0.0" />
+    <PackageReference Include="UI.for.WinForms.AllControls.Net60" Version="2023.1.117" />
+  </ItemGroup>
+
+</Project>

Pilz.UI.Telerik.SymbolFactory/SvgImageSize.cs

@@ -0,0 +1,16 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+
+namespace Pilz.UI.Telerik
+{
+    public enum SvgImageSize
+    {
+        Default,
+        Small,
+        Medium,
+        Large
+    }
+}

Pilz.UI.Telerik.SymbolFactory/SymbolFactory.cs

@@ -0,0 +1,87 @@
+using System.Drawing;
+using System.Reflection;
+using Telerik.WinControls;
+using Telerik.WinControls.Svg;
+
+namespace Pilz.UI.Telerik
+{
+    public abstract class SymbolFactory<TSvgSymbols> where TSvgSymbols : Enum
+    {
+        public abstract string GetSvgImageRessourcePath(TSvgSymbols svgImage);
+        public abstract Assembly GetSvgImageResourceAssembly();
+
+        protected virtual Size ResolveCommonSize(SvgImageSize size)
+        {
+            return size switch
+            {
+                SvgImageSize.Small => new Size(16, 16),
+                SvgImageSize.Medium => new Size(20, 20),
+                SvgImageSize.Large => new Size(32, 32),
+                _ => Size.Empty,
+            };
+        }
+
+        public virtual Stream? GetSvgImageRessourceStream(TSvgSymbols svgImage)
+        {
+            var asm = GetSvgImageResourceAssembly();
+            var path = GetSvgImageRessourcePath(svgImage);
+            return asm.GetManifestResourceStream(path);
+        }
+
+        public virtual RadSvgImage GetSvgImage(TSvgSymbols svgImage, SvgImageSize size)
+        {
+            return GetSvgImage(svgImage, ResolveCommonSize(size));
+        }
+
+        public virtual RadSvgImage GetSvgImage(TSvgSymbols svgImage, Size size)
+        {
+            using var stream = GetSvgImageRessourceStream(svgImage);
+            var img = RadSvgImage.FromStream(stream);
+
+            if (!size.IsEmpty)
+                img.Size = size;
+
+            return img;
+        }
+
+        public virtual RadSvgImage GetSvgImageColored(TSvgSymbols svgImage, SvgImageSize size, Color color)
+        {
+            return GetSvgImageColored(svgImage, ResolveCommonSize(size), color);
+        }
+
+        public virtual RadSvgImage GetSvgImageColored(TSvgSymbols svgImage, Size size, Color color)
+        {
+            var img = GetSvgImage(svgImage, size);
+
+            img.Document.Fill = new SvgColourServer(color);
+            img.ClearCache();
+
+            return img;
+        }
+
+        public virtual Image GetImage(TSvgSymbols svgImage, SvgImageSize size)
+        {
+            return GetImage(svgImage, ResolveCommonSize(size));
+        }
+
+        public virtual Image GetImage(TSvgSymbols svgImage, Size size)
+        {
+            return GetImageFromSvg(GetSvgImage(svgImage, size));
+        }
+
+        public virtual Image GetImageColored(TSvgSymbols svgImage, SvgImageSize size, Color color)
+        {
+            return GetImageColored(svgImage, ResolveCommonSize(size), color);
+        }
+
+        public virtual Image GetImageColored(TSvgSymbols svgImage, Size size, Color color)
+        {
+            return GetImageFromSvg(GetSvgImageColored(svgImage, size, color));
+        }
+
+        public virtual Image GetImageFromSvg(RadSvgImage svg)
+        {
+            return svg.Document.Draw(svg.Width, svg.Height);
+        }
+    }
+}

Pilz.UI.Telerik/Dialogs/DialogBaseForm.Statics.cs

@@ -0,0 +1,44 @@
+using System;
+using System.Collections.Generic;
+using System.Drawing;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using System.Windows.Forms;
+
+namespace Pilz.UI.Telerik.Dialogs
+{
+    partial class DialogBaseForm
+	{
+		public delegate void DialogLoadingEventHandler(DialogLoadingEventArgs e);
+		public delegate void DialogClosedEventHandler(DialogClosedEventArgs e);
+
+		public static event DialogLoadingEventHandler? DialogLoading;
+		public static event DialogClosedEventHandler? DialogClosed;
+
+		public static T ShowDialog<T>(string title, Icon icon, object? tag = null) where T : FlyoutDialogBase
+		{
+			return ShowDialog<T>(null, title, icon, tag);
+		}
+
+		public static T ShowDialog<T>(IWin32Window? parent, string title, Icon icon, object? tag = null) where T : FlyoutDialogBase
+		{
+			var dialogPanel = Activator.CreateInstance<T>();
+			dialogPanel.Dock = DockStyle.Fill;
+			dialogPanel.Tag = tag;
+
+			var dialog = new DialogBaseForm
+			{
+				DialogPanel = dialogPanel,
+				Text = title,
+				Icon = icon,
+				StartPosition = parent == null ? FormStartPosition.CenterScreen : FormStartPosition.CenterParent,
+				ClientSize = dialogPanel.Size
+			};
+			dialog.Controls.Add(dialogPanel);
+			dialog.ShowDialog(parent);
+
+			return dialogPanel;
+		}
+	}
+}

Pilz.UI.Telerik/Dialogs/DialogBaseForm.cs

@@ -0,0 +1,34 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using System.Windows.Forms;
+using Telerik.WinControls.UI;
+
+namespace Pilz.UI.Telerik.Dialogs
+{
+    public partial class DialogBaseForm : RadForm
+    {
+        public FlyoutDialogBase? DialogPanel { get; private set; }
+
+        private DialogBaseForm()
+        {
+            Load += DialogBaseForm_Load;
+            FormClosed += DialogBaseForm_FormClosed;
+        }
+
+        private void DialogBaseForm_Load(object? sender, EventArgs e)
+        {
+            if (DialogPanel is ILoadContent iLoadContent)
+                iLoadContent.LoadContent();
+
+            DialogLoading?.Invoke(new DialogLoadingEventArgs(this));
+        }
+
+        private void DialogBaseForm_FormClosed(object? sender, FormClosedEventArgs e)
+        {
+            DialogClosed?.Invoke(new DialogClosedEventArgs(this));
+        }
+    }
+}

Pilz.UI.Telerik/Dialogs/DialogClosedEventArgs.cs

@@ -0,0 +1,20 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using System.Windows.Forms;
+
+namespace Pilz.UI.Telerik.Dialogs
+{
+    public class DialogClosedEventArgs : EventArgs
+    {
+        public DialogBaseForm Parent { get; private set; }
+        public FlyoutDialogBase? Content => Parent?.DialogPanel;
+
+        public DialogClosedEventArgs(DialogBaseForm dialog)
+        {
+            Parent = dialog;
+        }
+    }
+}

Pilz.UI.Telerik/Dialogs/DialogLoadingEventArgs.cs

@@ -0,0 +1,21 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using System.Windows.Forms;
+using System.Windows.Forms.Design;
+
+namespace Pilz.UI.Telerik.Dialogs
+{
+    public class DialogLoadingEventArgs : EventArgs
+    {
+        public DialogBaseForm Parent { get; private set; }
+        public FlyoutDialogBase? Content => Parent?.DialogPanel;
+
+        public DialogLoadingEventArgs(DialogBaseForm dialog)
+        {
+            Parent = dialog;
+        }
+    }
+}

Pilz.UI.Telerik/Dialogs/FlyoutClosedEventArgs.cs

@@ -0,0 +1,18 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using System.Windows.Forms;
+
+namespace Pilz.UI.Telerik.Dialogs
+{
+    public class FlyoutClosedEventArgs : global::Telerik.WinControls.UI.SplashScreen.FlyoutClosedEventArgs
+    {
+        public new FlyoutDialogBase? Content => base.Content as FlyoutDialogBase;
+
+        public FlyoutClosedEventArgs(FlyoutDialogBase content) : base(content)
+        {
+        }
+    }
+}

Pilz.UI.Telerik/Dialogs/FlyoutCreatedEventArgs.cs

@@ -0,0 +1,19 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using System.Windows.Forms;
+using Telerik.WinControls.UI.SplashScreen;
+
+namespace Pilz.UI.Telerik.Dialogs
+{
+    public class FlyoutCreatedEventArgs : ContentCreatedEventArgs
+    {
+        public new FlyoutDialogBase? Content => base.Content as FlyoutDialogBase;
+
+        public FlyoutCreatedEventArgs(FlyoutDialogBase content) : base(content)
+        {
+        }
+    }
+}

Pilz.UI.Telerik/Dialogs/FlyoutDialogBase.Designer.cs

@@ -0,0 +1,77 @@
+namespace Pilz.UI.Telerik.Dialogs
+{
+    partial class FlyoutDialogBase
+    {
+        /// <summary> 
+        /// Erforderliche Designervariable.
+        /// </summary>
+        private System.ComponentModel.IContainer components = null;
+
+        /// <summary> 
+        /// Verwendete Ressourcen bereinigen.
+        /// </summary>
+        /// <param name="disposing">True, wenn verwaltete Ressourcen gelöscht werden sollen; andernfalls False.</param>
+        protected override void Dispose(bool disposing)
+        {
+            if (disposing && (components != null))
+            {
+                components.Dispose();
+            }
+            base.Dispose(disposing);
+        }
+
+        #region Vom Komponenten-Designer generierter Code
+
+        /// <summary> 
+        /// Erforderliche Methode für die Designerunterstützung. 
+        /// Der Inhalt der Methode darf nicht mit dem Code-Editor geändert werden.
+        /// </summary>
+        private void InitializeComponent()
+        {
+            System.ComponentModel.ComponentResourceManager resources = new System.ComponentModel.ComponentResourceManager(typeof(FlyoutDialogBase));
+            radButton_Cancel = new global::Telerik.WinControls.UI.RadButton();
+            radButton_Confirm = new global::Telerik.WinControls.UI.RadButton();
+            panel_ActionButtons = new System.Windows.Forms.Panel();
+            ((System.ComponentModel.ISupportInitialize)radButton_Cancel).BeginInit();
+            ((System.ComponentModel.ISupportInitialize)radButton_Confirm).BeginInit();
+            panel_ActionButtons.SuspendLayout();
+            SuspendLayout();
+            // 
+            // radButton_Cancel
+            // 
+            resources.ApplyResources(radButton_Cancel, "radButton_Cancel");
+            radButton_Cancel.Name = "radButton_Cancel";
+            radButton_Cancel.Click += RadButton_Cancel_Click;
+            // 
+            // radButton_Confirm
+            // 
+            resources.ApplyResources(radButton_Confirm, "radButton_Confirm");
+            radButton_Confirm.Name = "radButton_Confirm";
+            radButton_Confirm.Click += RadButton_Confirm_Click;
+            // 
+            // panel_ActionButtons
+            // 
+            panel_ActionButtons.Controls.Add(radButton_Cancel);
+            panel_ActionButtons.Controls.Add(radButton_Confirm);
+            resources.ApplyResources(panel_ActionButtons, "panel_ActionButtons");
+            panel_ActionButtons.Name = "panel_ActionButtons";
+            // 
+            // FlyoutDialogBase
+            // 
+            resources.ApplyResources(this, "$this");
+            AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
+            Controls.Add(panel_ActionButtons);
+            Name = "FlyoutDialogBase";
+            ((System.ComponentModel.ISupportInitialize)radButton_Cancel).EndInit();
+            ((System.ComponentModel.ISupportInitialize)radButton_Confirm).EndInit();
+            panel_ActionButtons.ResumeLayout(false);
+            ResumeLayout(false);
+        }
+
+        #endregion
+
+        private global::Telerik.WinControls.UI.RadButton radButton_Cancel;
+        private global::Telerik.WinControls.UI.RadButton radButton_Confirm;
+        private System.Windows.Forms.Panel panel_ActionButtons;
+    }
+}

Pilz.UI.Telerik/Dialogs/FlyoutDialogBase.Statics.cs

@@ -0,0 +1,101 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using Telerik.WinControls.UI.SplashScreen;
+using Telerik.WinControls.UI;
+using System.Windows.Forms;
+
+namespace Pilz.UI.Telerik.Dialogs
+{
+    partial class FlyoutDialogBase
+    {
+        public delegate void FlyoutCreatedEventHandler(FlyoutCreatedEventArgs e);
+        public delegate void FlyoutClosedEventHandler(FlyoutClosedEventArgs e);
+
+        public static event FlyoutCreatedEventHandler FlyoutCreated
+        {
+            add => flyoutCreatedHandlers.Add(value);
+            remove => flyoutCreatedHandlers.Remove(value);
+        }
+
+        public static event FlyoutClosedEventHandler FlyoutClosed
+        {
+            add => flyoutCloseHandlers.Add(value);
+            remove => flyoutCloseHandlers.Remove(value);
+        }
+
+        private static readonly List<FlyoutCreatedEventHandler> flyoutCreatedHandlers = new();
+        private static readonly List<FlyoutClosedEventHandler> flyoutCloseHandlers = new();
+        
+        private static object? tagToAssign  = null;
+        public static Control? ParentContext { get; private set; } = null;
+
+        static FlyoutDialogBase()
+        {
+            RadFlyoutManager.ContentCreated += RadFlyoutManager_ContentCreated;
+            RadFlyoutManager.FlyoutClosed += RadFlyoutManager_FlyoutClosed;
+        }
+
+        private static void RadFlyoutManager_ContentCreated(ContentCreatedEventArgs e)
+        {
+            if (e.Content is FlyoutDialogBase dialogBase)
+            {
+                if (tagToAssign != null)
+                    dialogBase.Tag = tagToAssign;
+
+                var eventArgs = new FlyoutCreatedEventArgs((FlyoutDialogBase)e.Content);
+
+                if (dialogBase is ILoadContent iLoadContent)
+                    iLoadContent.LoadContent();
+
+                foreach (var args in flyoutCreatedHandlers)
+                {
+                    if (ParentContext != null)
+                        ParentContext?.Invoke(args, eventArgs);
+                    else
+                        args.Invoke(eventArgs);
+                }
+            }
+        }
+
+        private static void RadFlyoutManager_FlyoutClosed(global::Telerik.WinControls.UI.SplashScreen.FlyoutClosedEventArgs e)
+        {
+            if (e.Content is FlyoutDialogBase dialogBase)
+            {
+                var eventArgs = new FlyoutClosedEventArgs((FlyoutDialogBase)e.Content);
+
+                foreach (var args in flyoutCloseHandlers)
+                {
+                    if (ParentContext != null)
+                        ParentContext?.Invoke(args, eventArgs);
+                    else
+                        args.Invoke(eventArgs);
+                }
+            }
+
+            ParentContext = null;
+        }
+
+        public static void Show<T>(Control controlToAssociate, object? tag = null)
+        {
+            Show(controlToAssociate, typeof(T), tag);
+        }
+
+        public static void Show(Control controlToAssociate, Type flyoutContentType, object? tag = null)
+        {
+            tagToAssign = tag;
+            ParentContext = controlToAssociate;
+            RadFlyoutManager.Show(controlToAssociate, flyoutContentType);
+        }
+
+        protected static void CloseFlyout()
+        {
+            if (ParentContext == null)
+                throw new NullReferenceException(nameof(ParentContext));
+
+            ParentContext.BeginInvoke(RadFlyoutManager.Close);
+        }
+    }
+}

Pilz.UI.Telerik/Dialogs/FlyoutDialogBase.cs

@@ -0,0 +1,86 @@
+using Pilz.UI.Telerik;
+using System;
+using System.Collections.Generic;
+using System.ComponentModel;
+using System.Data;
+using System.Drawing;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+using System.Windows.Forms;
+using Telerik.WinControls;
+using Telerik.WinControls.UI;
+using Telerik.WinControls.UI.SplashScreen;
+using static Telerik.WinControls.UI.PopupEditorNotificationData;
+
+namespace Pilz.UI.Telerik.Dialogs
+{
+    public partial class FlyoutDialogBase : UserControl
+    {
+        public static RadSvgImage? CancelSvg { get; set; } = null;
+        public static RadSvgImage? ConfirmSvg { get; set; } = null;
+
+        public DialogResult Result { get; protected set; }
+
+        protected bool ActionPanelVisible
+        {
+            get => panel_ActionButtons.Visible;
+            set => panel_ActionButtons.Visible = value;
+        }
+
+        protected bool CancelButtonEnable
+        {
+            get => radButton_Cancel.Enabled;
+            set => radButton_Cancel.Enabled = value;
+        }
+
+        protected bool ConfirmButtonEnable
+        {
+            get => radButton_Confirm.Enabled;
+            set => radButton_Confirm.Enabled = value;
+        }
+
+        protected FlyoutDialogBase()
+        {
+            InitializeComponent();
+            ParentChanged += FlyoutDialogBase_ParentChanged;
+
+            // SVG Symbols
+            radButton_Cancel.SvgImage = CancelSvg;
+            radButton_Confirm.SvgImage = ConfirmSvg;
+        }
+
+        private void FlyoutDialogBase_ParentChanged(object? sender, EventArgs e)
+        {
+            var frm = FindForm();
+            if (frm != null)
+                frm.AcceptButton = radButton_Confirm;
+        }
+
+        protected void Close(DialogResult result)
+        {
+            Result = result;
+
+            if (FindForm() is DialogBaseForm dialogForm)
+                dialogForm.Close();
+            else
+                CloseFlyout();
+        }
+
+        private void RadButton_Confirm_Click(object sender, EventArgs e)
+        {
+            if (ValidateOK())
+                Close(DialogResult.OK);
+        }
+
+        private void RadButton_Cancel_Click(object sender, EventArgs e)
+        {
+            Close(DialogResult.Cancel);
+        }
+
+        protected virtual bool ValidateOK()
+        {
+            return true;
+        }
+    }
+}

Pilz.UI.Telerik/Dialogs/FlyoutDialogBase.resx

@@ -0,0 +1,234 @@
+<?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.Windows.Forms" name="System.Windows.Forms, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="radButton_Cancel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Top, Right</value>
+  </data>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="radButton_Cancel.ImageAlignment" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
+  <data name="radButton_Cancel.Location" type="System.Drawing.Point, System.Drawing">
+    <value>187, 3</value>
+  </data>
+  <data name="radButton_Cancel.Size" type="System.Drawing.Size, System.Drawing">
+    <value>110, 24</value>
+  </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="radButton_Cancel.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="radButton_Cancel.Text" xml:space="preserve">
+    <value>Cancel</value>
+  </data>
+  <data name="radButton_Cancel.TextAlignment" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="radButton_Cancel.TextImageRelation" type="System.Windows.Forms.TextImageRelation, System.Windows.Forms">
+    <value>ImageBeforeText</value>
+  </data>
+  <data name="&gt;&gt;radButton_Cancel.Name" xml:space="preserve">
+    <value>radButton_Cancel</value>
+  </data>
+  <data name="&gt;&gt;radButton_Cancel.Type" xml:space="preserve">
+    <value>Telerik.WinControls.UI.RadButton, Telerik.WinControls.UI, Culture=neutral, PublicKeyToken=5bb2a467cbec794e</value>
+  </data>
+  <data name="&gt;&gt;radButton_Cancel.Parent" xml:space="preserve">
+    <value>panel_ActionButtons</value>
+  </data>
+  <data name="&gt;&gt;radButton_Cancel.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="radButton_Confirm.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Top, Right</value>
+  </data>
+  <data name="radButton_Confirm.ImageAlignment" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
+  <data name="radButton_Confirm.Location" type="System.Drawing.Point, System.Drawing">
+    <value>71, 3</value>
+  </data>
+  <data name="radButton_Confirm.Size" type="System.Drawing.Size, System.Drawing">
+    <value>110, 24</value>
+  </data>
+  <data name="radButton_Confirm.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="radButton_Confirm.Text" xml:space="preserve">
+    <value>Okay</value>
+  </data>
+  <data name="radButton_Confirm.TextAlignment" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="radButton_Confirm.TextImageRelation" type="System.Windows.Forms.TextImageRelation, System.Windows.Forms">
+    <value>ImageBeforeText</value>
+  </data>
+  <data name="&gt;&gt;radButton_Confirm.Name" xml:space="preserve">
+    <value>radButton_Confirm</value>
+  </data>
+  <data name="&gt;&gt;radButton_Confirm.Type" xml:space="preserve">
+    <value>Telerik.WinControls.UI.RadButton, Telerik.WinControls.UI, Culture=neutral, PublicKeyToken=5bb2a467cbec794e</value>
+  </data>
+  <data name="&gt;&gt;radButton_Confirm.Parent" xml:space="preserve">
+    <value>panel_ActionButtons</value>
+  </data>
+  <data name="&gt;&gt;radButton_Confirm.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="panel_ActionButtons.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Bottom</value>
+  </data>
+  <data name="panel_ActionButtons.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 120</value>
+  </data>
+  <data name="panel_ActionButtons.Size" type="System.Drawing.Size, System.Drawing">
+    <value>300, 30</value>
+  </data>
+  <data name="panel_ActionButtons.TabIndex" type="System.Int32, mscorlib">
+    <value>2</value>
+  </data>
+  <data name="&gt;&gt;panel_ActionButtons.Name" xml:space="preserve">
+    <value>panel_ActionButtons</value>
+  </data>
+  <data name="&gt;&gt;panel_ActionButtons.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Panel, System.Windows.Forms, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;panel_ActionButtons.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;panel_ActionButtons.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
+    <value>7, 15</value>
+  </data>
+  <data name="$this.Size" type="System.Drawing.Size, System.Drawing">
+    <value>300, 150</value>
+  </data>
+  <data name="&gt;&gt;$this.Name" xml:space="preserve">
+    <value>FlyoutDialogBase</value>
+  </data>
+  <data name="&gt;&gt;$this.Type" xml:space="preserve">
+    <value>System.Windows.Forms.UserControl, System.Windows.Forms, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+</root>

Pilz.UI.Telerik/Dialogs/ILoadContent.cs

@@ -0,0 +1,13 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+
+namespace Pilz.UI.Telerik.Dialogs
+{
+    public interface ILoadContent
+    {
+        void LoadContent();
+    }
+}

Pilz.UI.Telerik/Pilz.UI.Telerik.csproj

@@ -0,0 +1,20 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>net6.0-windows</TargetFramework>
+    <ImplicitUsings>enable</ImplicitUsings>
+    <Nullable>enable</Nullable>
+    <UseWindowsForms>true</UseWindowsForms>
+  </PropertyGroup>
+  
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.856</Version>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="UI.for.WinForms.AllControls.Net60" Version="2023.1.117" />
+  </ItemGroup>
+
+</Project>

Pilz.UI/DisplayHelp.vb

@@ -0,0 +1,232 @@
+Imports System.Drawing
+Imports System.Drawing.Drawing2D
+
+Public Class DisplayHelp
+
+    Public Shared Sub FillRectangle(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal color1 As Color)
+        FillRectangle(g, bounds, color1, Color.Empty, 90)
+    End Sub
+
+    Public Shared Sub FillRectangle(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal color1 As Color, ByVal color2 As Color)
+        FillRectangle(g, bounds, color1, color2, 90)
+    End Sub
+
+    Public Shared Sub FillRectangle(ByVal g As Graphics, ByVal r As Rectangle, ByVal color1 As Color, ByVal color2 As Color, ByVal gradientAngle As Integer)
+        If r.Width = 0 OrElse r.Height = 0 Then Return
+
+        If color2.IsEmpty Then
+
+            If Not color1.IsEmpty Then
+                Dim sm As SmoothingMode = g.SmoothingMode
+                g.SmoothingMode = SmoothingMode.None
+
+                Using brush As SolidBrush = New SolidBrush(color1)
+                    g.FillRectangle(brush, r)
+                End Using
+
+                g.SmoothingMode = sm
+            End If
+        Else
+
+            Using brush As LinearGradientBrush = CreateLinearGradientBrush(r, color1, color2, gradientAngle)
+                g.FillRectangle(brush, r)
+            End Using
+        End If
+    End Sub
+
+    Public Shared Sub FillRectangle(ByVal g As Graphics, ByVal r As Rectangle, ByVal color1 As Color, ByVal color2 As Color, ByVal gradientAngle As Integer, ByVal factors As Single(), ByVal positions As Single())
+        If r.Width = 0 OrElse r.Height = 0 Then Return
+
+        If color2.IsEmpty Then
+
+            If Not color1.IsEmpty Then
+                Dim sm As SmoothingMode = g.SmoothingMode
+                g.SmoothingMode = SmoothingMode.None
+
+                Using brush As SolidBrush = New SolidBrush(color1)
+                    g.FillRectangle(brush, r)
+                End Using
+
+                g.SmoothingMode = sm
+            End If
+        Else
+
+            Using brush As LinearGradientBrush = CreateLinearGradientBrush(r, color1, color2, gradientAngle)
+                Dim blend As Blend = New Blend(factors.Length)
+                blend.Factors = factors
+                blend.Positions = positions
+                brush.Blend = blend
+                g.FillRectangle(brush, r)
+            End Using
+        End If
+    End Sub
+
+    Public Shared Sub FillRoundedRectangle(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal cornerSize As Integer, ByVal color1 As Color, ByVal color2 As Color, ByVal gradientAngle As Integer)
+        If color2.IsEmpty Then
+
+            If Not color1.IsEmpty Then
+
+                Using brush As SolidBrush = New SolidBrush(color1)
+                    FillRoundedRectangle(g, brush, bounds, cornerSize)
+                End Using
+            End If
+        Else
+
+            Using brush As LinearGradientBrush = CreateLinearGradientBrush(bounds, color1, color2, gradientAngle)
+                FillRoundedRectangle(g, brush, bounds, cornerSize)
+            End Using
+        End If
+    End Sub
+
+    Public Shared Sub FillRoundedRectangle(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal cornerSize As Integer, ByVal color1 As Color, ByVal color2 As Color)
+        FillRoundedRectangle(g, bounds, cornerSize, color1, color2, 90)
+    End Sub
+
+    Public Shared Sub FillRoundedRectangle(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal cornerSize As Integer, ByVal color1 As Color)
+        Using brush As SolidBrush = New SolidBrush(color1)
+            FillRoundedRectangle(g, brush, bounds, cornerSize)
+        End Using
+    End Sub
+
+    Public Shared Sub FillRoundedRectangle(ByVal g As Graphics, ByVal brush As Brush, ByVal bounds As Rectangle, ByVal cornerSize As Integer)
+        If cornerSize <= 0 Then
+            Dim sm As SmoothingMode = g.SmoothingMode
+            g.SmoothingMode = SmoothingMode.None
+            g.FillRectangle(brush, bounds)
+            g.SmoothingMode = sm
+        Else
+            bounds.Width -= 1
+            bounds.Height -= 1
+
+            Using path As GraphicsPath = GetRoundedRectanglePath(bounds, cornerSize)
+                g.FillPath(brush, path)
+            End Using
+        End If
+    End Sub
+
+    Public Shared Sub DrawRectangle(ByVal g As System.Drawing.Graphics, ByVal color As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
+        Using pen As Pen = New Pen(color, 1)
+            DrawRectangle(g, pen, x, y, width, height)
+        End Using
+    End Sub
+
+    Public Shared Sub DrawRectangle(ByVal g As System.Drawing.Graphics, ByVal color As Color, ByVal r As System.Drawing.Rectangle)
+        DrawRectangle(g, color, r.X, r.Y, r.Width, r.Height)
+    End Sub
+
+    Public Shared Sub DrawRectangle(ByVal g As System.Drawing.Graphics, ByVal pen As System.Drawing.Pen, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
+        width -= 1
+        height -= 1
+        g.DrawRectangle(pen, x, y, width, height)
+    End Sub
+
+    Public Shared Sub DrawRoundedRectangle(ByVal g As System.Drawing.Graphics, ByVal color As Color, ByVal bounds As Rectangle, ByVal cornerSize As Integer)
+        If Not color.IsEmpty Then
+
+            Using pen As Pen = New Pen(color)
+                DrawRoundedRectangle(g, pen, bounds.X, bounds.Y, bounds.Width, bounds.Height, cornerSize)
+            End Using
+        End If
+    End Sub
+
+    Public Shared Sub DrawRoundedRectangle(ByVal g As System.Drawing.Graphics, ByVal pen As System.Drawing.Pen, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal cornerSize As Integer)
+        DrawRoundedRectangle(g, pen, Nothing, x, y, width, height, cornerSize)
+    End Sub
+
+    Public Shared Sub DrawRoundedRectangle(ByVal g As System.Drawing.Graphics, ByVal pen As System.Drawing.Pen, ByVal fill As Brush, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal cornerSize As Integer)
+        width -= 1
+        height -= 1
+        Dim r As Rectangle = New Rectangle(x, y, width, height)
+
+        Using path As GraphicsPath = GetRoundedRectanglePath(r, cornerSize)
+            If fill IsNot Nothing Then g.FillPath(fill, path)
+            g.DrawPath(pen, path)
+        End Using
+    End Sub
+
+    Public Shared Function GetRoundedRectanglePath(ByVal r As Rectangle, ByVal cornerSize As Integer) As GraphicsPath
+        Dim path As GraphicsPath = New GraphicsPath()
+
+        If cornerSize = 0 Then
+            path.AddRectangle(r)
+        Else
+            AddCornerArc(path, r, cornerSize, eCornerArc.TopLeft)
+            AddCornerArc(path, r, cornerSize, eCornerArc.TopRight)
+            AddCornerArc(path, r, cornerSize, eCornerArc.BottomRight)
+            AddCornerArc(path, r, cornerSize, eCornerArc.BottomLeft)
+            path.CloseAllFigures()
+        End If
+
+        Return path
+    End Function
+
+    Public Shared Function CreateLinearGradientBrush(ByVal r As Rectangle, ByVal color1 As Color, ByVal color2 As Color, ByVal gradientAngle As Single) As LinearGradientBrush
+        If r.Width <= 0 Then r.Width = 1
+        If r.Height <= 0 Then r.Height = 1
+        Return New LinearGradientBrush(New Rectangle(r.X, r.Y - 1, r.Width, r.Height + 1), color1, color2, gradientAngle)
+    End Function
+
+    Public Shared Sub AddCornerArc(ByVal path As GraphicsPath, ByVal bounds As Rectangle, ByVal cornerDiameter As Integer, ByVal corner As eCornerArc)
+        If cornerDiameter > 0 Then
+            Dim a As ArcData = GetCornerArc(bounds, cornerDiameter, corner)
+            path.AddArc(a.X, a.Y, a.Width, a.Height, a.StartAngle, a.SweepAngle)
+        Else
+
+            If corner = eCornerArc.TopLeft Then
+                path.AddLine(bounds.X, bounds.Y + 2, bounds.X, bounds.Y)
+            ElseIf corner = eCornerArc.BottomLeft Then
+                path.AddLine(bounds.X + 2, bounds.Bottom, bounds.X, bounds.Bottom)
+            ElseIf corner = eCornerArc.TopRight Then
+                path.AddLine(bounds.Right - 2, bounds.Y, bounds.Right, bounds.Y)
+            ElseIf corner = eCornerArc.BottomRight Then
+                path.AddLine(bounds.Right, bounds.Bottom - 2, bounds.Right, bounds.Bottom)
+            End If
+        End If
+    End Sub
+
+    Friend Shared Function GetCornerArc(ByVal bounds As Rectangle, ByVal cornerDiameter As Integer, ByVal corner As eCornerArc) As ArcData
+        Dim a As ArcData
+        If cornerDiameter = 0 Then cornerDiameter = 1
+        Dim diameter As Integer = cornerDiameter * 2
+
+        Select Case corner
+            Case eCornerArc.TopLeft
+                a = New ArcData(bounds.X, bounds.Y, diameter, diameter, 180, 90)
+            Case eCornerArc.TopRight
+                a = New ArcData(bounds.Right - diameter, bounds.Y, diameter, diameter, 270, 90)
+            Case eCornerArc.BottomLeft
+                a = New ArcData(bounds.X, bounds.Bottom - diameter, diameter, diameter, 90, 90)
+            Case Else
+                a = New ArcData(bounds.Right - diameter, bounds.Bottom - diameter, diameter, diameter, 0, 90)
+        End Select
+
+        Return a
+    End Function
+
+    Public Enum eCornerArc
+        TopLeft
+        TopRight
+        BottomLeft
+        BottomRight
+    End Enum
+
+
+    Friend Structure ArcData
+        Public X As Integer
+        Public Y As Integer
+        Public Width As Integer
+        Public Height As Integer
+        Public StartAngle As Single
+        Public SweepAngle As Single
+
+        Public Sub New(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal startAngle As Single, ByVal sweepAngle As Single)
+            Me.X = x
+            Me.Y = y
+            Me.Width = width
+            Me.Height = height
+            Me.StartAngle = startAngle
+            Me.SweepAngle = sweepAngle
+        End Sub
+    End Structure
+
+End Class

Pilz.UI/HighlightPanel.vb

@@ -0,0 +1,261 @@
+Imports System.Drawing
+Imports System.Windows.Forms
+
+Imports Pilz.Win32
+
+Friend Class HighlightPanel
+    Inherits Control
+
+    Private _Highlights As Dictionary(Of Control, eHighlightColor) = Nothing
+    Private _HighlightRegions As List(Of HighlightRegion) = New List(Of HighlightRegion)()
+
+    Public Sub New(ByVal highlights As Dictionary(Of Control, eHighlightColor))
+        _Highlights = highlights
+        Me.SetStyle(ControlStyles.UserPaint, True)
+        Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
+        Me.SetStyle(ControlStyles.Opaque, True)
+        Me.SetStyle(ControlStyles.ResizeRedraw, True)
+        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
+        Me.SetStyle(ControlStyles.Selectable, False)
+    End Sub
+
+    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
+        Dim g As Graphics = e.Graphics
+        g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias
+
+        For Each highlightRegion As HighlightRegion In _HighlightRegions
+            Dim colors As Color() = GetHighlightColors(highlightRegion.HighlightColor)
+            Dim r As Rectangle = highlightRegion.Bounds
+            Dim back As Color = highlightRegion.BackColor
+            r.Inflate(1, 1)
+            DisplayHelp.FillRectangle(g, r, back)
+            r.Inflate(-1, -1)
+            DisplayHelp.FillRoundedRectangle(g, r, 2, colors(0))
+            r.Inflate(-2, -2)
+            DisplayHelp.DrawRectangle(g, colors(2), r)
+            r.Inflate(1, 1)
+            DisplayHelp.DrawRoundedRectangle(g, colors(1), r, 2)
+        Next
+
+        MyBase.OnPaint(e)
+    End Sub
+
+    Private Function GetHighlightColors(ByVal color As eHighlightColor) As Color()
+        Dim colors As Color() = New Color(2) {}
+
+        If color = eHighlightColor.Blue Then
+            colors(0) = GetColor(172, &H6A9CD4)
+            colors(1) = GetColor(&H6A9CD4)
+            colors(2) = GetColor(&H5D7EA4)
+        ElseIf color = eHighlightColor.Orange Then
+            colors(0) = GetColor(172, &HFF9C00)
+            colors(1) = GetColor(&HFF9C00)
+            colors(2) = GetColor(&HCC6600)
+        ElseIf color = eHighlightColor.Green Then
+            colors(0) = GetColor(172, &H71B171)
+            colors(1) = GetColor(&H71B171)
+            colors(2) = GetColor(&H339933)
+        ElseIf color = eHighlightColor.Custom Then
+            If _CustomHighlightColors Is Nothing OrElse _CustomHighlightColors.Length < 3 Then
+                colors(0) = System.Drawing.Color.Red
+                colors(1) = System.Drawing.Color.Red
+                colors(2) = System.Drawing.Color.Red
+            Else
+                colors(0) = _CustomHighlightColors(0)
+                colors(1) = _CustomHighlightColors(1)
+                colors(2) = _CustomHighlightColors(2)
+            End If
+        Else
+            colors(0) = GetColor(172, &HC63030)
+            colors(1) = GetColor(&HC63030)
+            colors(2) = GetColor(&H990000)
+        End If
+
+        Return colors
+    End Function
+
+    Protected Overrides Sub OnVisibleChanged(ByVal e As EventArgs)
+        If Me.Visible AndAlso Not _UpdatingRegion Then UpdateRegion()
+        MyBase.OnVisibleChanged(e)
+    End Sub
+
+    Protected Overrides Sub OnHandleCreated(ByVal e As EventArgs)
+        If Not _RegionInitialized Then UpdateRegion()
+        MyBase.OnHandleCreated(e)
+    End Sub
+
+    Private _RegionInitialized As Boolean = False
+    Private _UpdatingRegion As Boolean = False
+
+    Friend Sub UpdateRegion()
+        If _UpdatingRegion OrElse Not Me.IsHandleCreated Then Return
+
+        Try
+            _UpdatingRegion = True
+            Me.Region = Nothing
+            _HighlightRegions.Clear()
+            If _Highlights Is Nothing Then Return
+
+            If _Highlights.Count = 0 AndAlso _FocusHighlightControl Is Nothing Then
+                Me.Visible = False
+                Return
+            End If
+
+            Dim processFocusControl As Boolean = True
+            Dim region As Region = Nothing
+
+            For Each item As KeyValuePair(Of Control, eHighlightColor) In _Highlights
+                If item.Value = eHighlightColor.None OrElse Not GetIsVisible(item.Key) Then Continue For
+                If item.Key Is _FocusHighlightControl Then processFocusControl = False
+                Dim r As Rectangle = GetControlRect(item.Key)
+                If r.IsEmpty Then Continue For
+                r.Inflate(2, 2)
+                _HighlightRegions.Add(New HighlightRegion(r, GetBackColor(item.Key.Parent), item.Value))
+
+                If region Is Nothing Then
+                    region = New Region(r)
+                Else
+                    region.Union(r)
+                End If
+
+                r.Inflate(-3, -3)
+                region.Exclude(r)
+            Next
+
+            If processFocusControl AndAlso _FocusHighlightControl IsNot Nothing AndAlso _FocusHighlightControl.Visible Then
+                Dim r As Rectangle = GetControlRect(_FocusHighlightControl)
+
+                If Not r.IsEmpty Then
+                    r.Inflate(2, 2)
+                    _HighlightRegions.Add(New HighlightRegion(r, GetBackColor(_FocusHighlightControl.Parent), _FocusHighlightColor))
+
+                    If region Is Nothing Then
+                        region = New Region(r)
+                    Else
+                        region.Union(r)
+                    End If
+
+                    r.Inflate(-3, -3)
+                    region.Exclude(r)
+                End If
+            End If
+
+            Me.Region = region
+
+            If region Is Nothing Then
+                Me.Visible = False
+            ElseIf Not Me.Visible Then
+                Me.Visible = True
+                Me.BringToFront()
+            End If
+
+            Me.Invalidate()
+        Finally
+            _UpdatingRegion = False
+            _RegionInitialized = True
+        End Try
+    End Sub
+
+    Private Shared Function GetColor(rgb As Integer) As Color
+        If rgb = -1 Then
+            Return Color.Empty
+        Else
+            Return Color.FromArgb((rgb And &HFF0000) >> 16, (rgb And &HFF00) >> 8, rgb And &HFF)
+        End If
+    End Function
+
+    Private Shared Function GetColor(alpha As Integer, rgb As Integer) As Color
+        If rgb = -1 Then
+            Return Color.Empty
+        Else
+            Return Color.FromArgb(alpha, (rgb And &HFF0000) >> 16, (rgb And &HFF00) >> 8, rgb And &HFF)
+        End If
+    End Function
+
+    Private Function GetIsVisible(ByVal control As Control) As Boolean
+        If Not control.Visible Then Return False
+        If control.Parent Is Nothing OrElse Not control.IsHandleCreated Then Return control.Visible
+        Dim rect As New Native.RECT
+        Native.User32.GetWindowRect(control.Handle, rect)
+        Dim pp As Point = control.Parent.PointToClient(New Point(rect.Left + 3, rect.Top + 3))
+        Dim handle As IntPtr = Native.User32.ChildWindowFromPointEx(control.Parent.Handle, New Native.POINT(pp.X, pp.Y), CUInt(Native.WindowFromPointFlags.CWP_SKIPINVISIBLE))
+        If handle = IntPtr.Zero Then Return control.Visible
+        Dim c As Control = Control.FromHandle(handle)
+
+        If c IsNot Nothing AndAlso c IsNot control AndAlso c IsNot Me AndAlso c IsNot control.Parent Then
+            Return False
+        End If
+
+        Return control.Visible
+    End Function
+
+    Private Function GetBackColor(ByVal control As Control) As Color
+        Dim backColor As Color = control.BackColor
+
+        If backColor.IsEmpty OrElse backColor = Color.Transparent Then
+            backColor = SystemColors.Control
+        ElseIf backColor.A < 255 Then
+            backColor = Color.FromArgb(255, backColor)
+        End If
+
+        Return backColor
+    End Function
+
+    Protected Overrides Sub OnResize(ByVal e As EventArgs)
+        UpdateRegion()
+        MyBase.OnResize(e)
+    End Sub
+
+    Private Function GetControlRect(ByVal c As Control) As Rectangle
+        If Not c.IsHandleCreated Then Return Rectangle.Empty
+        Dim rect As Native.RECT
+        Native.User32.GetWindowRect(c.Handle, rect)
+        Dim p As Point = Me.PointToClient(rect.Location)
+        Return New Rectangle(p, rect.Size)
+    End Function
+
+    Private Structure HighlightRegion
+        Public Bounds As Rectangle
+        Public BackColor As Color
+        Public HighlightColor As eHighlightColor
+
+        Public Sub New(ByVal bounds As Rectangle, ByVal backColor As Color, ByVal highlightColor As eHighlightColor)
+            Me.Bounds = bounds
+            Me.BackColor = backColor
+            Me.HighlightColor = highlightColor
+        End Sub
+    End Structure
+
+    Private _FocusHighlightControl As Control
+
+    Public Property FocusHighlightControl As Control
+        Get
+            Return _FocusHighlightControl
+        End Get
+        Set(ByVal value As Control)
+            _FocusHighlightControl = value
+        End Set
+    End Property
+
+    Private _FocusHighlightColor As eHighlightColor = eHighlightColor.Blue
+
+    Public Property FocusHighlightColor As eHighlightColor
+        Get
+            Return _FocusHighlightColor
+        End Get
+        Set(ByVal value As eHighlightColor)
+            _FocusHighlightColor = value
+        End Set
+    End Property
+
+    Private _CustomHighlightColors As Color() = Nothing
+
+    Public Property CustomHighlightColors As Color()
+        Get
+            Return _CustomHighlightColors
+        End Get
+        Set(ByVal value As Color())
+            _CustomHighlightColors = value
+        End Set
+    End Property
+End Class

Pilz.UI/Highlighter.vb

@@ -0,0 +1,400 @@
+Imports System
+Imports System.Collections.Generic
+Imports System.ComponentModel
+Imports System.Windows.Forms
+Imports System.Drawing
+
+Public Class Highlighter
+    Inherits Component
+
+    Private _Highlights As Dictionary(Of Control, eHighlightColor) = New Dictionary(Of Control, eHighlightColor)()
+    Private _HighlightOnFocus As Dictionary(Of Control, Boolean) = New Dictionary(Of Control, Boolean)()
+
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        If _ContainerControl IsNot Nothing Then
+            RemoveHandler _ContainerControl.SizeChanged, AddressOf ContainerControlSizeChanged
+            RemoveHandler _ContainerControl.HandleCreated, AddressOf ContainerControlHandleCreated
+        End If
+
+        If _HighlightPanel IsNot Nothing AndAlso _HighlightPanel.Parent Is Nothing AndAlso Not _HighlightPanel.IsDisposed Then
+            _HighlightPanel.Dispose()
+            _HighlightPanel = Nothing
+        Else
+            _HighlightPanel = Nothing
+        End If
+
+        MyBase.Dispose(disposing)
+    End Sub
+
+    <DefaultValue(False), Localizable(True), Description("Indicates whether control is highlighted when it receives input focus.")>
+    Public Function GetHighlightOnFocus(ByVal c As Control) As Boolean
+        If _HighlightOnFocus.ContainsKey(c) Then
+            Return _HighlightOnFocus(c)
+        End If
+
+        Return False
+    End Function
+
+    Public Sub SetHighlightOnFocus(ByVal c As Control, ByVal highlight As Boolean)
+        If c Is Nothing Then Throw New NullReferenceException()
+
+        If _HighlightOnFocus.ContainsKey(c) Then
+
+            If Not highlight Then
+                RemoveHighlightOnFocus(_HighlightOnFocus, c)
+            End If
+
+            Return
+        End If
+
+        If highlight Then AddHighlightOnFocus(_HighlightOnFocus, c)
+    End Sub
+
+    Private Sub AddHighlightOnFocus(ByVal highlightOnFocus As Dictionary(Of Control, Boolean), ByVal c As Control)
+        AddHandler c.Enter, AddressOf ControlHighlightEnter
+        AddHandler c.Leave, AddressOf ControlHighlightLeave
+        AddHandler c.VisibleChanged, AddressOf ControlHighlightVisibleChanged
+        highlightOnFocus.Add(c, True)
+    End Sub
+
+    Private Sub ControlHighlightVisibleChanged(ByVal sender As Object, ByVal e As EventArgs)
+        If _HighlightPanel IsNot Nothing AndAlso _HighlightPanel.FocusHighlightControl = sender Then UpdateHighlighterRegion()
+    End Sub
+
+    Private Sub ControlHighlightLeave(ByVal sender As Object, ByVal e As EventArgs)
+        If _HighlightPanel IsNot Nothing Then _HighlightPanel.FocusHighlightControl = Nothing
+        UpdateHighlighterRegion()
+    End Sub
+
+    Private Sub ControlHighlightEnter(ByVal sender As Object, ByVal e As EventArgs)
+        If _HighlightPanel IsNot Nothing Then
+            If Not _HighlightPanel.Visible Then _HighlightPanel.Visible = True
+            _HighlightPanel.BringToFront()
+            _HighlightPanel.FocusHighlightControl = CType(sender, Control)
+        End If
+
+        UpdateHighlighterRegion()
+    End Sub
+
+    Private Sub RemoveHighlightOnFocus(ByVal highlightOnFocus As Dictionary(Of Control, Boolean), ByVal c As Control)
+        RemoveHandler c.Enter, AddressOf ControlHighlightEnter
+        RemoveHandler c.Leave, AddressOf ControlHighlightLeave
+        RemoveHandler c.VisibleChanged, AddressOf ControlHighlightVisibleChanged
+        highlightOnFocus.Remove(c)
+    End Sub
+
+    <DefaultValue(eHighlightColor.None), Localizable(True), Description("Indicates the highlight color that is applied to the control.")>
+    Public Function GetHighlightColor(ByVal c As Control) As eHighlightColor
+        If _Highlights.ContainsKey(c) Then
+            Return _Highlights(c)
+        End If
+
+        Return eHighlightColor.None
+    End Function
+
+    Public Sub SetHighlightColor(ByVal c As Control, ByVal highlightColor As eHighlightColor)
+        If _Highlights.ContainsKey(c) Then
+
+            If highlightColor = eHighlightColor.None Then
+                RemoveHighlight(_Highlights, c)
+            Else
+                Dim color As eHighlightColor = _Highlights(c)
+                RemoveHighlight(_Highlights, c)
+                AddHighlight(_Highlights, c, highlightColor)
+            End If
+        ElseIf highlightColor <> eHighlightColor.None Then
+            AddHighlight(_Highlights, c, highlightColor)
+        End If
+    End Sub
+
+    Private _TabControl2 As Dictionary(Of System.Windows.Forms.TabControl, Integer) = New Dictionary(Of System.Windows.Forms.TabControl, Integer)()
+    Private _ParentPanel As Dictionary(Of Panel, Integer) = New Dictionary(Of Panel, Integer)()
+
+    Private Sub AddHighlight(ByVal highlights As Dictionary(Of Control, eHighlightColor), ByVal c As Control, ByVal highlightColor As eHighlightColor)
+        highlights.Add(c, highlightColor)
+        AddHandler c.LocationChanged, New EventHandler(AddressOf ControlLocationChanged)
+        AddHandler c.SizeChanged, New EventHandler(AddressOf ControlSizeChanged)
+        AddHandler c.VisibleChanged, New EventHandler(AddressOf ControlVisibleChanged)
+
+        If _HighlightPanel IsNot Nothing Then
+            If Not _HighlightPanel.Visible Then _HighlightPanel.Visible = True
+            _HighlightPanel.BringToFront()
+        End If
+
+        If c.Parent Is Nothing Then
+            AddHandler c.ParentChanged, AddressOf ControlParentChanged
+        Else
+            AddTabControlHandlers(c)
+        End If
+
+        UpdateHighlighterRegion()
+    End Sub
+
+    Private Sub ControlParentChanged(ByVal sender As Object, ByVal e As EventArgs)
+        Dim c As Control = CType(sender, Control)
+        RemoveHandler c.ParentChanged, AddressOf ControlParentChanged
+        AddTabControlHandlers(c)
+    End Sub
+
+    Private Sub AddTabControlHandlers(ByVal c As Control)
+        Dim tab2 As System.Windows.Forms.TabControl = TryCast(GetParentControl(c, GetType(System.Windows.Forms.TabControl)), System.Windows.Forms.TabControl)
+
+        If tab2 IsNot Nothing Then
+
+            If _TabControl2.ContainsKey(tab2) Then
+                _TabControl2(tab2) = _TabControl2(tab2) + 1
+            Else
+                _TabControl2.Add(tab2, 1)
+                AddHandler tab2.SelectedIndexChanged, AddressOf WinFormsTabSelectedIndexChanged
+            End If
+        Else
+            Dim parentPanel As Panel = TryCast(GetParentControl(c, GetType(Panel)), Panel)
+
+            If parentPanel IsNot Nothing Then
+
+                If _ParentPanel.ContainsKey(parentPanel) Then
+                    _ParentPanel(parentPanel) = _ParentPanel(parentPanel) + 1
+                Else
+                    _ParentPanel.Add(parentPanel, 1)
+                    AddHandler parentPanel.Resize, AddressOf ParentPanelResized
+                    AddHandler parentPanel.LocationChanged, AddressOf ParentPanelLocationChanged
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub ParentPanelLocationChanged(ByVal sender As Object, ByVal e As EventArgs)
+        UpdateHighlights()
+    End Sub
+
+    Private Sub ParentPanelResized(ByVal sender As Object, ByVal e As EventArgs)
+        UpdateHighlights()
+    End Sub
+
+    Private Sub WinFormsTabSelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
+        UpdateHighlighterRegion()
+    End Sub
+
+    Private Function GetParentControl(ByVal c As Control, ByVal parentType As Type) As Control
+        Dim parent As Control = c.Parent
+
+        While parent IsNot Nothing
+            If parentType.IsAssignableFrom(parent.[GetType]()) Then Return parent
+            parent = parent.Parent
+        End While
+
+        Return Nothing
+    End Function
+
+    Private Sub ControlVisibleChanged(ByVal sender As Object, ByVal e As EventArgs)
+        UpdateHighlighterRegion()
+    End Sub
+
+    Private Sub ControlSizeChanged(ByVal sender As Object, ByVal e As EventArgs)
+        UpdateHighlighterRegion()
+    End Sub
+
+    Private Sub ControlLocationChanged(ByVal sender As Object, ByVal e As EventArgs)
+        UpdateHighlighterRegion()
+    End Sub
+
+    Private Sub UpdateHighlighterRegion()
+        If _HighlightPanel IsNot Nothing Then _HighlightPanel.UpdateRegion()
+    End Sub
+
+    Public Sub UpdateHighlights()
+        UpdateHighlighterRegion()
+    End Sub
+
+    Private Sub RemoveHighlight(ByVal highlights As Dictionary(Of Control, eHighlightColor), ByVal c As Control)
+        highlights.Remove(c)
+        RemoveHandler c.LocationChanged, New EventHandler(AddressOf ControlLocationChanged)
+        RemoveHandler c.SizeChanged, New EventHandler(AddressOf ControlSizeChanged)
+        RemoveHandler c.VisibleChanged, New EventHandler(AddressOf ControlVisibleChanged)
+        Dim tab2 As System.Windows.Forms.TabControl = TryCast(GetParentControl(c, GetType(System.Windows.Forms.TabControl)), System.Windows.Forms.TabControl)
+
+        If tab2 IsNot Nothing Then
+
+            If _TabControl2.ContainsKey(tab2) Then
+
+                If _TabControl2(tab2) = 1 Then
+                    _TabControl2.Remove(tab2)
+                    RemoveHandler tab2.SelectedIndexChanged, AddressOf WinFormsTabSelectedIndexChanged
+                Else
+                    _TabControl2(tab2) = _TabControl2(tab2) - 1
+                End If
+            End If
+        Else
+            Dim parentPanel As Panel = TryCast(GetParentControl(c, GetType(Panel)), Panel)
+
+            If parentPanel IsNot Nothing Then
+
+                If _ParentPanel.ContainsKey(parentPanel) Then
+
+                    If _ParentPanel(parentPanel) = 1 Then
+                        _ParentPanel.Remove(parentPanel)
+                        RemoveHandler parentPanel.LocationChanged, AddressOf ParentPanelLocationChanged
+                        RemoveHandler parentPanel.SizeChanged, AddressOf ParentPanelResized
+                    Else
+                        _ParentPanel(parentPanel) = _ParentPanel(parentPanel) - 1
+                    End If
+                End If
+            End If
+        End If
+
+        UpdateHighlighterRegion()
+    End Sub
+
+    Friend ReadOnly Property Highlights As Dictionary(Of Control, eHighlightColor)
+        Get
+            Return _Highlights
+        End Get
+    End Property
+
+    Private _FocusHighlightColor As eHighlightColor = eHighlightColor.Blue
+
+    <DefaultValue(eHighlightColor.Blue), Category("Appearance"), Description("Indicates the highlight focus color."), Localizable(True)>
+    Public Property FocusHighlightColor As eHighlightColor
+        Get
+            Return _FocusHighlightColor
+        End Get
+        Set(ByVal value As eHighlightColor)
+            _FocusHighlightColor = value
+
+            If _HighlightPanel IsNot Nothing Then
+                _HighlightPanel.FocusHighlightColor = value
+                UpdateHighlighterRegion()
+            End If
+        End Set
+    End Property
+
+    Private _HighlightPanel As HighlightPanel = Nothing
+    Private _ContainerControl As Control = Nothing
+
+    <Description("Indicates container control highlighter is bound to. Should be set to parent form."), Category("Behavior")>
+    Public Property ContainerControl As Control
+        Get
+            Return _ContainerControl
+        End Get
+        Set(ByVal value As Control)
+
+            If Me.DesignMode Then
+                _ContainerControl = value
+                Return
+            End If
+
+            If _ContainerControl IsNot value Then
+
+                If _ContainerControl IsNot Nothing Then
+                    RemoveHandler _ContainerControl.SizeChanged, AddressOf ContainerControlSizeChanged
+                    RemoveHandler _ContainerControl.HandleCreated, AddressOf ContainerControlHandleCreated
+                    If _HighlightPanel IsNot Nothing AndAlso _HighlightPanel.Parent Is _ContainerControl Then _ContainerControl.Controls.Remove(_HighlightPanel)
+                End If
+
+                _ContainerControl = value
+
+                If _ContainerControl IsNot Nothing Then
+
+                    If _HighlightPanel Is Nothing Then
+                        _HighlightPanel = New HighlightPanel(_Highlights)
+                        _HighlightPanel.FocusHighlightColor = _FocusHighlightColor
+                        _HighlightPanel.Margin = New System.Windows.Forms.Padding(0)
+                        _HighlightPanel.Padding = New System.Windows.Forms.Padding(0)
+                        _HighlightPanel.CustomHighlightColors = _CustomHighlightColors
+                        _HighlightPanel.Visible = False
+                    End If
+
+                    AddHandler _ContainerControl.SizeChanged, AddressOf ContainerControlSizeChanged
+                    AddHandler _ContainerControl.HandleCreated, AddressOf ContainerControlHandleCreated
+                    _ContainerControl.Controls.Add(_HighlightPanel)
+                    UpdateHighlightPanelBounds()
+                End If
+            End If
+        End Set
+    End Property
+
+    Private Sub ContainerControlHandleCreated(ByVal sender As Object, ByVal e As EventArgs)
+        If _Highlights.Count > 0 AndAlso _HighlightPanel IsNot Nothing AndAlso Not _HighlightPanel.Visible Then _HighlightPanel.Visible = True
+    End Sub
+
+    Private Sub UpdateHighlightPanelBounds()
+        Dim bounds As Rectangle = New Rectangle(0, 0, _ContainerControl.ClientRectangle.Width, _ContainerControl.ClientRectangle.Height)
+
+        If _HighlightPanel IsNot Nothing Then
+            If TypeOf _HighlightPanel.Parent Is Form Then
+                Dim form As Form = TryCast(_HighlightPanel.Parent, Form)
+
+                If form.AutoSize Then
+                    bounds.X += form.Padding.Left
+                    bounds.Y += form.Padding.Top
+                    bounds.Width -= form.Padding.Horizontal
+                    bounds.Height -= form.Padding.Vertical
+                End If
+            End If
+
+            If _HighlightPanel.Bounds.Equals(bounds) Then
+                _HighlightPanel.UpdateRegion()
+            Else
+                _HighlightPanel.Bounds = bounds
+            End If
+
+            _HighlightPanel.BringToFront()
+        End If
+    End Sub
+
+    Private _DelayTimer As Timer = Nothing
+
+    Private Sub ContainerControlSizeChanged(ByVal sender As Object, ByVal e As EventArgs)
+        Dim form As Form = TryCast(sender, Form)
+
+        If form IsNot Nothing Then
+
+            If _DelayTimer Is Nothing Then
+                _DelayTimer = New Timer()
+                _DelayTimer.Interval = 100
+                AddHandler _DelayTimer.Tick, New EventHandler(AddressOf DelayTimerTick)
+                _DelayTimer.Start()
+            End If
+
+            Return
+        End If
+
+        UpdateHighlightPanelBounds()
+    End Sub
+
+    Private Sub DelayTimerTick(ByVal sender As Object, ByVal e As EventArgs)
+        Dim timer As Timer = _DelayTimer
+        _DelayTimer = Nothing
+        RemoveHandler timer.Tick, New EventHandler(AddressOf DelayTimerTick)
+        timer.[Stop]()
+        timer.Dispose()
+        UpdateHighlightPanelBounds()
+    End Sub
+
+    Private _CustomHighlightColors As Color() = Nothing
+
+    <Category("Appearance"), Description("Array of colors used to render custom highlight color. Control expects 3 colors in array to be specified which define the highlight border.")>
+    Public Property CustomHighlightColors As Color()
+        Get
+            Return _CustomHighlightColors
+        End Get
+        Set(ByVal value As Color())
+            _CustomHighlightColors = value
+
+            If _HighlightPanel IsNot Nothing Then
+                _HighlightPanel.CustomHighlightColors = _CustomHighlightColors
+                _HighlightPanel.Invalidate()
+            End If
+        End Set
+    End Property
+
+End Class
+
+Public Enum eHighlightColor
+    None
+    Red
+    Blue
+    Green
+    Orange
+    Custom
+End Enum

Pilz.UI/PaintingControl/ArrowLineCapProps.vb

@@ -0,0 +1,15 @@
+Imports System.Drawing
+Imports System.Drawing.Drawing2D
+
+Public Class ArrowLineCapProps
+    Inherits LineCapProps
+
+    Public Property Size As New Size(10, 10)
+    Public Property IsFilles As Boolean = True
+
+    Friend Overrides Function Configure() As LineCapConfigurationArgs
+        Dim cap As New AdjustableArrowCap(Size.Width, Size.Height, IsFilles)
+        Return New LineCapConfigurationArgs(cap)
+    End Function
+
+End Class

Pilz.UI/PaintingControl/DefaultDrawMethodes.vb

@@ -112,7 +112,22 @@ Public Class DefaultDrawMethodes
 
     Public Shared Sub DrawLine(e As PaintingObjectPaintEventArgs)
         Dim obj As PaintingObject = e.PaintingObject
-        Dim p2 As New Pen(obj.OutlineColor, obj.OutlineThicknes) With {.DashStyle = obj.OutlineDashStyle}
+        Dim p2 As New Pen(obj.OutlineColor, obj.OutlineThicknes) With {
+            .DashStyle = obj.OutlineDashStyle
+        }
+
+        If obj.LineEndCap IsNot Nothing Then
+            Dim args As LineCapConfigurationArgs = obj.LineEndCap.Configure
+            p2.StartCap = args.LineCap
+            p2.CustomStartCap = args.CustomLineCap
+        End If
+
+        If obj.LineStartCap IsNot Nothing Then
+            Dim args As LineCapConfigurationArgs = obj.LineStartCap.Configure
+            p2.EndCap = args.LineCap
+            p2.CustomEndCap = args.CustomLineCap
+        End If
+
         p2.Alignment = PenAlignment.Center
         Dim no As PointF = New PointF(e.X, e.Y)
         e.Graphics.DrawLine(p2, no, no + obj.Size)

Pilz.UI/PaintingControl/DefaultLineCapProps.vb

@@ -0,0 +1,13 @@
+Imports System.Drawing.Drawing2D
+
+Public Class DefaultLineCapProps
+    Inherits LineCapProps
+
+    Public Property LineCap As LineCap = LineCap.Flat
+    Public Property CustomLineCap As CustomLineCap = Nothing
+
+    Friend Overrides Function Configure() As LineCapConfigurationArgs
+        Return New LineCapConfigurationArgs(LineCap, CustomLineCap)
+    End Function
+
+End Class

Pilz.UI/PaintingControl/LineCapConfigurationArgs.vb

@@ -0,0 +1,21 @@
+Imports System.Drawing.Drawing2D
+
+Public Class LineCapConfigurationArgs
+
+    Public ReadOnly Property LineCap As LineCap
+    Public ReadOnly Property CustomLineCap As CustomLineCap
+
+    Public Sub New(lineCap As LineCap)
+        Me.New(lineCap, Nothing)
+    End Sub
+
+    Public Sub New(customLineCap As CustomLineCap)
+        Me.New(Nothing, customLineCap)
+    End Sub
+
+    Public Sub New(lineCap As LineCap, customLineCap As CustomLineCap)
+        Me.LineCap = lineCap
+        Me.CustomLineCap = customLineCap
+    End Sub
+
+End Class

Pilz.UI/PaintingControl/LineCapProps.vb

@@ -0,0 +1,7 @@
+Imports System.Drawing
+
+Public MustInherit Class LineCapProps
+
+    Friend MustOverride Function Configure() As LineCapConfigurationArgs
+
+End Class

Pilz.UI/PaintingControl/PaintingControl.vb

@@ -196,7 +196,7 @@ Public Class PaintingControl
             End If
         End If
 
-        If pressedControl Then
+        If pressedAlt Then
 
             calcOffset_MouseOnTab = New Point(e.X, e.Y)
             calcOffset_LastOffset = Offset
@@ -281,7 +281,7 @@ Public Class PaintingControl
         End If
 
         If calcOffset_IsActive Then
-            If pressedControl Then
+            If pressedAlt Then
                 CalcNewOffset(e.Location)
             Else
                 calcOffset_IsActive = False
@@ -314,7 +314,7 @@ Public Class PaintingControl
 
     Private Sub SaveObjectPositions(e As MouseEventArgs, objs As IList)
         For Each obj As PaintingObject In objs
-            If Not savedPos.ContainsKey(obj) Then
+            If Not obj.HardcodedLocation AndAlso Not savedPos.ContainsKey(obj) Then
                 savedPos.Add(obj, New PointF(e.X - obj.Location.X + Offset.X, e.Y - obj.Location.Y + Offset.Y))
                 SaveObjectPositions(e, obj.PinnedObjects)
             End If
@@ -644,7 +644,7 @@ Public Class PaintingControl
     End Sub
 
     Private Sub CheckMouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
-        If pressedControl Then
+        If pressedAlt Then
             Dim val As Single = e.Delta / 120 / 10
             ZoomFactor = New SizeF(Math.Max(ZoomFactor.Width + val, 0.25), Math.Max(ZoomFactor.Height + val, 0.25))
             Refresh()

Pilz.UI/PaintingControl/PaintingObject.vb

@@ -19,35 +19,48 @@ Imports Newtonsoft.Json
     Public Property OutlineColor As Color = Color.DarkBlue
     Public Property OutlineThicknes As Single = 1
     Public Property OutlineDashStyle As DashStyle = DashStyle.Solid
+    Public Property LineStartCap As LineCapProps = Nothing
+    Public Property LineEndCap As LineCapProps = Nothing
+    <JsonProperty>
     Private _Text As String = ""
     Public Property TextPosition As TextPosition = TextPosition.FullCenter
     Public Property VerticalTextAlignment As StringAlignment = StringAlignment.Center
     Public Property HorizontalTextAlignment As StringAlignment = StringAlignment.Center
     Public Property TextFont As New Font(FontFamily.GenericSansSerif, 8.25)
     Public Property TextColor As Color = Color.Black
+    <JsonProperty>
     Private _Location As New PointF(50, 50)
+    <JsonProperty>
     Private _Size As New SizeF(50, 80)
     Public Property EnableFill As Boolean = True
     Public Property EnableOutline As Boolean = True
     Public Property SelectionColor As Color = Color.CornflowerBlue
     Public Property SelectionDashStyle As DashStyle = DashStyle.Dot
+    <JsonProperty>
     Private _EnableSelection As Boolean = True
     Public Property Image As Image = Nothing
     <JsonIgnore> Public Property BufferedImage As Image = Nothing
     Public Property ImageSizeMode As ImageSizeMode
     Public Property ImageProperties As New PaintingObjectImageProperties
-    Public Property Tag As String = Nothing
+    <JsonIgnore>
+    Public Property Tag As Object = Nothing
     Public Property Name As String = ""
     Public ReadOnly Property PinnedObjects As New List(Of PaintingObject)
+    <JsonIgnore>
     Public ReadOnly Property DrawMethodes As New List(Of DelegateDrawPaintingObjectMethode)
+    <JsonIgnore>
     Public ReadOnly Property DrawSelectionMethode As DelegateDrawPaintingObjectMethode = AddressOf DefaultDrawMethodes.DrawSelection
     Public Property Cursor As Cursor = Cursors.Default
     Public Property HardcodedSize As Boolean = False
+    Public Property HardcodedLocation As Boolean = False
+    <JsonProperty>
     Private _Visible As Boolean = True
+    <JsonProperty>
     Private _AutoAlignToGrid As Boolean = False
     Public Property MouseTransparency As Boolean = False
     Public ReadOnly Property Layering As New PaintingObjectLayering(Me)
     Public ReadOnly Property PaintingObjects As New PaintingObjectList(_Parent) With {.EnableRaisingEvents = False}
+    <JsonIgnore>
     Public ReadOnly Property ErrorsAtDrawing As ULong = 0
 
     Public Event MouseClick(sender As PaintingObject, e As MouseEventArgs)
@@ -172,6 +185,15 @@ Imports Newtonsoft.Json
         End Set
     End Property
 
+    <JsonIgnore> Public Property LocationDirect As PointF
+        Get
+            Return _Location
+        End Get
+        Set(value As PointF)
+            _Location = value
+        End Set
+    End Property
+
     <JsonIgnore> Public Property Size As SizeF
         Get
             If Parent IsNot Nothing Then
@@ -246,6 +268,7 @@ Imports Newtonsoft.Json
         End Set
     End Property
 
+    <JsonIgnore>
     Public Property Selected As Boolean
         Get
             Return _Selected
@@ -321,6 +344,7 @@ Imports Newtonsoft.Json
         End Set
     End Property
 
+    <JsonIgnore>
     Public Property Rectangle As RectangleF
         Get
             Return New RectangleF(Location, Size)
@@ -408,6 +432,20 @@ Imports Newtonsoft.Json
         End Set
     End Property
 
+    <JsonProperty(NameOf(Tag))>
+    Public Property TagString As String
+        Get
+            If TypeOf Tag Is String Then
+                Return Tag
+            Else
+                Return String.Empty
+            End If
+        End Get
+        Set(value As String)
+            Tag = value
+        End Set
+    End Property
+
     Public Property EnableResize As Boolean
         Get
             If resizeEngine Is Nothing Then
@@ -443,7 +481,7 @@ Imports Newtonsoft.Json
     End Sub
 
     Public Sub Draw(e As PaintEventArgs)
-        Draw(e, PointF.Empty)
+        Draw(e, e.ClipRectangle.Location)
     End Sub
 
     Public Sub Draw(e As PaintEventArgs, offset As PointF)
@@ -528,8 +566,10 @@ End Class
 Public Class PaintingObjectList
     Inherits List(Of PaintingObject)
 
+    <JsonIgnore>
     Friend ReadOnly Property MyParent As PaintingControl
     Friend Property EnableRaisingEvents As Boolean = True
+    <JsonIgnore>
     Public ReadOnly Property Layering As New PaintingObjectListLayering(Me)
 
     Public Sub New()

Pilz.UI/PaintingControl/PaintingObjectJsonSerializer.vb

@@ -0,0 +1,3 @@
+Public Class PaintingObjectJsonSerializer
+
+End Class

Pilz.UI/PaintingControl/PaintingObjectLayering.vb

@@ -1,11 +1,22 @@
-Public Class PaintingObjectLayering
+Imports Newtonsoft.Json
 
+Public Class PaintingObjectLayering
+
+    '<JsonProperty(NameOf(PaintingObject))>
+    Private ReadOnly _PaintingObject As PaintingObject
+
+    <JsonIgnore>
     Public ReadOnly Property PaintingObject As PaintingObject
+        Get
+            Return _PaintingObject
+        End Get
+    End Property
 
     ''' <summary>
     ''' Get the current object list from the painting object.
     ''' </summary>
     ''' <returns>Returns the current object list from the painting object.</returns>
+    <JsonIgnore>
     Public ReadOnly Property ObjectList As PaintingObjectList
         Get
             Return PaintingObject.Parent.PaintingObjects
@@ -17,7 +28,7 @@
     ''' </summary>
     ''' <param name="obj"></param>
     Public Sub New(obj As PaintingObject)
-        PaintingObject = obj
+        _PaintingObject = obj
     End Sub
 
     ''' <summary>

Pilz.UI/Pilz.UI.vbproj

@@ -1,10 +1,11 @@
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <MyType>Windows</MyType>
-    <TargetFramework>net48</TargetFramework>
+    <TargetFramework>net6.0-windows</TargetFramework>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
     <DocumentationFile>Pilz.UI.xml</DocumentationFile>
     <DefineTrace>true</DefineTrace>
+    <UseWindowsForms>true</UseWindowsForms>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <DefineDebug>true</DefineDebug>
@@ -36,15 +37,17 @@
     <RemoveIntegerChecks>true</RemoveIntegerChecks>
     <CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
   </PropertyGroup>
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.856</Version>
+  </PropertyGroup>
   <ItemGroup>
     <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
     <PackageReference Include="System.Net.Http" Version="4.3.4" />
   </ItemGroup>
   <ItemGroup>
-    <PackageReference Include="Newtonsoft.Json" Version="12.0.3" />
-  </ItemGroup>
-  <ItemGroup>
-    <Reference Include="System.Windows.Forms" />
+    <PackageReference Include="Newtonsoft.Json" Version="13.0.3" />
   </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />
@@ -58,9 +61,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Update="PaintingControl\PaintingControl.vb">
-      <SubType>UserControl</SubType>
-    </Compile>
+    <Compile Update="PaintingControl\PaintingControl.vb" />
     <Compile Update="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
@@ -100,5 +101,6 @@
   </ItemGroup>
   <ItemGroup>
     <ProjectReference Include="..\Pilz.Drawing\Pilz.Drawing.vbproj" />
+    <ProjectReference Include="..\Pilz.Win32\Pilz.Win32.vbproj" />
   </ItemGroup>
 </Project>

Pilz.UI/Utilities/DrawingControl.vb

@@ -1,4 +1,4 @@
-Imports System.Runtime.CompilerServices
+Imports System.Runtime.CompilerServices
 Imports System.Windows.Forms
 
 Namespace Utils
@@ -6,10 +6,19 @@ Namespace Utils
     Public Module DrawingControl
 
         Private Const WM_SETREDRAW = 11
+        Private ReadOnly dicSuspendCount As New Dictionary(Of IntPtr, Integer)
 
         <Extension>
         Public Sub SuspendDrawing(control As Control)
+            If Not dicSuspendCount.ContainsKey(control.Handle) Then
+                dicSuspendCount.Add(control.Handle, 1)
+            Else
+                dicSuspendCount(control.Handle) += 1
+            End If
+
+            If dicSuspendCount(control.Handle) = 1 Then
                 SendMessage(control.Handle, WM_SETREDRAW, False, 0)
+            End If
         End Sub
 
         <Extension>
@@ -19,8 +28,19 @@ Namespace Utils
 
         <Extension>
         Public Sub ResumeDrawing(control As Control, redraw As Boolean)
+            Dim doRedraw As Boolean = True
+
+            If dicSuspendCount.ContainsKey(control.Handle) Then
+                dicSuspendCount(control.Handle) -= 1
+                If dicSuspendCount(control.Handle) >= 1 Then
+                    doRedraw = False
+                End If
+            End If
+
+            If doRedraw Then
                 SendMessage(control.Handle, WM_SETREDRAW, True, 0)
                 If redraw Then control.Refresh()
+            End If
         End Sub
 
     End Module

Pilz.Win32/Internals/IconExtractor.vb

@@ -1,5 +1,7 @@
 Imports System.Drawing
 Imports System.Runtime.InteropServices
+
+Imports Pilz.Win32.Mapped
 Imports Pilz.Win32.Native
 
 Namespace Internals
@@ -10,12 +12,13 @@ Namespace Internals
         ''' Extrahiert das Icon aus einer Datei oder aus einem Ordner.
         ''' </summary>
         ''' <param name="FilePath">Hier übergeben Sie den Pfad der Datei von dem das Icon extrahiert werden soll.</param>
-        ''' <param name="Small">Bei übergabe von true wird ein kleines und bei false ein großes Icon zurück gegeben.</param>
-        Public Shared Function ExtractIcon(FilePath As String, Small As Boolean) As Icon
+        ''' <param name="size">Bei übergabe von true wird ein kleines und bei false ein großes Icon zurück gegeben.</param>
+        Public Shared Function ExtractIcon(FilePath As String, size As SystemIconSize) As Icon
             Dim icon As Icon
             Dim shinfo As New SHFILEINFO
+            Dim small As Boolean = size = SystemIconSize.Small
 
-            LibShell32.SHGetFileInfo(FilePath, 0, shinfo, Math.Truncate(Marshal.SizeOf(shinfo)), SHFILEINFO.SHGFI_ICON Or If(Small, SHFILEINFO.SHGFI_SMALLICON, SHFILEINFO.SHGFI_LARGEICON))
+            Shell32.SHGetFileInfo(FilePath, 0, shinfo, Math.Truncate(Marshal.SizeOf(shinfo)), SHFILEINFO.SHGFI_ICON Or If(small, SHFILEINFO.SHGFI_SMALLICON, SHFILEINFO.SHGFI_LARGEICON))
 
             Try
                 icon = Icon.FromHandle(shinfo.hIcon)

Pilz.Win32/Internals/IconFactory.vb

@@ -0,0 +1,208 @@
+Imports System
+Imports System.Runtime.InteropServices
+Imports Microsoft.Win32
+Imports System.Reflection
+Imports System.Collections.Generic
+Imports System.Drawing
+Imports Pilz.Win32.Native
+Imports Pilz.Win32.Native.Shell32
+Imports Pilz.Win32.Mapped
+
+Namespace Internals
+    Public Class IconFactory
+
+#Region "Custom exceptions class"
+
+        Public Class IconNotFoundException
+            Inherits Exception
+            Public Sub New(ByVal fileName As String, ByVal index As Integer)
+                MyBase.New(String.Format("Icon with Id = {0} wasn't found in file {1}", index, fileName))
+            End Sub
+        End Class
+
+        Public Class UnableToExtractIconsException
+            Inherits Exception
+            Public Sub New(ByVal fileName As String, ByVal firstIconIndex As Integer, ByVal iconCount As Integer)
+                MyBase.New(String.Format("Tryed to extract {2} icons starting from the one with id {1} from the ""{0}"" file but failed", fileName, firstIconIndex, iconCount))
+            End Sub
+        End Class
+
+#End Region
+
+
+        ''' <summary>
+        ''' Get the number of icons in the specified file.
+        ''' </summary>
+        ''' <param name="fileName">Full path of the file to look for.</param>
+        ''' <returns></returns>
+        Private Shared Function GetIconsCountInFile(fileName As String) As Integer
+            Return ExtractIconEx(fileName, -1, Nothing, Nothing, 0)
+        End Function
+
+#Region "ExtractIcon-like functions"
+
+        Public Shared Sub ExtractEx(ByVal fileName As String, ByVal largeIcons As List(Of Icon), ByVal smallIcons As List(Of Icon), ByVal firstIconIndex As Integer, ByVal iconCount As Integer)
+            ' 
+            '  Memory allocations
+            ' 
+
+            Dim smallIconsPtrs As IntPtr() = Nothing
+            Dim largeIconsPtrs As IntPtr() = Nothing
+
+            If smallIcons IsNot Nothing Then
+                smallIconsPtrs = New IntPtr(iconCount - 1) {}
+            End If
+            If largeIcons IsNot Nothing Then
+                largeIconsPtrs = New IntPtr(iconCount - 1) {}
+            End If
+
+            ' 
+            '  Call to native Win32 API
+            ' 
+
+            Dim apiResult = ExtractIconEx(fileName, firstIconIndex, largeIconsPtrs, smallIconsPtrs, iconCount)
+            If apiResult <> iconCount Then
+                Throw New UnableToExtractIconsException(fileName, firstIconIndex, iconCount)
+            End If
+
+            ' 
+            '  Fill lists
+            ' 
+
+            If smallIcons IsNot Nothing Then
+                smallIcons.Clear()
+                For Each actualIconPtr In smallIconsPtrs
+                    smallIcons.Add(Icon.FromHandle(actualIconPtr))
+                Next
+            End If
+            If largeIcons IsNot Nothing Then
+                largeIcons.Clear()
+                For Each actualIconPtr In largeIconsPtrs
+                    largeIcons.Add(Icon.FromHandle(actualIconPtr))
+                Next
+            End If
+        End Sub
+
+        Public Shared Function ExtractEx(ByVal fileName As String, ByVal size As SystemIconSize, ByVal firstIconIndex As Integer, ByVal iconCount As Integer) As List(Of Icon)
+            Dim iconList As New List(Of Icon)()
+
+            Select Case size
+                Case SystemIconSize.Large
+                    ExtractEx(fileName, iconList, Nothing, firstIconIndex, iconCount)
+                Case SystemIconSize.Small
+                    ExtractEx(fileName, Nothing, iconList, firstIconIndex, iconCount)
+                Case Else
+                    Throw New ArgumentOutOfRangeException("size")
+            End Select
+
+            Return iconList
+        End Function
+
+        Public Shared Sub Extract(ByVal fileName As String, ByVal largeIcons As List(Of Icon), ByVal smallIcons As List(Of Icon))
+            Dim iconCount = GetIconsCountInFile(fileName)
+            ExtractEx(fileName, largeIcons, smallIcons, 0, iconCount)
+        End Sub
+
+        Public Shared Function Extract(ByVal fileName As String, ByVal size As SystemIconSize) As List(Of Icon)
+            Dim iconCount = GetIconsCountInFile(fileName)
+            Return ExtractEx(fileName, size, 0, iconCount)
+        End Function
+
+        Public Shared Function ExtractOne(ByVal fileName As String, ByVal index As Integer, ByVal size As SystemIconSize) As Icon
+            Try
+                Dim iconList = ExtractEx(fileName, size, index, 1)
+                Return iconList(0)
+            Catch __unusedUnableToExtractIconsException1__ As UnableToExtractIconsException
+                Throw New IconNotFoundException(fileName, index)
+            End Try
+        End Function
+
+        Public shared Sub ExtractOne(ByVal fileName As String, ByVal index As Integer, <Out> ByRef largeIcon As Icon, <Out> ByRef smallIcon As Icon)
+            Dim smallIconList As List(Of Icon) = New List(Of Icon)()
+            Dim largeIconList As List(Of Icon) = New List(Of Icon)()
+            Try
+                ExtractEx(fileName, largeIconList, smallIconList, index, 1)
+                largeIcon = largeIconList(0)
+                smallIcon = smallIconList(0)
+            Catch __unusedUnableToExtractIconsException1__ As UnableToExtractIconsException
+                Throw New IconNotFoundException(fileName, index)
+            End Try
+        End Sub
+
+#End Region
+
+        'this will look throw the registry 
+        'to find if the Extension have an icon.
+        Public Shared Function IconFromExtension(ByVal extension As String, ByVal size As SystemIconSize) As Icon
+            ' Add the '.' to the extension if needed
+            If extension(0) <> "."c Then extension = "."c & extension
+
+            'opens the registry for the wanted key.
+            Dim Root = Registry.ClassesRoot
+            Dim ExtensionKey = Root.OpenSubKey(extension)
+            ExtensionKey.GetValueNames()
+            Dim ApplicationKey As RegistryKey = Root.OpenSubKey(ExtensionKey.GetValue("").ToString())
+
+            'gets the name of the file that have the icon.
+            Dim IconLocation As String = ApplicationKey.OpenSubKey("DefaultIcon").GetValue("").ToString()
+            Dim IconPath = IconLocation.Split(","c)
+
+            If Equals(IconPath(1), Nothing) Then IconPath(1) = "0"
+            Dim Large = New IntPtr(0) {}, Small = New IntPtr(0) {}
+
+            'extracts the icon from the file.
+            ExtractIconEx(IconPath(0), Convert.ToInt16(IconPath(1)), Large, Small, 1)
+            Return If(size = SystemIconSize.Large, Icon.FromHandle(Large(0)), Icon.FromHandle(Small(0)))
+        End Function
+
+        Public Shared Function IconFromExtensionShell(ByVal extension As String, ByVal size As SystemIconSize) As Icon
+            'add '.' if nessesry
+            If extension(0) <> "."c Then extension = "."c & extension
+
+            'temp struct for getting file shell info
+            Dim fileInfo As SHFILEINFO = New SHFILEINFO()
+
+            SHGetFileInfo(extension, 0, fileInfo, Marshal.SizeOf(fileInfo), FileInfoFlags.SHGFI_ICON Or FileInfoFlags.SHGFI_USEFILEATTRIBUTES Or CType(size, FileInfoFlags))
+
+            Return Icon.FromHandle(fileInfo.hIcon)
+        End Function
+
+        Public Shared Function IconFromResource(ByVal resourceName As String) As Icon
+            Dim assembly As Assembly = Assembly.GetCallingAssembly()
+
+            Return New Icon(assembly.GetManifestResourceStream(resourceName))
+        End Function
+
+        ''' <summary>
+        ''' Parse strings in registry who contains the name of the icon and
+        ''' the index of the icon an return both parts.
+        ''' </summary>
+        ''' <param name="regString">The full string in the form "path,index" as found in registry.</param>
+        ''' <param name="fileName">The "path" part of the string.</param>
+        ''' <param name="index">The "index" part of the string.</param>
+        Public Shared Sub ExtractInformationsFromRegistryString(ByVal regString As String, <Out> ByRef fileName As String, <Out> ByRef index As Integer)
+            If Equals(regString, Nothing) Then
+                Throw New ArgumentNullException("regString")
+            End If
+            If regString.Length = 0 Then
+                Throw New ArgumentException("The string should not be empty.", "regString")
+            End If
+
+            index = 0
+            Dim strArr = regString.Replace("""", "").Split(","c)
+            fileName = strArr(0).Trim()
+            If strArr.Length > 1 Then
+                Call Integer.TryParse(strArr(1).Trim(), index)
+            End If
+        End Sub
+
+        Public Shared Function ExtractFromRegistryString(ByVal regString As String, ByVal size As SystemIconSize) As Icon
+            Dim fileName As String
+            Dim index As Integer
+            ExtractInformationsFromRegistryString(regString, fileName, index)
+            Return ExtractOne(fileName, index, size)
+        End Function
+
+    End Class
+
+End Namespace

Pilz.Win32/Mapped/FileTypeIcons.vb

@@ -0,0 +1,17 @@
+Imports System.Drawing
+
+Namespace Mapped
+
+    Public Module FileTypeIcons
+
+        Public Function ExtractIconFromFilePath(filePath As String, size As SystemIconSize) As Icon
+            Return Internals.IconExtractor.ExtractIcon(filePath, size)
+        End Function
+
+        Public Function ExtractIconFromFileExtension(fileExtension As String, size As SystemIconSize) As Icon
+            Return Internals.IconFactory.IconFromExtensionShell(fileExtension, size)
+        End Function
+
+    End Module
+
+End Namespace

Pilz.Win32/Mapped/SystemIconSize.vb

@@ -0,0 +1,12 @@
+Namespace Mapped
+
+    ''' <summary>
+    ''' Two constants extracted from the FileInfoFlags, the only that are
+    ''' meaningfull for the user of this class.
+    ''' </summary>
+    Public Enum SystemIconSize As Integer
+        Large
+        Small
+    End Enum
+
+End Namespace

Pilz.Win32/Native/FileInfoFlags.vb

@@ -0,0 +1,20 @@
+Namespace Native
+
+    <Flags>
+    Public Enum FileInfoFlags As Integer
+        ''' <summary>
+        ''' Retrieve the handle to the icon that represents the file and the index 
+        ''' of the icon within the system image list. The handle is copied to the 
+        ''' hIcon member of the structure specified by psfi, and the index is copied 
+        ''' to the iIcon member.
+        ''' </summary>
+        SHGFI_ICON = &H100
+        ''' <summary>
+        ''' Indicates that the function should not attempt to access the file 
+        ''' specified by pszPath. Rather, it should act as if the file specified by 
+        ''' pszPath exists with the file attributes passed in dwFileAttributes.
+        ''' </summary>
+        SHGFI_USEFILEATTRIBUTES = &H10
+    End Enum
+
+End Namespace

Pilz.Win32/Native/Kernel32.vb

@@ -0,0 +1,16 @@
+Imports System.Runtime.InteropServices
+Imports System.Text
+
+Namespace Native
+
+    Public Class Kernel32
+
+        Private Const LIB_KERNEL32 As String = "kernel32.dll"
+
+        <DllImport(LIB_KERNEL32)>
+        Public Shared Function GetModuleFileName(hModule As IntPtr, lpFilename As StringBuilder, nSize As Integer) As UInteger
+        End Function
+
+    End Class
+
+End Namespace

Pilz.Win32/Native/LibShell32.vb

@@ -1,9 +0,0 @@
-Namespace Native
-
-    Public Class LibShell32
-
-        Public Declare Function SHGetFileInfo Lib "shell32.dll" (ByVal pszPath As String, ByVal dwFileAttributes As UInteger, ByRef psfi As SHFILEINFO, ByVal cbSizeFileInfo As UInteger, ByVal uFlags As UInteger) As IntPtr
-
-    End Class
-
-End Namespace

Pilz.Win32/Native/POINT.vb

@@ -0,0 +1,21 @@
+Imports System.Runtime.InteropServices
+
+Namespace Native
+
+    <StructLayout(LayoutKind.Sequential)>
+    Public Structure POINT
+        Public Sub New(ByVal p As System.Drawing.Point)
+            Me.x = p.X
+            Me.y = p.Y
+        End Sub
+
+        Public Sub New(ByVal x As Integer, ByVal y As Integer)
+            Me.x = x
+            Me.y = y
+        End Sub
+
+        Public x As Integer
+        Public y As Integer
+    End Structure
+
+End Namespace

Pilz.Win32/Native/RECT.vb

@@ -0,0 +1,82 @@
+Imports System.Drawing
+Imports System.Runtime.InteropServices
+
+Namespace Native
+
+    <Serializable, StructLayout(LayoutKind.Sequential)>
+    Public Structure RECT
+        Public Left As Integer
+        Public Top As Integer
+        Public Right As Integer
+        Public Bottom As Integer
+
+        Public Sub New(ByVal left_ As Integer, ByVal top_ As Integer, ByVal right_ As Integer, ByVal bottom_ As Integer)
+            Left = left_
+            Top = top_
+            Right = right_
+            Bottom = bottom_
+        End Sub
+
+        Public Sub New(ByVal r As Rectangle)
+            Left = r.Left
+            Top = r.Top
+            Right = r.Right
+            Bottom = r.Bottom
+        End Sub
+
+        Public ReadOnly Property Height As Integer
+            Get
+                Return Bottom - Top
+            End Get
+        End Property
+
+        Public ReadOnly Property Width As Integer
+            Get
+                Return Right - Left
+            End Get
+        End Property
+
+        Public ReadOnly Property Size As System.Drawing.Size
+            Get
+                Return New System.Drawing.Size(Width, Height)
+            End Get
+        End Property
+
+        Public ReadOnly Property Location As System.Drawing.Point
+            Get
+                Return New System.Drawing.Point(Left, Top)
+            End Get
+        End Property
+
+        Public Function ToRectangle() As Rectangle
+            Return Rectangle.FromLTRB(Left, Top, Right, Bottom)
+        End Function
+
+        Public Shared Function FromRectangle(ByVal rectangle As Rectangle) As RECT
+            Return New RECT(rectangle.Left, rectangle.Top, rectangle.Right, rectangle.Bottom)
+        End Function
+
+        Public Overrides Function GetHashCode() As Integer
+            Return Left ^ ((Top << 13) Or (Top >> &H13)) _
+                ^ ((Width << &H1A) Or (Width >> 6)) _
+                ^ ((Height << 7) Or (Height >> &H19))
+        End Function
+
+        Public Shared Function FromXYWH(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer) As RECT
+            Return New RECT(x, y, x + width, y + height)
+        End Function
+
+        Public Shared Widening Operator CType(ByVal rect As RECT) As Rectangle
+            Return Rectangle.FromLTRB(rect.Left, rect.Top, rect.Right, rect.Bottom)
+        End Operator
+
+        Public Shared Widening Operator CType(ByVal rect As Rectangle) As RECT
+            Return New RECT(rect.Left, rect.Top, rect.Right, rect.Bottom)
+        End Operator
+
+        Public Overrides Function ToString() As String
+            Return "Left=" & Me.Left & ", Top=" & Me.Top & ", Right=" & Me.Right & ", Bottom=" & Me.Bottom
+        End Function
+    End Structure
+
+End Namespace

Pilz.Win32/Native/SHFILEINFO.vb

@@ -2,18 +2,43 @@
 
 Namespace Native
 
-
+    ''' <summary>
+    ''' Contains information about a file object. 
+    ''' </summary>
     <StructLayout(LayoutKind.Sequential)>
     Public Structure SHFILEINFO
         Public Const SHGFI_ICON As UInteger = &H100
         Public Const SHGFI_LARGEICON As UInteger = &H0
         Public Const SHGFI_SMALLICON As UInteger = &H1
-
+        ''' <summary>
+        ''' Handle to the icon that represents the file. You are responsible for
+        ''' destroying this handle with DestroyIcon when you no longer need it. 
+        ''' </summary>
         Public hIcon As IntPtr
+
+        ''' <summary>
+        ''' Index of the icon image within the system image list.
+        ''' </summary>
         Public iIcon As IntPtr
+
+        ''' <summary>
+        ''' Array of values that indicates the attributes of the file object.
+        ''' For information about these values, see the IShellFolder::GetAttributesOf
+        ''' method.
+        ''' </summary>
         Public dwAttributes As UInteger
+
+        ''' <summary>
+        ''' String that contains the name of the file as it appears in the Microsoft
+        ''' Windows Shell, or the path and file name of the file that contains the
+        ''' icon representing the file.
+        ''' </summary>
         <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)>
         Public szDisplayName As String
+
+        ''' <summary>
+        ''' String that describes the type of file.
+        ''' </summary>
         <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)>
         Public szTypeName As String
     End Structure

Pilz.Win32/Native/Shell32.vb

@@ -0,0 +1,68 @@
+Imports System.Runtime.InteropServices
+
+Namespace Native
+
+    Public Class Shell32
+
+        ''' <summary>
+        '''     Creates an array of handles to large or small icons extracted from
+        '''     the specified executable file, dynamic-link library (DLL), or icon
+        '''     file. 
+        ''' </summary>
+        ''' <param name="lpszFile">
+        '''     Name of an executable file, DLL, or icon file from which icons will
+        '''     be extracted.
+        ''' </param>
+        ''' <param name="nIconIndex">
+        '''     <para>
+        '''         Specifies the zero-based index of the first icon to extract. For
+        '''         example, if this value is zero, the function extracts the first
+        '''         icon in the specified file.
+        '''     </para>
+        '''     <para>
+        '''         If this value is <20>1 and <paramrefname="phiconLarge"/> and
+        '''         <paramrefname="phiconSmall"/> are both NULL, the function returns
+        '''         the total number of icons in the specified file. If the file is an
+        '''         executable file or DLL, the return value is the number of
+        '''         RT_GROUP_ICON resources. If the file is an .ico file, the return
+        '''         value is 1. 
+        '''     </para>
+        '''     <para>
+        '''         Windows 95/98/Me, Windows NT 4.0 and later: If this value is a 
+        '''         negative number and either <paramrefname="phiconLarge"/> or 
+        '''         <paramrefname="phiconSmall"/> is not NULL, the function begins by
+        '''         extracting the icon whose resource identifier is equal to the
+        '''         absolute value of <paramrefname="nIconIndex"/>. For example, use -3
+        '''         to extract the icon whose resource identifier is 3. 
+        '''     </para>
+        ''' </param>
+        ''' <param name="phIconLarge">
+        '''     An array of icon handles that receives handles to the large icons
+        '''     extracted from the file. If this parameter is NULL, no large icons
+        '''     are extracted from the file.
+        ''' </param>
+        ''' <param name="phIconSmall">
+        '''     An array of icon handles that receives handles to the small icons
+        '''     extracted from the file. If this parameter is NULL, no small icons
+        '''     are extracted from the file. 
+        ''' </param>
+        ''' <param name="nIcons">
+        '''     Specifies the number of icons to extract from the file. 
+        ''' </param>
+        ''' <returns>
+        '''     If the <paramrefname="nIconIndex"/> parameter is -1, the
+        '''     <paramrefname="phIconLarge"/> parameter is NULL, and the
+        '''     <paramrefname="phiconSmall"/> parameter is NULL, then the return
+        '''     value is the number of icons contained in the specified file.
+        '''     Otherwise, the return value is the number of icons successfully
+        '''     extracted from the file. 
+        ''' </returns>
+        <DllImport("Shell32", CharSet:=CharSet.Auto)>
+        Public Shared Function ExtractIconEx(<MarshalAs(UnmanagedType.LPTStr)> ByVal lpszFile As String, ByVal nIconIndex As Integer, ByVal phIconLarge As IntPtr(), ByVal phIconSmall As IntPtr(), ByVal nIcons As Integer) As Integer
+        End Function
+
+        Public Declare Function SHGetFileInfo Lib "shell32.dll" (ByVal pszPath As String, ByVal dwFileAttributes As UInteger, ByRef psfi As SHFILEINFO, ByVal cbSizeFileInfo As UInteger, ByVal uFlags As UInteger) As IntPtr
+
+    End Class
+
+End Namespace

Pilz.Win32/Native/User32.vb

@@ -0,0 +1,19 @@
+Imports System.Runtime.InteropServices
+
+Namespace Native
+
+    Public Class User32
+
+        Private Const LIB_USER32 As String = "user32.dll"
+
+        <DllImport(LIB_USER32)>
+        Public Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef r As RECT) As Boolean
+        End Function
+
+        <DllImport(LIB_USER32)>
+        Public Shared Function ChildWindowFromPointEx(ByVal hWndParent As IntPtr, ByVal pt As POINT, ByVal uFlags As UInteger) As IntPtr
+        End Function
+
+    End Class
+
+End Namespace

Pilz.Win32/Native/WindowFromPointFlags.vb

@@ -0,0 +1,11 @@
+Namespace Native
+
+    <Flags>
+    Public Enum WindowFromPointFlags
+        CWP_ALL = &H0
+        CWP_SKIPINVISIBLE = &H1
+        CWP_SKIPDISABLED = &H2
+        CWP_SKIPTRANSPARENT = &H4
+    End Enum
+
+End Namespace

Pilz.Win32/Pilz.Win32.vbproj

@@ -1,10 +1,11 @@
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <MyType>Windows</MyType>
-    <TargetFramework>net48</TargetFramework>
+    <TargetFramework>net6.0-windows</TargetFramework>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
     <DocumentationFile>Pilz.Win32.xml</DocumentationFile>
     <DefineTrace>true</DefineTrace>
+    <UseWindowsForms>true</UseWindowsForms>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <DefineDebug>true</DefineDebug>
@@ -24,6 +25,11 @@
   <PropertyGroup>
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
+  <PropertyGroup>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.856</Version>
+  </PropertyGroup>
   <ItemGroup>
     <PackageReference Include="System.Data.DataSetExtensions" Version="4.5.0" />
     <PackageReference Include="System.Net.Http" Version="4.3.4" />

Pilz.sln

@@ -1,7 +1,7 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
-VisualStudioVersion = 15.0.28307.329
+# Visual Studio Version 17
+VisualStudioVersion = 17.7.34018.315
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "Pilz", "Pilz\Pilz.vbproj", "{277D2B83-7613-4C49-9CAB-E080195A6E0C}"
 EndProject
@@ -31,6 +31,10 @@ Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "Pilz.Networking", "Pilz.Net
 EndProject
 Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "Pilz.Cryptography", "Pilz.Cryptography\Pilz.Cryptography.csproj", "{3F5988E6-439E-4A9D-B2C6-47EFFB161AC6}"
 EndProject
+Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "Pilz.UI.Telerik.SymbolFactory", "Pilz.UI.Telerik.SymbolFactory\Pilz.UI.Telerik.SymbolFactory.csproj", "{2B3B8161-29FF-4526-9082-4410AB5144A5}"
+EndProject
+Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "Pilz.UI.Telerik", "Pilz.UI.Telerik\Pilz.UI.Telerik.csproj", "{DF674119-CC28-40AA-968F-1E23D184A491}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -151,6 +155,22 @@ Global
 		{3F5988E6-439E-4A9D-B2C6-47EFFB161AC6}.Release|Any CPU.Build.0 = Release|Any CPU
 		{3F5988E6-439E-4A9D-B2C6-47EFFB161AC6}.Release|x86.ActiveCfg = Release|Any CPU
 		{3F5988E6-439E-4A9D-B2C6-47EFFB161AC6}.Release|x86.Build.0 = Release|Any CPU
+		{2B3B8161-29FF-4526-9082-4410AB5144A5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{2B3B8161-29FF-4526-9082-4410AB5144A5}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{2B3B8161-29FF-4526-9082-4410AB5144A5}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{2B3B8161-29FF-4526-9082-4410AB5144A5}.Debug|x86.Build.0 = Debug|Any CPU
+		{2B3B8161-29FF-4526-9082-4410AB5144A5}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{2B3B8161-29FF-4526-9082-4410AB5144A5}.Release|Any CPU.Build.0 = Release|Any CPU
+		{2B3B8161-29FF-4526-9082-4410AB5144A5}.Release|x86.ActiveCfg = Release|Any CPU
+		{2B3B8161-29FF-4526-9082-4410AB5144A5}.Release|x86.Build.0 = Release|Any CPU
+		{DF674119-CC28-40AA-968F-1E23D184A491}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{DF674119-CC28-40AA-968F-1E23D184A491}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{DF674119-CC28-40AA-968F-1E23D184A491}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{DF674119-CC28-40AA-968F-1E23D184A491}.Debug|x86.Build.0 = Debug|Any CPU
+		{DF674119-CC28-40AA-968F-1E23D184A491}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{DF674119-CC28-40AA-968F-1E23D184A491}.Release|Any CPU.Build.0 = Release|Any CPU
+		{DF674119-CC28-40AA-968F-1E23D184A491}.Release|x86.ActiveCfg = Release|Any CPU
+		{DF674119-CC28-40AA-968F-1E23D184A491}.Release|x86.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

Pilz/Pilz.vbproj

@@ -6,7 +6,7 @@
     <DefineTrace>true</DefineTrace>
     <LangVersion>latest</LangVersion>
     <AssemblyTitle>Pilz</AssemblyTitle>
-    <Company>DRSN</Company>
+    <Company>Pilzinsel64</Company>
     <Product>Pilz</Product>
     <Copyright>Copyright © Pilzinsel64 2019 - 2020</Copyright>
     <DocumentationFile>Pilz.xml</DocumentationFile>
@@ -30,6 +30,9 @@
   </PropertyGroup>
   <PropertyGroup>
     <OptionInfer>On</OptionInfer>
+    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
+    <IncrementVersionOnBuild>1.yyyy.Mdd.Hmm</IncrementVersionOnBuild>
+    <Version>1.2023.914.856</Version>
   </PropertyGroup>
   <ItemGroup>
     <Compile Remove="My Project\AssemblyInfo.vb" />

Pilz/Runtime/RuntimeInformationsEx.vb

@@ -31,30 +31,51 @@ Namespace Runtime
 				Static t As OSType? = Nothing
 
 				If t Is Nothing Then
-                    Dim windir As String = Environment.GetEnvironmentVariable("windir")
 
-                    If Not String.IsNullOrEmpty(windir) AndAlso windir.Contains("\") AndAlso Directory.Exists(windir) Then
-                        t = OSType.Windows
-                    ElseIf File.Exists("/proc/sys/kernel/ostype") Then
-                        Dim osTypeString As String = File.ReadAllText("/proc/sys/kernel/ostype")
+					Dim windir = Environment.GetEnvironmentVariable("windir")
+					Const ostypeDirWine = "Z:\proc\sys\kernel\ostype"
+					Const ostypeDirNative = "/proc/sys/kernel/ostype"
+					Const systemVersionWine = "Z:\System\Library\CoreServices\SystemVersion.plist"
+					Const systemVersionNative = "/System/Library/CoreServices/SystemVersion.plist"
+
+					If File.Exists(ostypeDirWine) Then ' Linux using wine
+						Dim osTypeString As String = File.ReadAllText(ostypeDirWine)
 						If osTypeString.StartsWith("Linux", StringComparison.OrdinalIgnoreCase) Then
 							' Note: Android gets here too
 							t = OSType.Linux
 						Else
 							t = OSType.Unknown
 						End If
-                    ElseIf File.Exists("/System/Library/CoreServices/SystemVersion.plist") Then
-                        ' Note: iOS gets here too
-                        t = OSType.OSX
+					ElseIf File.Exists(ostypeDirNative) Then ' Linux native
+						Dim osTypeString As String = File.ReadAllText(ostypeDirNative)
+						If osTypeString.StartsWith("Linux", StringComparison.OrdinalIgnoreCase) Then
+							' Note: Android gets here too
+							t = OSType.Linux
 						Else
 							t = OSType.Unknown
 						End If
+					ElseIf File.Exists(systemVersionWine) Then ' OSX using wine
+						' Note: iOS gets here too
+						t = OSType.OSX
+					ElseIf File.Exists(systemVersionNative) Then ' OSX native
+						' Note: iOS gets here too
+						t = OSType.OSX
+					ElseIf Not String.IsNullOrEmpty(windir) AndAlso Directory.Exists(windir) AndAlso Path.DirectorySeparatorChar = "\"c Then ' Windows
+						t = OSType.Windows
+					Else
+						t = OSType.Unknown
+					End If
+
 				End If
 
 				Return t
 			End Get
 		End Property
 
+		Public Function IsOSPlatform(os As OSType, checkRealOS As Boolean) As Boolean
+			Return If(checkRealOS, RealOSType, OSType) = os
+		End Function
+
 	End Module
 
 End Namespace