//Imports the UXTheme DLL
[DllImport("uxtheme", CharSet = CharSet.Unicode)]
public extern static Int32 SetWindowTheme
        (IntPtr hWnd, String textSubAppName, String textSubIdList);

SetWindowTheme(listView1.Handle, "explorer", null);
'But there is more. In Windows Explorer, these ListViews have the semi-transparent selection as well.
'You can do this by calling the LVS_EX_DOUBLEBUFFER [0x00010000] extended style.
SendMessage(listview1.Handle, 0x1000 +  54 , 0x00010000, 0x00010000);
'Treeviews in Windows Explorer also have the fade effects. This can be achieved via the TVS_EX_FADEINOUTEXPANDOS [0x0040] extended style. 
SendMessage(treeview1.Handle, 0x1100 +  44 , 0x0020, 0x0020);
'The treeviews also have the "auto-scroll" feature. You can enable this via the TVS_EX_AUTOHSCROLL [0x0020] extended style. 
SendMessage(treeview1.Handle, 0x1100 +  44 , 0x0020, 0x0020);

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


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

' treeview window messages
Private Const TV_FIRST = &H1100
Private Const TVM_SETEXTENDEDSTYLE = TV_FIRST +  44 
Private Const TVM_GETEXTENDEDSTYLE = TV_FIRST +  45 
Private Const TVS_EX_FADEINOUTEXPANDOS = &H40 '?????
Private Const TVS_EX_AUTOHSCROLL = &H20 '?????


Private Declare Function SetWindowTheme Lib "uxtheme" (ByVal hwnd As Long, _
    ByVal pszSubAppName As String, ByVal pszSubIdList As String) As Long

'Private Declare Function SetWindowTheme Lib "uxtheme" (ByVal hwnd As Long, _
'    ByVal pszSubAppName As String, Optional ByVal pszSubIdList As Long = 0) As Long

Private Sub Form_Load()
    Dim lStyle As Long
 ...
    SetWindowTheme ListView1.hwnd, "explorer", vbNull
    SetWindowTheme TreeView1.hwnd, "explorer", vbNull


    lStyle = SendMessage(ListView1.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE,  0 ,  0 )
    lStyle = lStyle Or LVS_EX_FULLROWSELECT Or LVS_EX_DOUBLEBUFFER 'Or LVS_EX_BORDERSELECT
    Call SendMessage(ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE,  0 , ByVal lStyle)

    lStyle = SendMessage(TreeView1.hwnd, TVM_GETEXTENDEDSTYLE,  0 ,  0 )
    lStyle = lStyle Or TVS_EX_FADEINOUTEXPANDOS Or TVS_EX_AUTOHSCROLL
    Call SendMessage(TreeView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE,  0 , ByVal lStyle)

Public Declare Unicode Function SetWindowTheme Lib "uxtheme.dll" _
(ByVal hWnd As IntPtr, ByVal pszSubAppName As String, ByVal pszSubIdList As String) As Integer 
'In Form_Load:
SetWindowTheme(lst.Handle, "explorer", Nothing)

Private Declare Function SetWindowTheme Lib "uxtheme" (ByVal hWnd As Long, _
    ByVal pszSubAppName As Long, ByVal pszSubIdList As Long) As Long

    SetWindowTheme ListView1.hWnd, StrPtr("explorer"),  0 
    SetWindowTheme TreeView1.hWnd, StrPtr("explorer"),  0 

Private Declare Function RedrawWindow Lib "user32" (ByVal hWnd As Long, _
   lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long

Public Sub DrawHeaders()
    'перерисовка,ибо сам не удосуживается это сделать
    Dim pvHeaderhWnd As Long
    pvHeaderhWnd = SendMessageLong(ListView1.hwnd, LVM_GETHEADER,  0 ,  0 )
    Call RedrawWindow(pvHeaderhWnd, ByVal  0 &, ByVal  0 &, RDW_INVALIDATE Or RDW_FRAME Or RDW_UPDATENOW)
End Sub

Private Sub Form_Load()
 
    OldListWindowProc = SetWindowLong(ListView1.hwnd, GWL_WNDPROC, _
        AddressOf NewListWindowProc)


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