颜色常数：(对整个系统的窗口起作用) Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long Declare Function GetSysColor Lib "user32" Alias "GetSysColor" (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 'Grey text, of zero if dithering is used. Public Const COLOR_BTNTEXT = 18 '按钮文本颜色 Public Const COLOR_INACTIVECAPTIONTEXT = 19 '非活动窗口文本颜色 Public Const COLOR_BTNHIGHLIGHT = 20 '按钮 3D 高亮颜色 '设置活动窗口标题为红色 't& = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255, 0, 0)) 建议在窗口卸载时恢复原来的颜色（原来的颜色可用getsyscolor函数得到） 注意：这个函数将改变整个系统的颜色，也就是说除了你的程序的窗口外，所有已打开的窗口的颜色也会改变（打开新窗口时也如此）。所以使用的资源也相对较大。
处理WM_NCPAINT消息
那个网站有这个例子，搜一搜吧
代码名称 可以变颜色的标题栏
代码类型 窗口界面
运行环境 VB6.0/Win9x
授权方式 免费代码
代码大小 9K
代码评价
上传时间 2002-1-13
相关链接 主页
本日下载 2 本周：143 总计：143
下载地址1 下载
代码简介 可以变颜色的标题栏http://www.vbeden.com/download/code_11/gradtitle.zip
1 实现窗体标题栏颜色渐变的，还可让实现标题栏纵向渐变。 下载 7.7K 2000年10月2日 http://go8.163.com/vbchina/downcode/tipback.zip
渐变标题栏
18.8KB 一个实现渐变窗体标题栏的例子 2001/08/21
☆☆☆☆☆ftp://ftp1.mydown.com/home2/soft23/20206grad.zip
软件名称：grad.zip 更新时间：2000-11-17
软件类型：免费软件
使用平台：null
软件大小：19K
软件开发：
软件评分：★★★☆☆
简单介绍：在 Windows 95 中，实现渐变的标题栏的例子
详细介绍：
在 Windows 95 中，实现渐变的标题栏的例子
Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Declare Function GetSysColor Lib "user32" Alias "GetSysColor" (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 'Grey text, of zero if dithering is used.
Public Const COLOR_BTNTEXT = 18 '按钮文本颜色
Public Const COLOR_INACTIVECAPTIONTEXT = 19 '非活动窗口文本颜色
Public Const COLOR_BTNHIGHLIGHT = 20 '按钮 3D 高亮颜色
'设置活动窗口标题为红色
't& = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255, 0, 0))
建议在窗口卸载时恢复原来的颜色（原来的颜色可用getsyscolor函数得到）
注意：这个函数将改变整个系统的颜色，也就是说除了你的程序的窗口外，所有已打开的窗口的颜色也会改变（打开新窗口时也如此）。所以使用的资源也相对较大。