设置ListBox的水平卷动轴的宽度
如何设置ListBox的水平卷动轴的宽度？

' API函数声明

Const LB_SETHORIZONTALEXTENT = &H194
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

' 调用

Call SendMessage(List1.hwnd, LB_SETHORIZONTALEXTENT, 400, ByVal 0&)
' 注意400是以象素为单位，你可以根据情况自行设定。