Attribute VB_Name = "Module1"
Public Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Public Declare Function SetSysColors Lib "user32" _
(ByVal nChanges As Long, lpSysColor As _
Long, lpColorValues As Long) As Long

Public Const COLOR_SCROLLBAR = 0 'Vierityspalkin väri
Public Const COLOR_BACKGROUND = 1 'Värit taustasta ilman taustakuvaa
Public Const COLOR_ACTIVECAPTION = 2 'Otsikko aktiivisesta ikkunasta
Public Const COLOR_INACTIVECAPTION = 3 'Otsikko ei-aktiivisesta ikkunasta
Public Const COLOR_MENU = 4 'Menu
Public Const COLOR_WINDOW = 5 'Windowsin tausta
Public Const COLOR_WINDOWFRAME = 6 'Ikkuna frame
Public Const COLOR_MENUTEXT = 7 'Ikkunan teksti
Public Const COLOR_WINDOWTEXT = 8 '3D tumma varjo (Win95)
Public Const COLOR_CAPTIONTEXT = 9 'Ikkunan otsikko
Public Const COLOR_ACTIVEBORDER = 10 'Reunat aktiivisesta ikkunasta
Public Const COLOR_INACTIVEBORDER = 11 'Reunat ei-aktiivisesta ikkunasta
Public Const COLOR_APPWORKSPACE = 12
Public Const COLOR_HIGHLIGHT = 13
Public Const COLOR_HIGHLIGHTTEXT = 14 'Valittu menu tavara
Public Const COLOR_BTNFACE = 15 'Nappi
Public Const COLOR_BTNSHADOW = 16 '3D varjostus napissa
Public Const COLOR_GRAYTEXT = 17
Public Const COLOR_BTNTEXT = 18 'Nappi teksti
Public Const COLOR_INACTIVECAPTIONTEXT = 19 'Teksti ei-aktiivisesta ikkunasta
Public Const COLOR_BTNHIGHLIGHT = 20 '3D highlight napista