Тут
Как можно определить разрешение монитора текущего пользователя?
Написано, как узнать для первого, а для второго не работает
Попобовал поправить

|    For Each mParam In mService.ExecQuery(""SELECT Sum(1) as n FROM Win32_DesktopMonitor"")
|        nHeight = mParam.n
|        nWidth = mParam.n
|        rez = rez " + Ñèìâ(38) + " cStr(nWidth)  " + Ñèìâ(38) +"""x""" + Ñèìâ(38) + " cStr(nHeight)  " + Ñèìâ(38) + """z""
|        Next
|    GetWindowAttribute =  rez

но все равно, не работает

позвольте узнать - нафейхуа такое нужно?

У некоторых пользователей второй монитор портрет, а не ланшафт, соответственно программа работает слегка по другому

(0) мне негде запусить но

SELECT Sum(1) as n FROM Win32_DesktopMonitor

что этим вы хотели сделать? (в отличии от оригинала по вашей ссылке)

Запрос правильный, звездочка там, это я опечатался. Пытался посчитать сколько строчек там, но так похоже нельзя. Запрос такой же, просто собирается не по последней, а по всем строчкам. Но выводит все равно данные одного монитора

вот так,
http://prntscr.com/kromam
текст вставить не получается, кодировка с ума сходит

Можно у системы спросить разрешенин рабочего стола и области,спроецированные на мониторы,тогда получите,если на мониторе рабочий стол,а если нет,то нужно у видеокарты запрашивать,что и куда.

Пусть пользователь ставит галочку - "Вертикаль/горизонталь", и по ней определять...

Галочку придется просить, если не вычислю..
Не очень понимаю, как спросить у видеокарты..

For Each mParam in mService.ExecQuery("Select * from Win32_DesktopMonitor")
nHeight = mParam.ScreenHeight
nWidth = mParam.ScreenWidth
Next

(9) Виноват, не увидел скриншота. И неужели не работает?

(0) Кажется я понял в чем причина. Видимо у тебя одинаковые мониторы, а Win32_DesktopMonitor выдает физические параметры монитора. Поэтому у второго монитора они те же самые.
Попробуй логические единицы проверить
https://docs.microsoft.com/ru-ru/windows/desktop/CIMWin32Prov/win32-videocontroller

А formex религия не позволяет использовать? Он должен логические единицы выдавать.