Public Declare Function GetDeviceCaps Lib  "gdi32"  (ByVal hdc As Long, ByVal nIndex As Long) As Long
Public Declare Function GetDesktopWindow Lib  "user32"  () As Long
Public Declare Function GetDC Lib  "user32"  (ByVal hWnd As Long) As Long
Public Declare Function ReleaseDC Lib  "user32"  (ByVal hWnd As Long, ByVal hdc As Long) As Long
Public Const HORZRES =  8 
Public Const VERTRES =  10 

Public Function ScreenResol()
' Проверка разрешения экрана уставновленному значению и попытк азменит данное сво-тво
    Dim hdc         As Long, xRes, yRes
    hdc = GetDC(GetDesktopWindow())

    xRes = GetDeviceCaps(hdc, HORZRES)
    yRes = GetDeviceCaps(hdc, VERTRES)
    If xRes < 1024 Then DoCmd.OpenForm "ChangeResolution", acNormal, , , , acDialog    'Вызов настройки экрана
    ReleaseDC GetDesktopWindow(), hdc
End Function