如何判断任意点的颜色？

[neowang]

近来小弟在做计算机图形学的课程设计，甚为头痛。
目前在做种子填充算法，首先我已经用form的Pset方法用forecolor在窗体上画了圆，请问我如何可以获得圆边界上的点的颜色（即判断任意点的颜色）呢？望各位大虾指点！

[hycao]

Dim lngColor As Long
Dim intRed As Integer, intGreen As Integer, intBlue As Integer
lngColor = Form1.Point(1, 1) '取得颜色值，括号内为坐标值
'分解成RGB
intRed = lngColor Mod 256
intGreen = (lngColor \ 256) Mod 256
intBlue = lngColor \ 65536