Выделение цветом строки в ListView

Public Function WindowProc(ByVal Hwnd As Long, ByVal uMsg As Long, _
                           ByVal wParam As Long, ByVal lParam As Long) As Long
    
    Dim tNMH As NMHDR
    
    If uMsg = WM_NOTIFY Then
        CopyMemory tNMH, ByVal lParam, Len(tNMH)
        If tNMH.hwndFrom = Form1.ListView1.Hwnd And tNMH.code = NM_CUSTOMDRAW Then
            ' Debug.Print 'NM_CUSTOMDRAW'
            WindowProc = plCustomDraw(lParam)
            Exit Function
        End If
    End If
    
    WindowProc = CallWindowProc(mWndProcNext, Hwnd, uMsg, wParam, ByVal lParam)
    
End Function

Private Function plCustomDraw(ByVal lParam As Long) As Long
    Dim NMLVCD As NMLVCUSTOMDRAW
    Dim lLen As Long
    Dim hFont As Long
    Dim lvRowIndex As Long
    
    ' Get the CustomDraw data.
    lLen = Len(NMLVCD)
    
    CopyMemory NMLVCD, ByVal lParam, lLen
    lvRowIndex = NMLVCD.nmcd.dwItemSpec
    
    Select Case NMLVCD.nmcd.dwDrawStage
        
        Case CDDS_PREPAINT
            ' Tell it we want to be told when an item is drawn.
            plCustomDraw = CDRF_NOTIFYITEMDRAW
            
        Case CDDS_ITEMPREPAINT
            
            ' An item is about to be drawn:
            plCustomDraw = CDRF_NOTIFYITEMDRAW
            
            If Not (NMLVCD.nmcd.lItemlParam = 0) Then
                NMLVCD.clrText = TranslateOLEtoRBG(<задай тут цвет текста>)
                NMLVCD.clrTextBk = TranslateOLEtoRBG(<задай тут цвет фона текста>)
                
                hFont = SendMessageLong(<задай тут хэндл объекта - образца нужного шрифта>, WM_GETFONT, 0, 0)
                SelectObject NMLVCD.nmcd.hdc, hFont
                
                ' при желании - избавляемся от 'фокусного' прямоугольника у рядов листвью:
                NMLVCD.nmcd.uItemState = NMLVCD.nmcd.uItemState And (Not CDIS_FOCUS)
                
                CopyMemory ByVal lParam, NMLVCD, lLen
                
            End If
            
        Case CDDS_ITEMPOSTPAINT
            plCustomDraw = CDRF_NEWFONT
        
    End Select
    
End Function

Public Function TranslateOLEtoRBG(ByVal dwOleColour As Long) As Long
  ' check to see if the passed colour value is and OLE or RGB colour, and if an OLE colour, translate it to a valid
  ' RGB color and return. If the colour is already a valid RGB colour, the function returns the colour without change
  
   OleTranslateColor dwOleColour, 0, TranslateOLEtoRBG
      
End Function