原始来源:王国荣
VB 的 ListBox 并没有水平卷动轴的功能，如果遇到某一个资料项很长时， 使用者就无
法看到这一个资料项的所有内容，问如何设定水平卷动轴给 ListBox?
可利用 SendMessage 传送 LB_SETHORIZONTALEXTENT 讯息给 ListBox，此一讯息的作用
就是要求ListBox 设定水平卷动轴， 细节如下：
1. 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
2. 程式范例：
' List1 为 ListBox 的名称
Call SendMessage(List1.hwnd, LB_SETHORIZONTALEXTENT, _
水平卷动轴的宽度, ByVal 0&)
特别注意：以上的水平卷动轴宽度的单位是 pixel(像素)。