Dim x As Long
    x = SendMessage(ListView1.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE,  0 , ByVal  0 &)
    SendMessage ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE,  0 , ByVal CLng(x Or LVS_EX_FULLROWSELECT)

Public Function LVUCProc(ByVal lng_hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim udtNMLVCUSTOMDRAW As NMLVCUSTOMDRAW
Dim uNMH     As NMHDR
Dim mFont As New StdFont
Dim IFont As IFont
    On Error GoTo errh
    If uMsg = WM_NOTIFY Then
        Call CopyMemory(uNMH, ByVal lParam, Len(uNMH))
        If uNMH.code = NM_CUSTOMDRAW Then
            CopyMemory udtNMLVCUSTOMDRAW, ByVal lParam, Len(udtNMLVCUSTOMDRAW)
            Select Case udtNMLVCUSTOMDRAW.nmcd.dwDrawStage
                Case CDDS_PREPAINT
                    LVUCProc = CDRF_NOTIFYITEMDRAW
                    Exit Function
                Case CDDS_ITEMPREPAINT
                    LVUCProc = CDRF_NOTIFYSUBITEMDRAW
                    Exit Function
                Case CDDS_ITEMPREPAINT Or CDDS_SUBITEM
                    'цвет
                    udtNMLVCUSTOMDRAW.clrText = vbWhite
                    udtNMLVCUSTOMDRAW.clrTextBk = vbBlack
                    'шрифт
                    mFont.Name = "Arial"
                    mFont.Bold = True
                    Set IFont = mFont
                    Call SelectObject(udtNMLVCUSTOMDRAW.nmcd.hDC, IFont.hFont)
                    CopyMemory ByVal lParam, udtNMLVCUSTOMDRAW, Len(udtNMLVCUSTOMDRAW)
                    LVUCProc = CDRF_NEWFONT
                    Exit Function
            End Select
        End If
    End If
errh:
    LVUCProc = CallWindowProc(lPrevWndProc, lng_hWnd, uMsg, wParam, lParam)
End Function