Sistemin Kaç Bit Renk Kullandığını Bulmak

(General)(Declaration)
Option Explicit
Private Const BITSPIXEL = 12
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()
MsgBox "Format$(GetDeviceCaps(hdc, BITSPIXEL)) & "-bit renk kullanılıyor."
End Sub