My.Computer.Screen.Bounds : Screen « Windows « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows
3. Screen

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