Syntax 

QBColor(num)


Group 

Miscellaneous 


Description 

Return the appropriate color defined by Quick Basic. 


num

Color

black 

blue 

green 

cyan 

red 

magenta 

yellow 

white 

gray 

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