Option Strict On
Imports System.Drawing
Public Module ScreenRes
Public Sub Main()
Dim bnds As Rectangle = My.Computer.Screen.Bounds
Console.WriteLine("Bounds: " & bnds.Width & " by " & bnds.Height)
End Sub
End Module
Bounds: 1280 by 768