VB.Net Tutorial/Windows/Screen

My.Computer.Screen.Bounds

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

Bounds: 1280 by 768