水晶报表如何响应鼠标滚轮
求助：在浏览报表时，如何使得报表响应滚轮事件，我是这样写的：
Private Sub CRV_17_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CRV_17.MouseWheel
If e.Delta > 0 Then '表示向上
SendMessage(CRV_17.Handle.ToInt32, 273, 0, 0) '向上
SendMessage(CRV_17.Handle.ToInt32, 273, 0, 0) '向上
SendMessage(CRV_17.Handle.ToInt32, 273, 0, 0) '向上
SendMessage(CRV_17.Handle.ToInt32, 273, 0, 0) '向上
SendMessage(CRV_17.Handle.ToInt32, 273, 0, 0) '向上
Else
SendMessage(CRV_17.Handle.ToInt32, 273, 3, 0) '向下
End If
End Sub
CRV_17是报表浏览器，为什么这个不行
不知道还有没有别的办法
