如何获取显卡2的分辨率？

使用EnumDisplayMonitors函数枚举，把下述代码放到模块中，在窗口里调用FillMonitorInfo即可看到效果（百度http://blog.到的，经测试可以运行）。
Option Explicit

Private Declare Function EnumDisplayMonitors Lib "user32.dll" (ByVal hdc As Long, ByVal lprcClip As Long, ByVal lpfnEnum As Long, ByVal dwData As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Type RECTANGLE
    LeftTopX    As Long
    LeftTopY    As Long
    RightDownX  As Long
    RightDownY  As Long
End Type

Public Function FillMonitorInfo() As Integer
    Call EnumDisplayMonitors(ByVal 0&, ByVal 0&, AddressOf EnumMonitor, ByVal 0&)
End Function
Public Function EnumMonitor(ByVal hMoinitor As Long, ByVal hdcMonitor As Long, lprcMonitor As Long, ByVal dwData As Long) As Long
    Dim rcS As RECTANGLE
    CopyMemory rcS, lprcMonitor, Len(rcS)
    Debug.Print rcS.LeftTopX; rcS.LeftTopY; rcS.RightDownX - rcS.LeftTopX; rcS.RightDownY - rcS.LeftTopY; rcS.RightDownX; rcS.RightDownY
    EnumMonitor = 1
End Function