listbox水平滚动条.bas

vb开发的公交查询系统

Attribute VB_Name = "Module0"



'添加ListBox的水平滚动条

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const LB_SETHORIZONTALEXTENT = &H194