Private Declare Function GetDC Lib "user32" _
(ByVal hWnd As Long) As Long

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

Private Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long
 
Private Sub Command1_Click()
 
    Dim hScreenDc As Long
    hScreenDc = GetDC(0)
 
    ' Gibt die Anzahl der Farben zurück
    ' 32 für TrueColor
    ' 16 für HighColor
    ' 8 für 256 Farben
 
    MsgBox GetDeviceCaps(hScreenDc, 12)
 
End Sub
 
Private Sub Command2_Click()
 
    Dim ScreenH As Integer
    Dim ScreenW As Integer
 
    ScreenW = GetSystemMetrics(0)
    ScreenH = GetSystemMetrics(1)
 
    MsgBox "Bildschirm: " & _
    ScreenW & " x " & ScreenH
 
End Sub