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