fgcolors.bas

coded in visual basic

Attribute VB_Name = "Module2"
Option Explicit
'
' The first 10 Windows system colors:
'
Public Const fg_Black = 0
Public Const fg_DarkRed = 1
Public Const fg_DarkGreen = 2
Public Const fg_LightGreen = 3
Public Const fg_DarkBlue = 4
Public Const fg_Lavender = 5
Public Const fg_Slate = 6
Public Const fg_LightGray = 7
Public Const fg_PaleGreen = 8
Public Const fg_PaleBlue = 9
'
' Standard 16-color DOS color set
'
Public Const dupBlack = 10
Public Const fg_Blue = 11
Public Const fg_Green = 12
Public Const dupCyan = 13
Public Const fg_Red = 14
Public Const dupMagenta = 15
Public Const fg_Brown = 16
Public Const fg_Gray = 17
Public Const dupDarkGray = 18
Public Const fg_LightBlue = 19
Public Const dupLightGreen = 20
Public Const fg_LightCyan = 21
Public Const fg_LightRed = 22
Public Const fg_LightMagenta = 23
Public Const dupYellow = 24
Public Const dupWhite = 25
'
' The last 10 Windows system colors
'
Public Const fg_OffWhite = 246
Public Const fg_MediumGray = 247
Public Const fg_DarkGray = 248
Public Const fg_BrightRed = 249
Public Const fg_BrightGreen = 250
Public Const fg_Yellow = 251
Public Const fg_BrightBlue = 252
Public Const fg_Magenta = 253
Public Const fg_Cyan = 254
Public Const fg_White = 255