如何在程序中更改活动窗口标题栏颜色？

SetSysColors函数
声明:
Declare Function SetSysColors Lib "user32" Alias "SetSysColors" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
该函数可同时设置多个Windows对象的颜色,第一个参数指定要改变的对象的数量,第二个参数(引用传递)传入一个数组(首元素),指定要改变的每个对象,第三个参数也传入一个数组(首元素),指定要改变的每个对象的颜色值.调用如:
更改活动窗口标题色和桌面色:
Private Const COLOR_ACTIVECAPTION = 2
Private Const COLOR_BACKGROUND = 1
Private Sub Form_Load()
 Dim Objects(1) As Long
 Dim Colors(1) As Long
'将活动窗口标题栏改为红色:
 Objects(0) = COLOR_ACTIVECAPTION
 Colors(0) = RGB(255, 0, 0)
'将桌面改为绿色.
Objects(1) = COLOR_BACKGROUND
Colors(1) = RGB(0, 255, 0)
SetSysColors 2, Objects(0), Colors(0)
End Sub