So können Sie ermitteln, wie viel Farben dargestellt werden können:

ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)

FORM-CODE

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

   Const BITSPIXEL = 12

   Private Sub Command1_Click()
      f= Format(CStr(2 ^ GetDeviceCaps(Me.hdc, BITSPIXEL)), "#,###")
      Msgbox "Es können maximal " & f & " Farben dargestellt werden."
   End Sub