Горизонтальная прокрутка в List

Option Explicit
Private Declare Function SendMessageByNum 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 Command1_Click()
Static x As Long, Item
For Item = List1.ListCount - 1 To 0 Step -1
If x < TextWidth(List1.List(Item) & " ") Then
x = TextWidth(List1.List(Item) & " ")
End If
Next
If ScaleMode = vbTwips Then x = x / Screen.TwipsPerPixelX
SendMessageByNum List1.hwnd, LB_SETHORIZONTALEXTENT, x, 0
End Sub
 
Private Sub Form_Load()
List1.AddItem "длинная переменная, которую надо"
List1.AddItem "длинная переменная, которую надо увидеть или не увидеть или еще что-то"
List1.AddItem "длинная переменная, которую надо увид"
List1.AddItem "длинная переменная, которую надо увидеть или не увидеть или еще что-тоывеапапавп"
End Sub

List1.AddItem "??????? ??????????, ??????? ????"
List1.AddItem "??????? ??????????, ??????? ???? ??????? ??? ?? ??????? ??? ??? ???-??"
List1.AddItem "??????? ??????????, ??????? ???? ????"
List1.AddItem "??????? ??????????, ??????? ???? ??????? ??? ?? ??????? ??? ??? ???-????????????"

Next
x = x * 1.2

x = x + 50