Mega Code Archive

 

Categories / VB.Net Tutorial / Windows

 

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 Bounds: 1280 by 768