程序代码：

Dim x, y, hdc1, imgr As Long
Dim img As Long
hdc1 = Pic1.hdc
For x = 0 To Pic1.Width
For y = 0 To Pic1.Height
img = GetPixel(hdc1, x, y)
imgr = Red(img)
Pic4.PSet (x, y), RGB(imgr, 0, 0)
Next y
Next x