ListBox - VerticalScroll - SendMessage

[Scuder]

Как убрать вертикальный скроллбар?

[Scuder]

Есть вот такая вещь:

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

Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Const SB_HORZ = 0
Private Const SB_VERT = 1
Private Const SB_BOTH = 3

ShowScrollBar List1.hwnd, SB_VERT, False

Но когда идёшь вниз/вверх по списку, скролл всё равно появляется. И даже если после каждого клика писать ему False, то заметно моргание.

Как его (скроллбар) убить окончательно и безповоротно?

[Igor_123]

Кстати а если просабклассить листвью и сообщение на появление скролбара проигнорировать!

Спасибо за наводку