Code:
'red value
dim retval as long
retval = GetRValue(GetPixel(HDC,x,y))
'green & blue
GetBValue & GetGValue