Windows: Properly calculate Screen scaling

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