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