QBColor Function

Syntax:

QBColor(num)

Group:

Miscellaneous

Description: 

Returns the appropriate color defined by Quick Basic.

Parameters:

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

Example:

Sub Main
  Debug.PrintHex(QBColor(1)) '"800000"
  Debug.PrintHex(QBColor(7)) '"C0C0C0"
  Debug.PrintHex(QBColor(8)) '"808080"
  Debug.PrintHex(QBColor(9)) '"FF0000"
  Debug.PrintHex(QBColor(10)) '"FF00"
  Debug.PrintHex(QBColor(12)) '"FF"
  Debug.PrintHex(QBColor(15)) '"FFFFFF"
End
Sub