vb 6 listview的背景透明的实现

研究这个问题已经有一个多月了，google个n天，都没人解决，始终没有找到好的方法，我是vb小弱阿。最后还是们组的老大高，找到了一个方法。决定不私藏： 

首先：当然是hook listview的winProc函数如下

 Public Function LVSubcls_WProc4Hdr(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    On Error Resume Next

    Dim UpdateRect As RECT
    Dim hRgn As Long
    Dim re As Long
    Dim ps As PAINTSTRUCT
    Dim hdc As Long
    Dim hP1Dc As Long
    Dim hMemDc As Long
    Dim hBitmap As Long
    Dim itemHeight As Long

    
    Dim lvRect As RECT, imageRect As RECT, lvWinRect As RECT, imageWinRect As RECT
    GetClientRect hwnd, lvRect
    GetClientRect sourceImagehwnd, imageRect
          
    GetWindowRect hwnd, lvWinRect
    GetWindowRect sourceImagehwnd, imageWinRect
      
    Select Case msg

        Case WM_ERASEBKGND

            Dim offs