Monitor Resolution Through API

Monitor Resolution Through API

There is a simple way to get Monitor resolutions through a WinAPIcall. Declare this in a module:

 Declare Function GetsystemMetrics Lib "User" (ByVal _        nIndex As Integer) As Integer

And make a call to this API in Form_Load or Form_Resize event:

 Sub Form_Resize() dim xRes as integerdim yRes as integerxRes = GetsystemMetrics(0)yRes = GetsystemMetrics(1)If xRes 


Share the Post: