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