Ich habs anders gelöst.
Auslesen:
Code:
Dim höhe As String
Dim breite As String
Dim screensize As Point = New Point _
(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
höhe = screensize.ToString.Split(",")(0)
höhe = höhe.ToString.Split("=")(1)
breite = screensize.ToString.Split(",")(1)
breite = breite.ToString.Split("=")(1)
breite = breite.ToString.Split("}")(0)
Label1.Text = höhe
Label2.Text = breite
und das einstellen mach ich mit einem Hilfsprogramm, wo dann nur noch eine Verknüpfung angepasst werden muss: