vb6.0用什么方法检测是否有副屏存在，求帮忙，急用

各路大神，请问vb6.0如何探测是否安装了扩展显示器(双屏)？谢谢
通过什么方法判断连接没连接呢，急用，谢谢，分全给你，求帮忙。

用EnumDisplayMonitors

写在模块中

 Public Declare Function EnumDisplayMonitors Lib "user32.dll" (ByVal hdc As Long, _
    ByRef lprcClip As Any, ByVal lpfnEnum As Long, ByVal dwData As Long) As Long

Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Public x As Long

Public Function GetScreens()
EnumDisplayMonitors ByVal 0&, ByVal 0&, AddressOf MonitorEnumProc, ByVal 0&
GetScreens = x
End Function

Public Function MonitorEnumProc(ByVal hMonitor As Long, ByVal hdcMonitor As Long, _
                                lprcMonitor As RECT, ByVal dwData As Long) As Long
    x = x + 1
    MonitorEnumProc = 1
End Function