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