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( )


Example

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