[impersonalis]

For y=1 To ImageWidth(image)
For x=1 To ImageHeight(image)

--->

For y=0 To ImageWidth(image)-1
For x=0 To ImageHeight(image)-1

и в аналогичных местах