为什么SetTextColor没有用阿？
我想给按钮字体改变颜色，想用SetWindowLong自定义窗口过程以处理WM_DRAWITEM消息，从而用SetTextColor改变颜色，冗长的API和常量声明就不写了，以下代码是主要的代码：
标准模块里：
Global prevProc As Long
Global gHW As Long
Global gHcmd As Long
Global CtrlID As Long

Public Sub hook()
prevProc = SetWindowLong _
(gHW, GWL_WNDPROC, AddressOf DrawButtonProc)
End Sub
Private Function DrawButtonProc(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim di As DRAWITEMSTRUCT
If wMsg = WM_DRAWITEM Then
CopyMemory di, ByVal lParam, Len(di) '要得到的结构体
If CtrlID = di.CtlID And ODT_BUTTON = di.CtlType Then

SetTextColor di.hdc, RGB(0, 0, 255)

End If
End If
DrawButtonProc = CallWindowProc(prevProc, gHW, wMsg, wParam, lParam)
End Function

窗体模块里面
Private Sub Form_Activate()
hook
End Sub

Private Sub Form_Load()
gHW = Me.hWnd
gHcmd = Command1.hWnd
CtrlID = GetDlgCtrlID(gHcmd)
Call SendMessage(Command1.hWnd, BM_SETSTYLE, BS_OWNERDRAW, False)
End Sub
求各位大侠指导，不胜感激

[解决办法]
http://blog.csdn.net/hhfh/archive/2006/11/29/1419163.aspx

是不没有把sytle设置成graphic
[解决办法]
another link:
http://vbnet.mvps.org/index.html?code/intrinsic/buttoncolorcheck.htm
[解决办法]
http://www.china-askpro.com/msg31/qa50.shtml
[解决办法]
高兴地得知你解决了问题。我所看到的例子都是在处理WM_DRAWITEM之前先调用CallWindowProc(lOldProc, hWnd, wMsg, wParam, lParam)。
另外，可能CommandButton不会接受XP Theme Style了。