Public Class Form1
　　Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
　　　　Dim fs As FarPoint.Win.Spread.Model.ICustomFunctionSupport = DirectCast(FpSpread1.ActiveSheet.Models.Data, FarPoint.Win.Spread.Model.ICustomFunctionSupport)
　　　　fs.AddCustomFunction(New MySumFunction())

　　End Sub
End Class
' FunctionInfoクラスを継承したサブクラスを作成

Public Class MySumFunction
　　Inherits FarPoint.CalcEngine.FunctionInfo
　　Public Overrides Function Evaluate(args As Object()) As Object
　　　　Dim cr As FarPoint.CalcEngine.CalcReference
　　　　Dim total As Double = 0

　　　　If TypeOf args(0) Is FarPoint.CalcEngine.CalcReference Then

　　　　　　' 引数args[0]より範囲を取得
　　　　　　cr = DirectCast(args(0), FarPoint.CalcEngine.CalcReference)
　　　　　　For r As Integer = cr.Row To (cr.Row + cr.RowCount) - 1
　　　　　　　　For c As Integer = cr.Column To (cr.Column + cr.ColumnCount) - 1
　　　　　　　　　　' 範囲内の値を加算
　　　　　　　　　　total += FarPoint.CalcEngine.CalcConvert.ToDouble(cr.GetValue(r, c))
　　　　　　　　Next
　　　　　　Next

　　　　　　' 計算結果
　　　　　　Return total
　　　　Else
　　　　　　Return FarPoint.CalcEngine.CalcError.Value
　　　　End If
　　End Function

　　Public Overrides ReadOnly Property MaxArgs() As Integer
　　　　Get
　　　　　　Return 1
　　　　End Get
　　End Property

　　Public Overrides ReadOnly Property MinArgs() As Integer
　　　　Get
　　　　　　Return 1
　　　　End Get
　　End Property

　　Public Overrides ReadOnly Property Name() As String
　　　　Get
　　　　　　Return "MySumFunction"
　　　　End Get
　　End Property

　　Public Overrides Function AcceptsReference(i As Integer) As Boolean
　　　　Return True
　　End Function
End Class