С прозрачностью Treeview и Listview никто не поможет? - VB

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

Ну с Treeview немного повозился.
В соседней теме Массовый сабклассинг (OldXXXWindowProc?) и прозрачность ComboBox
картинка.
пока что-то не очень -автоматом только background - работает это только на классике и XP-стиле, на висте-нет. Да и тот прыгает.
С item-ами пока смог через CustomDraw изменить цвет текста, ну при желании background:

' ======================================================
    Case WM_NOTIFY
      Static tvcd As NMTVCUSTOMDRAW
      MoveMemory tvcd, ByVal lParam, Len(tvcd)   ' every structs' member is a Long
        Select Case tvcd.nmcd.hdr.code
          Case NM_CUSTOMDRAW
            Select Case tvcd.nmcd.dwDrawStage
            ' ====================================================
            Case CDDS_PREPAINT
              ' Tell the listview we want CDDS_ITEMPREPAINT for each item
              NewDigitsWindowProc = CDRF_NOTIFYITEMDRAW
              Exit Function
              ' ====================================================
            Case CDDS_ITEMPREPAINT
              'Select Case tvcd.nmcd.hdr.hwndFrom 'в смысле какой контрол собрался перерисовываться
              '  Case Form1.TreeView1.hwnd
                  'в Tag можно хранить информацию о цвете строчки, если пусто, то по умолчанию
                  tvcd.clrText = vbYellow
                  tvcd.clrTextBk = vbRed 'background of item, если надо
                  MoveMemory ByVal lParam, tvcd, Len(tvcd)
                  Exit Function
              '  Case Else
              'End Select 'tvcd.nmcd.hdr.hwndFrom
            Case Else
          End Select   ' tvcd.nmcd.dwDrawStage
        Case Else
      End Select   ' nmh.code

Но как сделать background прозрачным, я не понял.
По идее подрисовать туда кусок картинки, но не уверен.
Иконку например на кнопке можно нарисовать так:

DrawIconEx lvcd.hdc, x, y, lngIcon, 24, 24, 0, 0, DI_NORMAL

Наверно можно и кусок заготовленного brashа бухнуть как то, если hdc известно.
Но непонятно что при этом будет с родным текстом нода и выделением.
Все-таки надеюсь что Node- это что-то более менее стандартное и есть какой-нибудь WM_CTLCOLORXXX

Решение задачи: «С прозрачностью Treeview и Listview никто не поможет?»

textual
                            Листинг программы 
                        
                            ListView1.ListItems(j).SubItems(1) = "some text"