My.Computer.Screen.Bounds
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