Private Sub FpSpread1_MouseWheel(ByVal sender As Object, ByVal e As MouseEventArgs) Handles FpSpread1.MouseWheel
    If Control.ModifierKeys = Keys.Shift Then
        Dim spread As FarPoint.Win.Spread.FpSpread = CType(sender, FarPoint.Win.Spread.FpSpread)
        spread.SetViewportLeftColumn(0, spread.GetViewportLeftColumn(0) - (e.Delta / 120))
        CType(e, HandledMouseEventArgs).Handled = True
    End If
End Sub

다만 현재 사용하시는 9버전에서는 마우스 휠 + Shift 키 사용과 관련된 제한사항이 있어 해당 기능 구현이 어려운 상황입니다.

해당 사항은 15버전 서비스팩 2에서 개선되었으며, 15버전 서비스팩 2부 포함 그 이후 버전부터 좌우 스크롤 기능을 구현하여 적용하실 수 있습니다.

아래 링크를 통해 최신버전인 Spread.NET V17을 설치하여, 원하시는 기능을 테스트해보실 수 있습니다.

- Spread.NET 최신버전 체험판 신청하기

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim fpSpread1 As HorzWheelFpSpread = New HorzWheelFpSpread()
    fpSpread1.Dock = Dock.Fill
    fpSpread1.Name = "fpSpread1"
    fpSpread1.Sheets.Count = 2
    Me.Controls.Add(fpSpread1)
    fpSpread1.ActiveSheet.Cells(0, 0).Text = "FpSpread"
End Sub

Public Class HorzWheelFpSpread
    Inherits FarPoint.Win.Spread.FpSpread

    Public Sub New()
        MyBase.New()
    End Sub

    Protected Overrides Sub OnMouseWheel(ByVal e As MouseEventArgs)
        If Control.ModifierKeys = Keys.Shift Then
            SetViewportLeftColumn(0, GetViewportLeftColumn(0) - (e.Delta / 120))
        Else
            MyBase.OnMouseWheel(e)
        End If
    End Sub
End Class

감사합니다.

메시어스 드림