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 < 1024 and yRes < 768 Then ' Write your control resize ' and reposition code hereElse Exit SubEnd If
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
