Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/observer pattern/Subject.vb
===================================================================
diff -u
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/observer pattern/Subject.vb	(revision 0)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/observer pattern/Subject.vb	(revision 2165)
@@ -0,0 +1,32 @@
+Public interface ISubject
+    Sub AddObserver(ByRef ob As IObserver)
+    Sub RemoveObserver(ByRef ob As IObserver)
+end interface
+
+Public MustInherit Class Subject
+    Implements ISubject
+    Private ReadOnly _observers As New List(of IObserver)
+
+    ''' <summary>
+    ''' Informeer de observers met een instantie van zichzelf
+    ''' </summary>
+    Friend sub NotifyObservers()
+        _observers.ForEach(Sub(x) x.UpdateObserver(Me))
+    End sub
+
+    ''' <summary>
+    ''' Informeer de observers met een object
+    ''' </summary>
+    ''' <param name="o"></param>
+    Friend sub NotifyObservers(o as Object)
+        _observers.ForEach(Sub(x) x.UpdateObserver(Me, o))
+    End sub
+
+    Public Sub AddObserver(ByRef ob As IObserver) Implements ISubject.AddObserver
+        _observers.Add(ob)
+    End Sub
+
+    Public Sub RemoveObserver(ByRef ob As IObserver) Implements ISubject.RemoveObserver
+        _observers.Remove(ob)
+    End Sub
+End Class
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/observer pattern/IObserver.vb
===================================================================
diff -u
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/observer pattern/IObserver.vb	(revision 0)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/observer pattern/IObserver.vb	(revision 2165)
@@ -0,0 +1,3 @@
+Public Interface IObserver
+    Sub UpdateObserver(ByVal sender As ISubject, Optional ByVal o As Object = Nothing)
+End Interface
FishEye: Tag 2165 refers to a dead (removed) revision in file `Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/toetsenbord hook/Subject.vb'.
FishEye: No comparison available.  Pass `N' to diff?
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj
===================================================================
diff -u -r2015 -r2165
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj	(.../Laser Gravering.vbproj)	(revision 2015)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj	(.../Laser Gravering.vbproj)	(revision 2165)
@@ -27,8 +27,8 @@
     <UpdatePeriodically>false</UpdatePeriodically>
     <UpdateRequired>false</UpdateRequired>
     <MapFileExtensions>true</MapFileExtensions>
-    <ApplicationRevision>1</ApplicationRevision>
-    <ApplicationVersion>2.4.2.%2a</ApplicationVersion>
+    <ApplicationRevision>0</ApplicationRevision>
+    <ApplicationVersion>2.5.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <PublishWizardCompleted>true</PublishWizardCompleted>
     <BootstrapperEnabled>true</BootstrapperEnabled>
@@ -80,8 +80,14 @@
     <GenerateManifests>true</GenerateManifests>
   </PropertyGroup>
   <PropertyGroup>
-    <SignManifests>true</SignManifests>
+    <SignManifests>false</SignManifests>
   </PropertyGroup>
+  <PropertyGroup>
+    <TargetZone>LocalIntranet</TargetZone>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="Autofac, Version=5.2.0.0, Culture=neutral, PublicKeyToken=17863af14b0044da, processorArchitecture=MSIL">
       <HintPath>..\packages\Autofac.5.2.0\lib\net461\Autofac.dll</HintPath>
@@ -225,8 +231,8 @@
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
     <Compile Include="toetsenbord hook\KeyboardSubject.vb" />
-    <Compile Include="toetsenbord hook\IObserver.vb" />
-    <Compile Include="toetsenbord hook\Subject.vb" />
+    <Compile Include="Domein\observer pattern\IObserver.vb" />
+    <Compile Include="Domein\observer pattern\Subject.vb" />
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="Formulieren\AboutBox.resx">
@@ -266,6 +272,7 @@
   <ItemGroup>
     <None Include="app.config" />
     <None Include="Laser Gravering_TemporaryKey.pfx" />
+    <None Include="My Project\app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/My Project/app.manifest
===================================================================
diff -u
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/My Project/app.manifest	(revision 0)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/My Project/app.manifest	(revision 2165)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="utf-8"?>
+<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app" />
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <!-- UAC Manifest Options
+             If you want to change the Windows User Account Control level replace the 
+             requestedExecutionLevel node with one of the following.
+
+        <requestedExecutionLevel  level="asInvoker" uiAccess="false" />
+        <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
+        <requestedExecutionLevel  level="highestAvailable" uiAccess="false" />
+
+            Specifying requestedExecutionLevel element will disable file and registry virtualization. 
+            Remove this element if your application requires this virtualization for backwards
+            compatibility.
+        -->
+        <requestedExecutionLevel level="asInvoker" uiAccess="false" />
+      </requestedPrivileges>
+      <applicationRequestMinimum>
+        <defaultAssemblyRequest permissionSetReference="Custom" />
+        <PermissionSet class="System.Security.PermissionSet" version="1" ID="Custom" SameSite="site" Unrestricted="true" />
+      </applicationRequestMinimum>
+    </security>
+  </trustInfo>
+  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
+    <application>
+      <!-- A list of the Windows versions that this application has been tested on
+           and is designed to work with. Uncomment the appropriate elements
+           and Windows will automatically select the most compatible environment. -->
+      <!-- Windows Vista -->
+      <!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
+      <!-- Windows 7 -->
+      <!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
+      <!-- Windows 8 -->
+      <!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
+      <!-- Windows 8.1 -->
+      <!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
+      <!-- Windows 10 -->
+      <!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
+    </application>
+  </compatibility>
+  <!-- Indicates that the application is DPI-aware and will not be automatically scaled by Windows at higher
+       DPIs. Windows Presentation Foundation (WPF) applications are automatically DPI-aware and do not need 
+       to opt in. Windows Forms applications targeting .NET Framework 4.6 that opt into this setting, should 
+       also set the 'EnableWindowsFormsHighDpiAutoResizing' setting to 'true' in their app.config. 
+       
+       Makes the application long-path aware. See https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation -->
+  <!--
+  <application xmlns="urn:schemas-microsoft-com:asm.v3">
+    <windowsSettings>
+      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
+      <longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
+    </windowsSettings>
+  </application>
+  -->
+  <!-- Enable themes for Windows common controls and dialogs (Windows XP and later) -->
+  <!--
+  <dependency>
+    <dependentAssembly>
+      <assemblyIdentity
+          type="win32"
+          name="Microsoft.Windows.Common-Controls"
+          version="6.0.0.0"
+          processorArchitecture="*"
+          publicKeyToken="6595b64144ccf1df"
+          language="*"
+        />
+    </dependentAssembly>
+  </dependency>
+  -->
+</assembly>
\ No newline at end of file
FishEye: Tag 2165 refers to a dead (removed) revision in file `Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/toetsenbord hook/IObserver.vb'.
FishEye: No comparison available.  Pass `N' to diff?
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/subschermen/KeyboardScherm.vb
===================================================================
diff -u -r1928 -r2165
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/subschermen/KeyboardScherm.vb	(.../KeyboardScherm.vb)	(revision 1928)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/subschermen/KeyboardScherm.vb	(.../KeyboardScherm.vb)	(revision 2165)
@@ -28,7 +28,7 @@
 
     Public Sub UpdateObserver(sender As ISubject, Optional o As Object = Nothing) Implements IObserver.UpdateObserver
         Try
-            If Not TypeOf sender Is IKeyboardSubject Then
+            If TypeOf sender IsNot IKeyboardSubject Then
                 Throw New Exception($"{Me.GetType().Name} ondersteunt enkel {NameOf(IKeyboardSubject)}")
             End If
 
@@ -37,6 +37,7 @@
                 'Tekst tonen
                 TextBoxInput.Text = keyboardSubject.Tekst
             End If
+
         Catch ex As Exception
             _subScherm.HandleException(Me, ex)
         End Try