为何下边这段代码不行呢?
Private Declare Function GetWindowLong Lib "USER32.DLL" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "USER32.DLL" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal lNewLong As Long) As Long
Const WS_HSCROLL = &H100000
Const WS_VSCROLL = &H200000
Const GWL_STYLE = -16
Private Sub Command1_Click()
Dim dwStyle As Long
Dim hHwnd As Long
hHwnd = List1.hWnd
dwStyle = GetWindowLong(hHwnd, GWL_STYLE)
Debug.Print dwStyle
dwStyle = dwStyle Or not WS_VSCROLL
SetWindowLong hHwnd, GWL_STYLE, dwStyle
End Sub