Visual Basic Programming Code Examples Visual Basic > Graphics Games Programming Code Examples Getting the Colour Depth Getting the Colour Depth 'API Declarations Declare Function GetDesktopWindow Lib "User32" () As Long Declare Function GetDC Lib "User32" _ (ByVal hWnd As Long) As Long Declare Function ReleaseDC Lib "User32" _ (ByVal hWnd As Long, ByVal hDC As Long) As Long Declare Function GetDeviceCaps Lib "GDI32" _ (ByVal hDC As Long, ByVal nIndex As Long) As Long 'Choose this version for use in a .BAS Module. Public Function GetColours() As Long 'Define some Constants we will use. Const PLANES = 14 Const BITSPIXEL = 12 'We use the hDC of the Desktop Window. hDC = GetDC(GetDesktopWindow()) 'Calculate the colour depth. GetColours = 2 ^ (GetDeviceCaps(hDC, PLANES) * _ GetDeviceCaps(hDC, BITSPIXEL)) 'Clear up. ReleaseDC GetDesktopWindow(), hDC End Function