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