Public Const TVS_EX_FADEINOUTEXPANDOS = &H40
Public Const TVS_EX_AUTOHSCROLL = &H20
Public Const TVS_EX_DOUBLEBUFFER = <Х.З>

Public Const TVS_EX_FADEINOUTEXPANDOS = &H40
Public Const TVS_EX_AUTOHSCROLL = &H20
Public Const TVS_EX_DOUBLEBUFFER = &H4

    If IsWinVista And ThemesEnabled(TreeView1.hWnd) Then 'стиль для Висты
        SetWindowTheme TreeView1.hWnd, StrPtr("explorer"),  0 
        'линии не нужны - не стильно,гориз. scroll не нужен
        SetWindowLong TreeView1.hWnd, GWL_STYLE, GetWindowLong(TreeView1.hWnd, GWL_STYLE) Or TVS_HASBUTTONS Or TVS_LINESATROOT Or TVS_NOHSCROLL
        'применяем горизонт. авто-scroll и фейдер (стрелка что вместо +/- растворится при потере фокуса формой)
        lStyle = SendMessage(TreeView1.hWnd, TVM_GETEXTENDEDSTYLE,  0 ,  0 )
        lStyle = lStyle Or TVS_EX_FADEINOUTEXPANDOS Or TVS_EX_AUTOHSCROLL Or TVS_EX_DOUBLEBUFFER
        Call SendMessageLong(TreeView1.hWnd, TVM_SETEXTENDEDSTYLE,  0 , ByVal lStyle)
    ElseIf IsWinVista Then
        SetWindowLong TreeView1.hWnd, GWL_STYLE, GetWindowLong(TreeView1.hWnd, GWL_STYLE) Or TVS_HASBUTTONS Or TVS_LINESATROOT Or TVS_HASLINES
        lStyle = SendMessage(TreeView1.hWnd, TVM_GETEXTENDEDSTYLE,  0 ,  0 )
        lStyle = lStyle Or TVS_EX_DOUBLEBUFFER
        Call SendMessageLong(TreeView1.hWnd, TVM_SETEXTENDEDSTYLE,  0 , ByVal lStyle)
    Else
        'добавляем линии в классич/XP стиле (для root с манифестом они не добавятся)
        SetWindowLong TreeView1.hWnd, GWL_STYLE, GetWindowLong(TreeView1.hWnd, GWL_STYLE) Or TVS_HASBUTTONS Or TVS_LINESATROOT Or TVS_HASLINES
    End If