Public Class Form1

　　Private spread As CustomSpread

　　Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
　　　　' 独自のSPREADの作成
　　　　spread = New CustomSpread()
　　　　spread.Dock = DockStyle.Fill
　　　　spread.Sheets.Add(New FarPoint.Win.Spread.SheetView())
　　　　Me.Controls.Add(spread)
　　End Sub
End Class

' 独自のSPREAD
Public Class CustomSpread
　　Inherits FarPoint.Win.Spread.FpSpread

　　Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
　　　　' マウスホイール操作の場合
　　　　Const WM_MOUSEWHEEL As Integer = &H20A
　　　　If m.Msg = WM_MOUSEWHEEL Then
　　　　　　' 既定のマウスホイール操作のキャンセル
　　　　　　m.Msg = 0
　　　　End If

　　　　' 既定の動作の実行
　　　　MyBase.WndProc(m)
　　End Sub
End Class

public partial class Form1 : Form
{

　　private CustomSpread spread;

　　private void Form1_Load(object sender, EventArgs e)
　　{
　　　　// 独自のSPREADの作成
　　　　spread = new CustomSpread();
　　　　spread.Dock = DockStyle.Fill;
　　　　spread.Sheets.Add(new FarPoint.Win.Spread.SheetView());
　　　　this.Controls.Add(spread);
　　}
}

// 独自のSPREAD
public class CustomSpread : FarPoint.Win.Spread.FpSpread
{
　　protected override void WndProc(ref Message m)
　　{
　　　　// マウスホイール操作の場合
　　　　const Int32 WM_MOUSEWHEEL = 0x20A;
　　　　if (m.Msg == WM_MOUSEWHEEL)
　　　　{
　　　　　　// 既定のマウスホイール操作のキャンセル
　　　　　　m.Msg = 0;
　　　　}

　　　　// 既定の動作の実行
　　　　base.WndProc(ref m);
　　}
}