OmagCUT :

- primo rilascio.

Application.xaml.vb

@@ -0,0 +1,47 @@
+Imports System.Windows.Forms
+
+Class Application
+
+    ' Application-level events, such as Startup, Exit, and DispatcherUnhandledException
+    ' can be handled in this file.
+
+    Protected Overrides Sub OnStartup(e As StartupEventArgs)
+        MyBase.OnStartup(e)
+        Dim mainWindow As New MainWindow
+        Dim thisDpiWidthFactor As Double
+        Dim thisDpiHeightFactor As Double
+        mainWindow.Show()
+        'Controllo che abbia creato la finestra per evitare crash se non c'è la chiave
+        If (IsNothing(Application.Current.MainWindow)) Then
+            Exit Sub
+        End If
+        CalculateDpiFactors(mainWindow, thisDpiWidthFactor, thisDpiHeightFactor)
+
+
+        If (Screen.AllScreens.Length > 1) Then
+            Dim s2 As Screen = Screen.AllScreens(1)
+            Dim r2 As System.Drawing.Rectangle = s2.WorkingArea
+
+            mainWindow.Top = r2.Top / thisDpiHeightFactor
+            mainWindow.Left = r2.Left / thisDpiWidthFactor
+
+
+        Else
+            Dim s1 As Screen = Screen.AllScreens(0)
+            Dim r1 As System.Drawing.Rectangle = s1.WorkingArea
+            mainWindow.Top = r1.Top
+            mainWindow.Left = r1.Left
+
+
+        End If
+    End Sub
+
+    Private Shared Sub CalculateDpiFactors(ByRef mainwindow As Window, ByRef thisDpiWidthFactor As Double, ByRef thisDpiHeightFactor As Double)
+        Dim MainWindowPresentationSource As PresentationSource = PresentationSource.FromVisual(Application.Current.MainWindow)
+        Dim m As New Matrix
+        m = PresentationSource.FromVisual(Application.Current.MainWindow).CompositionTarget.TransformToDevice
+        thisDpiWidthFactor = m.M11
+        thisDpiHeightFactor = m.M22
+    End Sub
+
+End Class