vb6鼠标滚轮支持控件

把这个控件添加到窗口上，你的vb6程序就具有了滚轮支持能力； 目前只支持控件：msflexgrid、 hscrollbar、vscrollbar 附上源码，有需要的可以自己扩充 优点：不会导致程序崩溃；而采用子类化的方式实现鼠标滚轮容易导致程序崩溃， 调用方法示例： Private Sub flgNotFinished_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 4 Then udfMouseScroll.sub_setFocus Me.flgNotFinished End Sub