Find antal farver på skærmen

Jeg ved ikke om der findes en VB funktion, men indeholder Screen objektet ikke en farvedybde property?

Ellers kan du bruge Win32 API kaldet
Bpp = GetDeviceCaps(GetDC(GetDesktopWindow)) ,BITSPIXEL)

Det skulle returnere farvedybden

Michael

Jeg kan ikke lige få kaldet til at virke, du har ikke et eksempel hvor du benytter det???

I et modul :
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Public Const BITSPIXEL = 12

i din form_load eller hvor du nu skal bruge det :
Private Sub Form_Load()
Dim dybde As String
'Undersøg farvedybde
dybde = Format$(GetDeviceCaps(hdc, BITSPIXEL)) & " bit."
Label1.Caption = dybde
End Sub