Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex
As Long) As Long Public Const BITSPIXEL As Long = 12 Public Const HORZRES As Long = 8 Public Const VERTRES As Long = 10 'Risoluzione Orizzontale currHRes = GetDeviceCaps(hdc, HORZRES) 'Risoluzione Verticale currVRes = GetDeviceCaps(hdc, VERTRES) 'Numero di colori currBPP = GetDeviceCaps(hdc, BITSPIXEL) |