Постоянно вылетает ошибка с определением цветов пикселей - VB

здравствуйте. помогите пожалуйста. возникла проблема с определением цветов пикселей в visual basic 6.0. Задача стояла так: есть большой квадрат разбитый на 64 маленьких. так вот надо определить количество квадратов, в которых есть НЕ белый пиксель. Задача, вроде, простая и решается легко сканированием каждого из 64 квадратов покоординатно, определением цвета пикселя и сравнением в if через Picture1.Point(x,y) <>16777215 (белый цвет). Если есть такой цвет , кот не равен 16777215, то счетчик квадратов увеличивается на 1. Но возникла проблема, что в некоторых точках, где белый цвет Picture1.Point(x,y) возвращает -1. соответственно счетчик считает неверно. Бьюсь уже очень давно, помогите пожалуйста!!!!