hi here is a class that allows you to use web colors in your apps easy to use just plug into your project and your good to go hope you like it.
class code
how to use the class
class code
Code:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "cWebColors"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Enum vbWebColors
vbsnow = &HFAFAFF
vbFloralWhite = &HF0FAFF
vbLavenderBlush = &HF5F0FF
vbOldLace = &HE6F5FD
vbIvory = &HF0FFFF
vbCornSilk = &HDCF8FF
vbBeige = &HDCF5F5
vbAntiqueWhite = &HD7EBFA
vbWheat = &HB3DEF5
vbAliceBlue = &HFFF8F0
vbGhostWhite = &HFFF8F8
vbLavender = &HFAE6E6
vbSeashell = &HEEF5FF
vbLightYellow = &HE0FFFF
vbPapayaWhip = &HD5EFFF
vbNavajoWhite = &HADDEFF
vbMoccasin = &HB5E4FF
vbBurlywood = &H87B8DE
vbAzure = &HFFFFF0
vbMintcream = &HFAFFF5
vbHoneydew = &HF0FFF0
vbLinen = &HE6F0FA
vbLemonChiffon = &HCDFAFF
vbBlanchedAlmond = &HCDEBFF
vbBisque = &HC4E4FF
vbPeachPuff = &HB9DAFF
vbTan = &H8CB4D2
vbYellow = &HFFFF&
vbDarkOrange = &H8CFF&
vbRed = &HFF&
vbDarkRed = &H8B&
vbMaroon = &H80&
vbIndianRed = &H5C5CCD
vbSalmon = &H7280FA
vbCoral = &H507FFF
vbGold = &HD7FF&
vbTomato = &H4763FF
vbCrimson = &H3C14DC
vbBrown = &H2A2AA5
vbChocolate = &H1E69D2
vbSandyBrown = &H60A4F4
vbLightSalmon = &H7AA0FF
vbLightCoral = &H8080F0
vbOrange = &HA5FF&
vbOrangeRed = &H45FF&
vbFirebrick = &H2222B2
vbSaddleBrown = &H13458B
vbSienna = &H2D52A0
vbPeru = &H3F85CD
vbDarkSalmon = &H7A96E9
vbRosyBrown = &H8F8FBC
vbPaleGoldenrod = &HAAE8EE
vbLightGoldenrodYellow = &HD2FAFA
vbOlive = &H8080&
vbForestGreen = &H228B22
vbGreenYellow = &H2FFFAD
vbChartreuse = &HFF7F&
vbLightGreen = &H90EE90
vbAquamarine = &HD4FF7F
vbSeaGreen = &H578B2E
vbGoldenRod = &H20A5DA
vbKhaki = &H8CE6F0
vbOliveDrab = &H238E6B
vbGreen = &H8000&
vbYellowGreen = &H32CD9A
vbLawnGreen = &HFC7C&
vbPaleGreen = &H98FB98
vbMediumAquamarine = &HAACD66
vbMediumSeaGreen = &H71B33C
vbDarkGoldenRod = &HB86B8
vbDarkKhaki = &H6BB7BD
vbDarkOliveGreen = &H2F6B55
vbDarkgreen = &H6400&
vbLimeGreen = &H32CD32
vbLime = &HFF00&
vbSpringGreen = &H7FFF00
vbMediumSpringGreen = &H9AFA00
vbDarkSeaGreen = &H8FBC8F
vbLightSeaGreen = &HAAB220
vbPaleTurquoise = &HEEEEAF
vbLightCyan = &HFFFFE0
vbLightBlue = &HE6D8AD
vbLightSkyBlue = &HFACE87
vbCornFlowerBlue = &HED9564
vbDarkBlue = &H8B0000
vbIndigo = &H82004B
vbMediumTurquoise = &HCCD148
vbTurquoise = &HD0E040
vbCyan = &HFFFF00
vbAqua = &HFFFF00
vbPowderBlue = &HE6E0B0
vbSkyBlue = &HEBCE87
vbRoyalBlue = &HE16941
vbMediumBlue = &HCD0000
vbMidnightBlue = &H701919
vbDarkTurquoise = &HD1CE00
vbCadetBlue = &HA09E5F
vbDarkCyan = &H8B8B00
vbTeal = &H808000
vbDeepskyBlue = &HFFBF00
vbDodgerBlue = &HFF901E
vbBlue = &HFF0000
vbNavy = &H800000
vbDarkViolet = &HD30094
vbDarkOrchid = &HCC3299
vbMagenta = &HFF00FF
vbFuchsia = &HFF00FF
vbDarkMagenta = &H8B008B
vbMediumVioletRed = &H8515C7
vbPaleVioletRed = &H9370DB
vbBlueViolet = &HE22B8A
vbMediumOrchid = &HD355BA
vbMediumPurple = &HDB7093
vbPurple = &H800080
vbDeepPink = &H9314FF
vbLightPink = &HC1B6FF
vbViolet = &HEE82EE
vbOrchid = &HD670DA
vbPlum = &HDDA0DD
vbThistle = &HD8BFD8
vbHotPink = &HB469FF
vbPink = &HCBC0FF
vbLightSteelBlue = &HDEC4B0
vbMediumSlateBlue = &HEE687B
vbLightSlateGray = &H998877
vbWhite = &HFFFFFF
vbLightgrey = &HD3D3D3
vbGray = &H808080
vbSteelBlue = &HB48246
vbSlateBlue = &HCD5A6A
vbSlateGray = &H908070
vbWhiteSmoke = &HF5F5F5
vbSilver = &HC0C0C0
vbDimGray = &H696969
vbMistyRose = &HE1E4FF
vbDarkSlateBlue = &H8B3D48
vbDarkSlategray = &H4F4F2F
vbGainsboro = &HDCDCDC
vbDarkGray = &HA9A9A9
vbBlack = &H0&
End Enum
Public Property Get GetColor(ColorName As vbWebColors) As OLE_COLOR
GetColor = ColorName
End PropertyCode:
Dim webcolors As New cWebColors
Private Sub Command1_Click()
Me.BackColor = webcolors.GetColor(vbsnow)
End Sub