System VB.Net by API

  1. Home
  2. VB.Net by API
  3. System
  4. 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