Zjištění barvy pixelu
Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, _
ByVal x As Long, ByVal y As Long) As Long
'Tato procedurka spočítá počet počet červených pixelů na formuláři
' ScaleMode formuláře musí být nastaveno na 3 - Pixly
Dim x As Long, y As Long
Dim h As Long, count As Long
h = Me.hdc
For y = 0 To ScaleHeight - 1
For x = 0 To ScaleWidth - 1
If GetPixel(h, x, y) = vbRed Then
count = count + 1
End If
Next
Next