Dim cColor As Long
cColor = Picture1.Point(x, y)
R = cColor Mod 255
G = cColor \ 255 Mod 255
B = cColor \ 255 \ 255
cColor = Picture1.Point(x, y)
R = cColor Mod 255
G = cColor \ 255 Mod 255
B = cColor \ 255 \ 255
调试欢乐多
至于偏差是因为那些色不是静态色,每个系统都只能近似得到它的颜色,不能绝对相同的