Как добавить горизонтальный скроллинг к контролу ListBox? - VB

Формулировка задачи:

Уважаемые господа! Поскажите, плз, как добавить горизонтальный скроллинг к контролу ListBox?

Решение задачи: «Как добавить горизонтальный скроллинг к контролу ListBox?»

textual
                            Листинг программы 
                        

                            Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Const LB_SETHORIZONTALEXTENT = &H194
 
Private Sub Form_Load()
Dim TW As Long
ScaleMode = vbPixels
TW = TextWidth('Запишите сюда самое длиное слово из списка' & ' ')
SendMessage List1.hWnd, LB_SETHORIZONTALEXTENT, TW, 0
End Sub
                        