Option Explicit

'GetSystemMetrics32 info: http://msdn.microsoft.com/en-us/library/ms724385(VS.85).aspx

#If Win64 Then

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

#ElseIf Win32 Then

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

#End If

'VBA Wrappers:

Public Function dllGetMonitors() As Long

    Const SM_CMONITORS = 80

    dllGetMonitors = GetSystemMetrics32(SM_CMONITORS)

End Function

Public Function dllGetHorizontalResolution() As Long

    Const SM_CXVIRTUALSCREEN = 78

    dllGetHorizontalResolution = GetSystemMetrics32(SM_CXVIRTUALSCREEN)

End Function

Public Function dllGetVerticalResolution() As Long

    Const SM_CYVIRTUALSCREEN = 79

    dllGetVerticalResolution = GetSystemMetrics32(SM_CYVIRTUALSCREEN)

End Function

Public Sub ShowDisplayInfo()

    Debug.Print "Total monitors: " & vbTab & vbTab & dllGetMonitors

    Debug.Print "Horizontal Resolution: " & vbTab & dllGetHorizontalResolution

    Debug.Print "Vertical Resolution: " & vbTab & dllGetVerticalResolution

    'Total monitors:         1

    'Horizontal Resolution:  1920

    'Vertical Resolution:    1080

End Sub