
Convert a color value to a gray scale
When you have a 32-bit color value, you can convert it to a grey-scale – that is, you can determine how it would appear on a monochromatic display (more or less) using the following function: Function GetGreyScale(ByVal lColor As Long) lColor = 0.33 * (lColor Mod 256) + 0.59 *