Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'result = True if extended, or else False
- Private Function DetectIfMonitorsExtendedMode() As Boolean
- Dim result As Boolean = False
- Dim search As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_PnPEntity WHERE SERVICE = 'monitor'")
- If search.Get().Count >= Screen.AllScreens.Count Then result = True
- Return result
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement