QBColor Function

Syntax              QBColor(num)

Group                Miscellaneous

Description       Return the appropriate color defined by Quick Basic.

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

See Also            RGB( ).

Example            '#Language "WWB-COM"
Sub Main
    Debug.Print Hex(QBColor(1))  '"800000"
    Debug.PrintHex(QBColor(7))  '"C0C0C0"
    Debug.Print Hex(QBColor(8))  '"808080"
    Debug.PrintHex(QBColor(9))  '"FF0000"
    Debug.Print Hex(QBColor(10)) '"FF00"
    Debug.Print Hex(QBColor(12)) '"FF"
    Debug.Print Hex(QBColor(15)) '"FFFFFF"
EndSub