DPI取得

Module1.bas

Option Explicit

Private Declare PtrSafe _
Function GetWindowDPI Lib "user32.dll" ( _
    ByVal hwnd As LongPtr _
) As Long


Sub hoge()

    Dim hwnd&, ret&
    hwnd = Application.hwnd
    ret = GetWindowDPI(hwnd)
    MsgBox ret

End Sub