Установить плоский стиль, для скролбара компонента TreeVew

[jangle]

Что-то никак не могу врубиться как это сделать. Подскажите, как все-таки установить FLAT STYLE

[BV]

FindWindowEx не находит скроллбара?

[jangle]

FindWindowEx не находит скроллбара?

Не пробовал. А проще нет способа? Вот например, установка плоского скроллбара для ListView. Наверняка и для TreeView есть аналог константы LVS_EX_FLATSB

Код: Выделить всё

Private Const LVM_FIRST As Long = &H1000
Private Const LVM_SETEXTENDEDLISTVIEWSTYLE As Long = (LVM_FIRST + 54)
Private Const LVS_EX_FLATSB As Long = &H100
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
          
Private Sub Form_Load()
    Dim lCount As Long
    ListView1.ColumnHeaders.Add , , "Column 1"
    ListView1.ColumnHeaders.Add , , "Column 2"
    ListView1.View = lvwReport

    With ListView1.ListItems


        For lCount = 1 To 25
            .Add , , "Listview item number " & lCount
        Next
    End With

    SendMessage ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, LVS_EX_FLATSB, True

End Sub