Treeview/Listview SetWindowTheme(hwndList, L"Explorer", NULL); - VB

Формулировка задачи:

Собственно, как это сделать на других языках я нашел, например:
http://www.codeproject.com/KB/vista/themedvistacontrols.aspx?msg=2780811

// the UXTheme DLL
[DllImport(, CharSet = CharSet.Unicode)]
 extern  Int32 SetWindowTheme
        (IntPtr hWnd,  textSubAppName,  textSubIdList);

SetWindowTheme(listView1.Handle, , null);

SendMessage(listview1.Handle, 0x1000 + , 0x00010000, 0x00010000);

SendMessage(treeview1.Handle, 0x1100 + , 0x0020, 0x0020);

SendMessage(treeview1.Handle, 0x1100 + , 0x0020, 0x0020);

Перевел, как смог, на VB6 (готовых примеров не накопал)

LVM_FIRST = &H1000
  LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + &H37
  LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + &H36

  LVS_EX_FULLROWSELECT = &H20
  LVS_EX_DOUBLEBUFFER = &H10000
  LVS_EX_BORDERSELECT = &H8000

  TV_FIRST = &H1100
  TVM_SETEXTENDEDSTYLE = TV_FIRST + 
  TVM_GETEXTENDEDSTYLE = TV_FIRST + 
  TVS_EX_FADEINOUTEXPANDOS = &H40 
  TVS_EX_AUTOHSCROLL = &H20 

   SetWindowTheme Lib  ( hwnd  , _
     pszSubAppName  ,  pszSubIdList  )  

  Form_Load()
     lStyle  
 ...
    SetWindowTheme ListView1.hwnd, , vbNull
    SetWindowTheme TreeView1.hwnd, , vbNull

    lStyle = SendMessage(ListView1.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, , )
    lStyle = lStyle  LVS_EX_FULLROWSELECT  LVS_EX_DOUBLEBUFFER 
     SendMessage(ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, ,  lStyle)

    lStyle = SendMessage(TreeView1.hwnd, TVM_GETEXTENDEDSTYLE, , )
    lStyle = lStyle  TVS_EX_FADEINOUTEXPANDOS  TVS_EX_AUTOHSCROLL
     SendMessage(TreeView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, ,  lStyle)

Пока не фурычит.
Предполагаю ошибки в
Private Declare Function SetWindowTheme
а также в константах
Private Const TVS_EX_FADEINOUTEXPANDOS = &H40 '0x0040
Private Const TVS_EX_AUTOHSCROLL = &H20 '0x0020
Манифест естественно внедрен и испытания на Висте.
Идеи будут?

Решение задачи: «Treeview/Listview SetWindowTheme(hwndList, L"Explorer", NULL);»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
 
    OldListWindowProc = SetWindowLong(ListView1.hwnd, GWL_WNDPROC, _
        <font color="blue">AddressOf</font> NewListWindowProc)


<font color="blue">Public</font> <font color="blue">Function</font> NewListWindowProc(<font color="blue">ByVal</font> hwnd <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> Msg <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> wParam <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> lParam <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
    <font color="00AA00">'для событий listview</font>
    <font color="blue">If</font> (Msg = &HF) <font color="blue">Then</font> <font color="00AA00">'WM_PAINT</font>
        <font color="00AA00">'Debug.Print <font color="teal">"WM_PAINT"</font></font>
        Form1.RedrawHeaders
    <font color="blue">End</font> <font color="blue">If</font>
    NewListWindowProc = CallWindowProc( _
        OldListWindowProc, hwnd, Msg, wParam, _
        lParam)
<font color="blue">End</font> <font color="blue">Function</font>
                        