急救----autoredraw不能创建问题？？？？？

[zsloyes]

在vb中，用picture控件打开一幅图像，大约21*25厘米，分辨率为300像素/英寸，要读取图片中某个像素点的rgb值，但在一开始读取像素点的值时程序提示（autoredraw不能创建），帮助显示内存不足！程序如下：

For i = 0 To cX - 1
For j = 0 To cY - 1
->此句出错 tmpCol = GetPixel(Form1.Picture2.hdc, i, j)
r = tmpCol Mod 256
g = (tmpCol / 256) Mod 256
b = tmpCol / 256 / 256
larrCol(0, i, j) = r
larrCol(1, i, j) = g
larrCol(2, i, j) = b
Next j
Form1.ProgressBar1.Value = i * 100 \ (cX - 1)
Next i

望高手帮助！