'カスタムフォーマッタクラス
Public Class MySpreadDataViewDataFormatter
    Implements ISpreadDataViewDataFormatter
    Private column As SpreadDataColumn
    Private m_sheetView As SheetView
    Public Property SheetView() As SheetView
        Get
            Return m_sheetView
        End Get
        Set
            m_sheetView = Value
        End Set
    End Property
    Public Sub New(ownerColumn As SpreadDataColumn, sheetView As SheetView)
        If ownerColumn Is Nothing Then
            Throw New ArgumentNullException("ownerColumn")
        End If
        column = ownerColumn
        Me.SheetView = sheetView
    End Sub
    Public Function GetCellValue(cell As FarPoint.Win.Spread.Cell) As Object Implements ISpreadDataViewDataFormatter.GetCellValue
        Dim ret As Object = Nothing
        Try
            ret = Me.SheetView.GetValue(cell.Row.Index, cell.Column.Index)
            ret += ": Customized format"
        Catch
            ret = " No value"
        End Try
        Return ret
    End Function
    Public Sub SetCellValue(cell As FarPoint.Win.Spread.Cell, value As Object) Implements ISpreadDataViewDataFormatter.SetCellValue
        Me.SheetView.SetValue(cell.Row.Index, cell.Column.Index, value + ": Customized format")
    End Sub
End Class
'フォームのコードビハインド
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'データソースの作成
    Dim DT As New DataTable()
    Dim DSt As New DataSet()
    DT = DSt.Tables.Add("SampleTable")
    DT.Columns.AddRange(New DataColumn() {
                            New DataColumn("ID", System.Type.[GetType]("System.Int32")),
                            New DataColumn("Text", System.Type.[GetType]("System.String")),
                            New DataColumn("Check", System.Type.[GetType]("System.Boolean"))
                        })
    DT.Rows.Add(New Object() {10, "Web", True})
    DT.Rows.Add(New Object() {20, "Win", False})
    FpSpread1.DataSource = DSt
    'SPREADセル範囲をDataGridViewに連結
    Dim spreadDataView As FarPoint.Win.Spread.Data.SpreadDataView = Nothing
    spreadDataView = New FarPoint.Win.Spread.Data.SpreadDataView(FpSpread1, "Sheet1")
    Dim mapper As New FarPoint.Win.Spread.Data.DefaultSpreadDataViewMapper()
    Dim type As Type = Nothing
    Dim c As Integer = 0
    Dim r As Integer = 0
    Dim value As Object = Nothing
    For c = 0 To FpSpread1_Sheet1.ColumnCount - 1
        type = Nothing
        For r = 0 To FpSpread1.ActiveSheet.RowCount - 1
            value = FpSpread1.ActiveSheet.GetValue(r, c)
            If type Is Nothing And (value IsNot Nothing) Then
                type = value.[GetType]()
            ElseIf (type IsNot Nothing) AndAlso (value IsNot Nothing) AndAlso Not type.Equals(value.[GetType]()) Then
                type = GetType(String)
                Exit For
            End If
        Next
        If type Is Nothing Then
            type = GetType(String)
        End If
        Dim scol As FarPoint.Win.Spread.Data.SpreadDataColumn = Nothing
        scol = New FarPoint.Win.Spread.Data.SpreadDataColumn(FpSpread1.ActiveSheet.GetColumnLabel(0, c), type)
        spreadDataView.Columns.Add(scol)
    Next
    mapper.CellRange = New FarPoint.Win.Spread.Model.CellRange(0, 0, 1, FpSpread1_Sheet1.ColumnCount)
    spreadDataView.Mapper = mapper
    Dim testFormatter As New MySpreadDataViewDataFormatter(spreadDataView.Columns(2), FpSpread1.ActiveSheet)
    spreadDataView.Columns(1).Formatter = testFormatter
    DataGridView1.DataSource = spreadDataView
End Sub