Hi, i'm traying to read a BitMap and save in a file the color of each pixel in the bitmap, I selected vbPixels

ScaleMode = vbPixels
Open "c:embone.dat" For Output As #1

For I = picFoto.Height - 1 To 0 Step -1
For J = picFoto.Width - 1 To 0 Step -1
Color = picFoto.Point(I, J) 'I write the color
Write #1, Color, I, J 'and position of
Next J 'pixel x,y
Next I

Close #1

but all I get in the file is
-1, 500, 400
-1, 500, 399
............

Do you have any idea about what's wrong?
VB Help says -1 means that the point (x,y) is outside the picture. Any suggestion?