AddHorizScrBarLB

Const LB_SETHORIZONTALEXTENT = &H194

Dim hSize As Long
'


hSize = 350

Call SendMessage(List1.hwnd, LB_SETHORIZONTALEXTENT, hSize, ByVal 0&)