vb 当前屏幕 位色（色深）

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

Private Const BITSPIXEL = 12
Private Sub Form_Load()
MsgBox "当前颜色深度:" & GetDeviceCaps(Me.hdc, BITSPIXEL) & "位"
End Sub