Горизонтальная прокрутка в ListBox - VB

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

Привет всем! Подскажите,как использовать HScrollBar для просмотра длинной строки в ЛистБоксе, не разворачивая листбокс на весь экран в длину. Спасибо заранее. Руслан

Решение задачи: «Горизонтальная прокрутка в ListBox»

textual
                            Листинг программы 
                        
                            Public Const LB_SETHORIZONTALEXTENT = &H194
 
Dim Result As Long
 
Result = SendMessage(lstLog1C.hwnd, LB_SETHORIZONTALEXTENT, Me.TextWidth(LongStr), ByVal 0&)