Por que no pruebas con un scroll horizontal?
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
Dim i As Integer
i = SendMessage(List1.hwnd, &H194, 800, ByVal 0&)
El valor 800 lo puedes cambiar depende al tamaño de tu listbox
Te sirve?...
