Cannot subclass listview in combobox

[ledaker]

Hi,
I am customizing a combobox control, to do that i am subclassing the listview of combobox but it doesn't work! this my code

COMBOBOXINFO *pcbi;
        pcbi->cbSize = sizeof(COMBOBOXINFO);       
        SendMessage(GetDlgItem(hwndDlg, IDC_COMBO1),  0x0164, 0,(WPARAM)pcbi);
        g_oldProc6 = (WNDPROC)SetClassLong(pcbi->hwndList, GWL_WNDPROC, long(WindowProcedure6));
.
.
.
LRESULT CALLBACK WindowProcedure(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
    PAINTSTRUCT lpPaint;
    RECT lpRect;
    HFONT hFont;
    HDC hDC;
    HPEN Pen;
    HBRUSH hBrush,oBrush;
    
    if(message == WM_PAINT)
    {
        GetClientRect(hwnd, &lpRect);

        hBrush = CreateSolidBrush(RGB(255,0,255));
        oBrush = CreateSolidBrush(RGB(200,200,200));
        hFont = CreateFont(12, 0, 0, 0, FW_NORMAL, 0, 0, 0, 0, 0, 0, 0, 0, "Verdana");
        SIZE NSize;

        hDC = BeginPaint(hwnd, &lpPaint);
        SelectObject(hDC, hFont);
        FillRect(hDC,&lpRect,hBrush);

        FrameRect(hDC,&lpRect,oBrush);
        EndPaint(hwnd, &lpPaint);

        DeleteObject(hFont);
        DeleteObject(hBrush);
        DeleteObject(oBrush);

        return 0L;
    }
    return CallWindowProc(g_oldEditProc6, hwnd, message, wParam, lParam);
}