Как изменить цвет текста на кнопке? Стандартной. - VB

Формулировка задачи:

Проблема в чем:
Сделал как здесь:
Как облагородить кнопку которая поверх картинки?
Наложил кнопку поверх картинки.
Ну научился картинки на кнопке рисовать:

SetWindowLong Com1.hwnd, GWL_STYLE, GetWindowLong(Com1.hwnd, GWL_STYLE) Or BS_ICON
        SendMessage Com1.hwnd, BM_SETIMAGE, IMAGE_ICON, ByVal lngIcon1

Обошел даже глюк на XP теме (кнопка превращается в классику при попытке сделать Or BS_ICON):

Case WM_NOTIFY
      Static lvcd As NMLVCUSTOMDRAW
      MoveMemory lvcd, ByVal lParam, Len(lvcd)   ' every structs' member is a Long
      Select Case lvcd.nmcd.hdr.code
        Case NM_CUSTOMDRAW
...
                  If lvcd.nmcd.hdr.hwndFrom = Form1.Com1.hwnd Then
                    If state_id = PBS_DISABLED Then
                      DrawIconEx lvcd.nmcd.hdc, x, y, lngIcon1_bw, 24, 24, 0, 0, DI_NORMAL
                    Else
                      DrawIconEx lvcd.nmcd.hdc, x, y, lngIcon1, 24, 24, 0, 0, DI_NORMAL

Дальше сделал кнопки прозрачными(работает только на 7-ке, воруется стиль 7-рочной кнопки "Свернуть все окна")

SetWindowTheme Com1.hwnd, StrPtr("VerticalShowDesktop"), 0

Выглядит здорово, но шрифт текста черный - хотелось бы белый или поиграться. (На фоне темной картинки буков почти не видно).
==================
Что пробовал:
1) Вклиниться в процедуру которой подрисовываю background

Select Case Msg
    Case WM_CTLCOLORBTN:
      SetBkMode wParam, TRANSPARENT
      GetWindowRect lParam, rc
      tPt.x = rc.Left
      tPt.y = rc.Top
      MapWindowPoints 0, GetParent(lParam), tPt, 2
      rc.Left = tPt.x
      rc.Top = tPt.y
      SetBrushOrgEx wParam, -rc.Left, -rc.Top, tPt
      NewDigitsWindowProc = hbshBackDigits
      Exit Function
    ' ======================================================

т.е. пытался воткнуть туда
SetTextColor wParam, RGB(X, Y, Z)
-не получилось
2) Пытался опять же из CUSTOMDRAW

Case CDDS_PREPAINT
                        Case CDDS_ITEMPREPAINT
                           lvcd.clrText =

Но это увы не listview, где можно строчки раскрасить
3) Пытался там же рисовать этот текст на hdc

Dim sPrintText As String
                      sPrintText = "Print this text"
                      SetTextColor lvcd.nmcd.hdc, vbBlue
                      DrawText lvcd.nmcd.hdc, sPrintText, Len(sPrintText), rc, DT_TOP 'Or DT_WORDBREAK

Не рисует текст вообще.
Все примеры VB6 что находил используют стиль кнопки Graphical -это порнушка.
В "Калькулятор" цвет надписей как-то изменен. Судя по тому, что цифры на классике не прыгают при нажатии (на классике должны), рисуется на hdc.
Могу конечно вставить иконки с текстом Or BS_ICON либо рисовкой на hdc кнопки, но это накладно и цвет оперативно менять нельзя (не для всех же цветов/кнопок надписи на иконках делать).

Решение задачи: «Как изменить цвет текста на кнопке? Стандартной.»

textual
                            Листинг программы 
                        

                            Private Declare Function TextOut Lib "gdi32.dll" Alias "TextOutA" _
  (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, _
  ByVal lpString As String, ByVal nCount As Long) As Long


    Case WM_NOTIFY
      Static lvcd As NMLVCUSTOMDRAW
      MoveMemory lvcd, ByVal lParam, Len(lvcd)   ' every structs' member is a Long
      Select Case lvcd.nmcd.hdr.code
        Case NM_CUSTOMDRAW
...
              CDDS_PREPAINT

                      Dim sPrintText As String
                      sPrintText = "Print this text"
                      SetBkMode wParam, TRANSPARENT
                      SetTextColor lvcd.nmcd.hdc, vbBlue
                      TextOut lvcd.nmcd.hdc, 0, 0, sPrintText, Len(sPrintText)

                        