TreeView - как горизонтальный тулбар в левый край

[Юра П]

У меня такая проблема:
TreeView имеет ограниченную ширину, увеличить ширину нет возможности. При обновление TreeView, уровни следующие за первым смещают область видимости элемента управления вправо (появл. гориз. скролбар и невидны названия первого уровня). (Важна видимость названий первого уровня, а второй уровень если урезается, то все равно появляется подсветка.)
Что надо написать, чтобы сдвинуть программно область видимости в крайнюю левую позицию???

[SHURUP]

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

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Const WM_HSCROLL As Long = &H114
Private Const SB_LEFT As Long = 6

Private Sub Command1_Click()
Caption = SendMessage(TreeView1.hwnd, WM_HSCROLL, SB_LEFT, 0&)
End Sub

[SHURUP]

Кстати, кто-то может обьяснить, почему аналогичная операция с SB_RIGHT As Long = 7 - не дает результата?

[tyomitch]

Может, lParam надо передавать ByVal, а?