Question

I have two popup forms (parent/child) that I want to be able to automatically re-size depending on the size of the screen.

How can I retrieve the size of the screen in order to achieve this.

Answer 1

For Access 2010 64 bit, you will need to add PtrSafe before Function.

Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub ScreenRes()
Dim w As Long, h As Long
    w = GetSystemMetrics32(0) ' width in points
    h = GetSystemMetrics32(1) ' height in points

End Sub

For VBA 64 bits

Declare PtrSafe Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

More info: http://support.microsoft.com/kb/210603