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

Private Sub form_load()
    MsgBox "resolución:" & GetDeviceCaps(Me.hdc, 8) & " x " & GetDeviceCaps(Me.hdc, 10)
End Sub