QBColor Function

Syntax 
QBColor(num)
Group
Miscellaneous
Description
Return the appropriate color defined by Quick Basic.
num color
0 black
1 blue
2 green
3 cyan
4 red
5 magenta
6 yellow
7 white
8 gray
9 light blue
10 light green
11 light cyan
12 light red
13 light magenta
14 light yellow
15 bright white
See Also
RGB( ) 
Sub Main
    Debug.Print Hex(QBColor(1))  '"800000"
    Debug.Print Hex(QBColor(7))  '"C0C0C0"
    Debug.Print Hex(QBColor(8))  '"808080"
    Debug.Print Hex(QBColor(9))  '"FF0000"
    Debug.Print Hex(QBColor(10)) '"FF00"
    Debug.Print Hex(QBColor(12)) '"FF"
    Debug.Print Hex(QBColor(15)) '"FFFFFF"
End Sub