Adding a horizontal line to a listbox:

Code:
Const WM_USER = 1024
Const LB_SETHORIZONTALEXTENT = (WM_USER + 21)
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

nNewWidth = list1.Width + 100
nRet = SendMessage(list1.hWnd, LB_SETHORIZONTALEXTENT, nNewWidth, ByVal 0&)