Windows: Properly calculate Screen scaling

GUIs.Test.TestGUI/TestGUI.vbproj

@@ -248,6 +248,10 @@
       <Project>{a8c3f298-76ab-4359-ab3c-986e313b4336}</Project>
       <Name>EDMIService</Name>
     </ProjectReference>
+    <ProjectReference Include="..\Windows\Windows.vbproj">
+      <Project>{5efaef9b-90b9-4f05-9f70-f79ad77fff86}</Project>
+      <Name>Windows</Name>
+    </ProjectReference>
   </ItemGroup>
   <ItemGroup>
     <None Include="Resources\alignhorizontalbottom.svg" />

GUIs.Test.TestGUI/frmStart.Designer.vb

@@ -25,6 +25,7 @@ Partial Class frmStart
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'Button1
@@ -54,11 +55,21 @@ Partial Class frmStart
         Me.Button3.Text = "Filesystem"
         Me.Button3.UseVisualStyleBackColor = True
         '
+        'Button4
+        '
+        Me.Button4.Location = New System.Drawing.Point(12, 195)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(236, 59)
+        Me.Button4.TabIndex = 1
+        Me.Button4.Text = "Skalierungsfaktor"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
         'frmStart
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.Controls.Add(Me.Button4)
         Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
@@ -71,4 +82,5 @@ Partial Class frmStart
     Friend WithEvents Button1 As Button
     Friend WithEvents Button2 As Button
     Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
 End Class

GUIs.Test.TestGUI/frmStart.vb

@@ -1,4 +1,6 @@
-Public Class frmStart
+Imports Microsoft.Win32
+
+Public Class frmStart
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         frmRelations.Show()
     End Sub
@@ -10,4 +12,10 @@
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         frmFilesystem.Show()
     End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Dim oScreen As New DigitalData.Modules.Windows.Screen()
+
+        MsgBox("Scaling: " & oScreen.GetScreenScaling(Me))
+    End Sub
 End Class