module1.bas

很好的教程原代码！

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

'常量声明
Public Const COLOR_SCROLLBAR = 0
'滚动条
Public Const COLOR_BACKGROUND = 1
'桌面背景
Public Const COLOR_ACTIVECAPTION = 2
'活动窗口标题
Public Const COLOR_INACTIVECAPTION = 3
'非活动窗口标题
Public Const COLOR_MENU = 4
'菜单
Public Const COLOR_WINDOW = 5
'窗口背景
Public Const COLOR_WINDOWFRAME = 6
'窗口框
Public Const COLOR_MENUTEXT = 7
'窗口文字
Public Const COLOR_WINDOWTEXT = 8
'3D 阴影 (Win95)
Public Const COLOR_CAPTIONTEXT = 9
'标题文字
Public Const COLOR_ACTIVEBORDER = 10
'活动窗口边框
Public Const COLOR_INACTIVEBORDER = 11
'非活动窗口边框
Public Const COLOR_APPWORKSPACE = 12
'MDI 窗口背景
Public Const COLOR_HIGHLIGHT = 13
'选择条背景
Public Const COLOR_HIGHLIGHTTEXT = 14
'选择条文字
Public Const COLOR_BTNFACE = 15
'按钮
Public Const COLOR_BTNSHADOW = 16
'3D 按钮阴影
Public Const COLOR_GRAYTEXT = 17
'灰度文字
Public Const COLOR_BTNTEXT = 18
'按钮文字
Public Const COLOR_INACTIVECAPTIONTEXT = 19
'非活动窗口文字
Public Const COLOR_BTNHIGHLIGHT = 20
'3D 选择按钮