VideoColors

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

Function VideoColors(hDC As Long) As Single
'

' Restituisce il numero di colori della configurazione

' del video

'

' Input : device context del form


Const PLANES = 14
Const BITSPIXEL = 12

VideoColors = 2 ^ (GetDeviceCaps(hDC, PLANES) * GetDeviceCaps(hDC,
BITSPIXEL))

End Function