Your technology certification is waiting. Enroll in Cloud Class ®
Dim EntireBounds As New Rectangle(0, 0, 0, 0)
Dim scrn As Integer
Dim TheScreens() As Screen = Screen.AllScreens
For scrn = LBound(TheScreens) To UBound(TheScreens)
If TheScreens(scrn).Bounds.X + TheScreens(scrn).Bounds.Width > EntireBounds.Width Then
EntireBounds.Width = TheScreens(scrn).Bounds.X + TheScreens(scrn).Bounds.Width
If TheScreens(scrn).Bounds.Y + TheScreens(scrn).Bounds.Height > EntireBounds.Height Then
EntireBounds.Height = TheScreens(scrn).Bounds.Y + TheScreens(scrn).Bounds.Height
Me.Bounds = EntireBounds
Open in new window
For Each scrn As Screen In Screen.AllScreens
Debug.Print(scrn.Bounds.Width & "x" & scrn.Bounds.Height)
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
This course will introduce you to SQL Server Core 2016, as well as teach you about SSMS, data tools, installation, server configuration, using Management Studio, and writing and executing queries.