对于Access 2010 64位,您需要在Function之前
添加PtrSafe.
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
更多信息:http://support.microsoft.com/kb/210603