My.Computer.Screen examples 
 Sub Main()
  
  Dim bpp As Integer = My.Computer.Screen.BitsPerPixel
      Dim bound As Drawing.Rectangle = My.Computer.Screen.Bounds
      Dim dname As String = My.Computer.Screen.DeviceName
      Dim isPrimary As Boolean = My.Computer.Screen.Primary
      Dim warea = My.Computer.Screen.WorkingArea
      Stop ' 
   End Sub
   
Gets the working area of the display. The working area is 
the desktop area of the display, excluding taskbars, 
docked windows, and docked tool bars.
10/15/2015
TheLonelyProgrammer.Net
Alone in a sea of non-programmers