[МишаИнженер]

При настройке системы координат в окне появляется ошибка: "Can't find DLL entry point SetWindowExt in gdi32.dll"
Функцию SetWindowExt объявляю следующим образом:
Public Declare Function SetWindowExt Lib "gdi32.dll" (ByVal hdc As Long, XExt As Long, YExt As Long) As LongPtr
Объявление типа:
Public Declare Function SetWindowExt Lib "gdi32.dll" Alias "SetWindowExtA" (ByVal hdc As Long, XExt As Long, YExt As Long) As LongPtr
Тоже не помогает.
Как правильно объявить функцию SetWindowExt?

----- добавлено через ~47 мин. -----
Удалось запустить все требуемые функции с буквами "Ex"

Код:

[Выделить все]

'Функции для настройки системы координат
Public Declare Function GetMapMode Lib "gdi32" (ByVal hdc As Long) As LongPtr
Public Declare Function SetMapMode Lib "gdi32" (ByVal hdc As Long, ByVal nMapMode As Long) As LongPtr
Public Declare Function SetWindowExtEx Lib "gdi32" (ByVal hdc As Long, XExt As Long, YExt As Long, OldSize As SizeDef) As LongPtr
Public Declare Function SetViewportExtEx Lib "gdi32.dll" (ByVal hdc As Long, XExt As Double, YExt As Double, OldSize As SizeDef) As LongPtr
Public Declare Function SetViewportOrgEx Lib "gdi32" (ByVal hdc As Long, Xcrd As Double, Ycrd As Double, OldP As POINTAPI) As LongPtr

Public Type POINTAPI
   X As Long
   Y As Long
End Type

Public Type SizeDef
   cx As Long
   cy As Long
End Type

[Нубий-IV]

На гитхабе местами попадаются уже написанные объявления:
https://github.com/Planet-Source-Cod...Plus%20API.bas
https://github.com/AllenMattson/VBA/...r/win32api.txt
Наверняка есть и другие.