VB.Net Tutorial/Windows/Screen

My.Computer.Screen.Bounds

<source lang="vbnet">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</source>

Bounds: 1280 by 768