Private Declare Function GetDeviceCaps Lib "gdi32"
       (ByVal hdc As Long, ByVal nIndex As Long) As Long


Dim ancho as integer, alto As Integer
ancho = GetDeviceCaps(Form1.hdc, 8)
alto = GetDeviceCaps(Form1.hdc, 10)
msgbox "Resolución : " & ancho & "x" & alto