Temporary Archive (Read Only): Resolution Checker

Print Page | Close Window

Resolution Checker

Printed From: Mirage Source
Category: Tutorials
Forum Name: Temporary Archive (Read Only)
Forum Discription: Temporary 3.0.3 archive tutorials, will be deleted when converted.
URL: http://ms.shannaracorp.com/backup-forums/forum_posts.asp?TID=158
Printed Date: 20 December 2006 at 5:52pm
Software Version: Web Wiz Forums 8.01 - http://www.webwizforums.com

Topic: Resolution Checker

Posted By: Sync
Subject: Resolution Checker
Date Posted: 11 February 2006 at 3:11pm

Private Sub Form_Load()
Dim wid As Integer
Dim hgt As Integer

    wid = Screen.Width \ Screen.TwipsPerPixelX
    hgt = Screen.Height \ Screen.TwipsPerPixelY

    Label1.Caption = Format$(wid) & " x " & Format$(hgt)
End Sub