Узнать, какой режим можно так:
- Код: Выделить всё
Private Declare Function GetDeviceCaps Lib "GDI32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
Private Const LOGPIXELSX = 88
Public Function PixelsPerInch() As Long
Dim hDC As Long
hDC = GetDC(0)
PixelsPerInch = GetDeviceCaps(hDC, LOGPIXELSX)
ReleaseDC 0, hDC
End Function