让VB应用程序支持鼠标滚轮

让VB应用程序支持鼠标滚轮(4) If Sgn(wzDelta) = 1 Then
   Form1.grdDataGrid.Scroll -1, 0
Else
                   Form1.grdDataGrid.Scroll 1, 0
                        End If
                    Else
              '垂直滚动grdDataGrid
                        If Sgn(wzDelta) = 1 Then
Form1.grdDataGrid.Scroll 0, 0 - WHEEL_SCROLL_LINES
                        Else
Form1.grdDataGrid.Scroll 0, WHEEL_SCROLL_LINES
                        End If
                    End If
                Else
   '鼠标不在grdDataGrid区域，滚动主数据库
                    With Form1.datPrimaryRS.Recordset
                        If Sgn(wzDelta) = 1 Then
                            If .BOF = False Then
                                .MovePrevious
                                If .BOF = True Then
                                    .MoveFirst
                                End If
                            End If
                        Else