VB obtiene el valor DPI de la pantalla

Función de declaración privada GetDeviceCaps Lib "gdi32" (ByVal hdc As Long. ByVal nIndex As Long, ByVal nIndex As Long) As Long

Función de declaración privada GetDC Lib "user32" (ByVal hwnd As Long) As Long

Subcomando privado1_Click()

Const LOGPIXELSX = 88 ' X de píxeles lógicos/pulgada

hdc0 = GetDC(0)

aa = GetDeviceCaps(hdc0, LOGPIXELSX)

MsgBox aa

End Sub