WIN10 下 MSHFlexGrid关联鼠标滚轮无效

[ZYF818]

WIN10 下 MSHFlexGrid关联鼠标滚轮无效 在WIN7下可以 应该怎么修正

Public Function FlexScroll(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case wMsg
Case WM_MOUSEWHEEL
Select Case wParam
Case -7864320
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"

Case 7864320
SendKeys "{UP}"
SendKeys "{UP}"
SendKeys "{UP}"
End Select
End Select
FlexScroll = CallWindowProc(Oldwinproc, hWnd, wMsg, wParam, lParam)
End Function

[舉杯邀明月]

这个控件，应该有“TopRow”属性吧？　（大概是这个意思，也许具体名称不一样）
直接改变它“显示出的第1行”属性值，来达到相应目的。

[milaoshu1020]

改用vb.net就好了.

[ZYF818]

发现了 在调试下是不能用的，但生成EXE是可以的