API for Display Property 2

[rexc]

Hi guys! I need help....
Is it possible to call the Display property through code using API? Or is there any other code to call the Diplay Property?
Thanks.
RexC

 

[Hypetia]

Try this code.

Shell "rundll32 shell32,Control_RunDLL desk.cpl", vbNormalFocus

 

[gwigton]

Are you just wanting to see the users screen resolution? If so this works good.

Dim reSolutionWidth As Integer
Dim reSolutionHeight As Integer

reSolutionWidth = Screen.Width / 15
reSolutionHeight = Screen.Height / 15

 

[strongm]

Better would be:


reSolutionWidth = Screen.Width / Screen.TwipsPerPixelX
reSolutionHeight = Screen.Height / Screen.TwipsPerPixelY

 

[rexc]

Thanks! You guys are great!