' ======================================================
    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

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

  SendMessageLong Form1.ListView1.hwnd, LVM_SETBKCOLOR, 0, ByVal CLR_NONE
  SendMessageLong Form1.ListView1.hwnd, LVM_SETTEXTBKCOLOR, 0, ByVal CLR_NONE
  
  OldListView1WindowProc = SetWindowLong(ListView1.hwnd, GWL_WNDPROC, _
   AddressOf NewListView1WindowProc)
...
'для событий ListView1
Public Function NewListView1WindowProc _
  (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Dim rc As RECT
  Dim tPt As POINTAPI
  Dim the_hdc As Long
  Dim hbmDstOld As Long
  
  Select Case Msg
    Case WM_ERASEBKGND:
      Debug.Print "WM_ERASEBKGND:" & wParam
      
      the_hdc = GetDC(Form1.ListView1.hwnd)
      hbmDstOld = SelectObject(the_hdc, hbshBackDigits)
      SetBkMode the_hdc, TRANSPARENT
      GetWindowRect Form1.ListView1.hwnd, rc
      tPt.x = rc.Left
      tPt.y = rc.Top
      MapWindowPoints 0, Form1.PictureDigits.hwnd, tPt, 2
      rc.Left = tPt.x
      rc.Top = tPt.y
      SetBrushOrgEx the_hdc, -rc.Left, -rc.Top, tPt
      PatBlt the_hdc, 0, 0, Form1.ListView1.Width, Form1.ListView1.Height, PATCOPY
      SelectObject the_hdc, hbmDstOld
      Call RedrawWindow(Form1.ListView1.hwnd, ByVal 0&, ByVal 0&, RDW_INVALIDATE Or RDW_FRAME Or RDW_UPDATENOW)
      
      NewListView1WindowProc = 1
      Exit Function
    Case WM_PAINT:
      Debug.Print "WM_PAINT"
  End Select 'Msg
  NewListView1WindowProc = CallWindowProc _
   (OldListView1WindowProc, hwnd, Msg, wParam, lParam)
End Function

 SendMessage Form1.TreeView1.hwnd, TVM_SETBKCOLOR, 0, ByVal vbRed
 SendMessage Form1.TreeView1.hwnd, TVM_SETTEXTCOLOR, 0, ByVal vbYellow 'задаем цвет текста 

                 'tvcd.clrText = vbYellow 'это не надо т.к. цвет текста задан через TVM_SETTEXTCOLOR
                  tvcd.clrTextBk = vbRed 'background of item -красный

ListView1.ListItems(j).SubItems(1) = "some text"

Public Sub ListViewSetSubItemText(m_ListView As ComctlLib.ListView, m_Item As Long, m_subItem As Long, m_Text As String)
  Dim lvi As LV_ITEM
  With lvi
    .iItem = m_Item - 1
    .iSubItem = m_subItem
    .mask = LVIF_TEXT
    .pszText = m_Text
  End With
  Call SendMessage(m_ListView.hwnd, LVM_SETITEM, 0, lvi)
End Sub

ListViewSetSubItemText ListView1, j, 1, "some text"

ListViewSetSubItemText ListView1, j, 0, "some text"

ListViewSetSubItemText ListView1, j, >>1<<<, "some text"