Try creating one with the RGB Function
RGB(red, green, blue)
Returns a Long whole number representing an RGB color value.
Syntax
RGB(red, green, blue)
The RGB function syntax has these named arguments:
Part Description
red Required; Variant (Integer). Number in the range 0–255, inclusive, that represents the red component of the color.
green Required; Variant (Integer). Number in the range 0–255, inclusive, that represents the green component of the color.
blue Required; Variant (Integer). Number in the range 0–255, inclusive, that represents the blue component of the color.
or for 8 colors use the Color Constants (see help file)
or the QB Color function for 15 colors:
QBColor Function
Returns a Long representing the RGB color code corresponding to the specified color number.
Syntax
QBColor(color)
The required color argument is a whole number in the range 0–15.
Settings
The color argument has these settings:
Number Color Number Color
0 Black 8 Gray
1 Blue 9 Light Blue
2 Green 10 Light Green
3 Cyan 11 Light Cyan
4 Red 12 Light Red
5 Magenta 13 Light Magenta
6 Yellow 14 Light Yellow
7 White 15 Bright White
Or try a variation of this using the QBCOLOR function:
http://support.microsoft.com/default.aspx?scid=kb;en-us;200527