Подсёчет разноцветных пикселей - VB

Формулировка задачи:

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Timer1_Timer()
If x < 11700 Then
x = x + 1
If Hex(GetPixel(Picture1.hdc, x, y)) = ffffff Then
k = k + 1
Label2.Caption = k 'количество белых пикселей
End If
Else
If y < 11895 Then
y = y + 1
End If
x = 0
End If
End Sub
Почему он у меня не считает белые пиксили В Picture1???

Решение задачи: «Подсёчет разноцветных пикселей»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> GetPixel Lib <font color="teal">"gdi32"</font> (<font color="blue">ByVal</font> hdc <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> x <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> y <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
Picture1.ScaleMode = vbPixels
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Picture1_MouseDown(Button <font color="blue">As</font> <font color="blue">Integer</font>, Shift <font color="blue">As</font> <font color="blue">Integer</font>, x <font color="blue">As</font> <font color="blue">Single</font>, y <font color="blue">As</font> <font color="blue">Single</font>)
Label1.Caption = <font color="teal">"X="</font> & x & <font color="teal">" Y="</font> & y & <font color="teal">" Код:"</font> & Hex(GetPixel(Picture1.hdc, x, y))
<font color="blue">End</font> <font color="blue">Sub</font>

                        