Hi

How do I determine the color depth of the PC. I want to run a
different procedure if only 256 colors are being displayed.

thanks

Paul Chapelhow

Walker Interactive

(remove _nospam for e-mail address)

Const BITSPIXEL& = 12
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex
As Long) As Long

------------------------------
Dim R&
R = GetDeviceCaps(hDC, BITSPIXEL)

Just pass in the hDC of some window or picture box, and the function will
return the current colordepth, e.g. 8 if 256 colors or 24 if true colors.

Niels