IntBlack=0

For i = 0 To Picture1.ScaleHeight - 1
    For j = 0 To Picture1.ScaleWidth - 1
        ColorP = GetPixel(Picture1.hdc, j, i)

        'если требуется конвертировать цвет в RBG - getRGBLong(ColorP)

        Select Case ColorP
        Case 0
        IntBlack= IntBlack+ 1
         ….
        End Select
    Next
Next 

If  IntBlack<100 Then
Msgbox “Тебе почти торба!!!”
End if

Private Declare Function PrintWindow Lib "user32" (ByVal hwnd As Long, ByVal hdcBlt As Long, ByVal nFlags As Long) As Long

Private Function getRGBLong(pColor As Long, Optional RGB_R As Long, Optional RGB_G As Long, Optional RGB_B As Long)
RGB_R = (pColor Mod 256)
RGB_B = (Int(pColor / 65536))
RGB_G = ((pColor - (RGB_B * 65536) - RGB_R) / 256)
End Function

Пример: getRGBLong Me.BackColor, cR, cG, cB
             MsgBox "Red=" & cR & " Green=" & cG & " Blue=" & cB

Private Function getRGBLong(pColor As Long, Optional RGB_R As Long, Optional RGB_G As Long, Optional RGB_B As Long)
RGB_R = (pColor Mod 256)
RGB_B = (Int(pColor / 65536))
RGB_G = ((pColor - (RGB_B * 65536) - RGB_R) / 256)
getRGBLong = "(" & RGB_R & "," & RGB_B & "," & RGB_G & ")"
End Function

MsgBox getRGBLong(vbWhite)

RGB_R = (pColor Mod 256)
RGB_B = (Int(pColor / 65536))
RGB_G = ((pColor - (RGB_B * 65536) - RGB_R) / 256)