Dim dpiw As Integer
        Dim dpih As Integer
        Using g As Graphics = Me.CreateGraphics()
            dpiw = g.DpiX
            dpih = g.DpiY
        End Using
        Dim width As Integer = Screen.PrimaryScreen.Bounds().Width / dpiw
        Dim height As Integer = Screen.PrimaryScreen.Bounds().Height / dpih
 
        MsgBox("Screensize=" & width.tostring() & """x" & Height.ToString() & _
          """")

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist