Прикрутить иконки к строкам в стандартном ListBox (List1)

[Teranas]

Есть тема: Прикрутить иконки к строкам в стандартном ListBox (List1).
Например, чтобы прилепить горизонтальную строку прокрутки к ListBox, нужно добавить всего несколько строк:

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

  ' Определения
  Private Const LB_SETHORIZONTALEXTENT As Long = &H194
  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
  ' Строка в функции или процедуре
  Call SendMessage(List1.hWnd, LB_SETHORIZONTALEXTENT, 3000, 0)
  ' List1.hWnd - Стандартный ListBox
  ' 3000 - Диапазон скроллинга


[Хакер]

Читай наверху текст в красной рамке. И топик по ссылке в красной рамке.
Когда прозреешь — пиши в личку, открою тему.