' Ermiteln des tatsächlichen Arbeitsbereichs
Dim nWorkingWidth As Integer
Dim nWorkingHeight As Integer
 
nWorkingWidth = Screen.PrimaryScreen.WorkingArea.Width
nWorkingHeight = Screen.PrimaryScreen.WorkingArea.Height
 
Me.Width = nWorkingWidth
Me.Height = nWorkingHeight
 
Me.Location = New Point(0, 0)

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.