在Access中如何获得系统的屏幕区域大小？

Private Declare Function GetSystemMetricsLib "user32" (ByVal nIndex As Long) As LongPrivate Const SM_CXSCREEN = 0Private Const SM_CYSCREEN = 1Private Sub Command0_Click()Dim x As Long, y As Longx = GetSystemMetrics(SM_CXSCREEN)y = GetSystemMetrics(SM_CYSCREEN)MsgBox x & "  " & yEnd Sub这个程序你可以试着调试一下，应该可以