<Serializable()> Public Class bcType
    Inherits FarPoint.Web.Spread.BaseCellType

    Public Overrides Function Format(ByVal o As Object) As String
        Return MyBase.Format(o)
    End Function

    Public Overrides Function GetEditorValue(ByVal owner As Control, ByVal id As String) As Object
        Return MyBase.GetEditorValue(owner, id)
    End Function

    Public Overrides Function GetValidator() As BaseValidator
        Return MyBase.GetValidator
    End Function

    Public Overrides Function PaintCell(ByVal id As String, ByVal parent As TableCell, ByVal style As FarPoint.Web.Spread.Appearance, ByVal margin As FarPoint.Web.Spread.Inset, ByVal val As Object, ByVal ul As Boolean) As System.Web.UI.Control
        ApplyStyleTo(parent, style, margin, True)
        Dim p As New System.Web.UI.WebControls.Panel()
        p.Controls.Add(New LiteralControl("Double-Click"))
        p.BackColor = System.Drawing.Color.Red
        p.BorderStyle = BorderStyle.Solid
        p.BorderColor = System.Drawing.Color.Black
        Return p
    End Function

    Public Overrides Function Parse(ByVal s As String) As Object
        Return MyBase.Parse(s)
    End Function

    Public Overrides Function ValidateEditorValue(ByVal val As Object, ByRef reason As String) As Boolean
        Return MyBase.ValidateEditorValue(Val, reason)
    End Function

    Public Overrides ReadOnly Property EditorClientScriptUrl() As String
        Get
            Return "MyEditorScript.htc"
        End Get
    End Property

    Public Overrides ReadOnly Property RendererClientScriptUrl() As String
        Get
            Return "MyRenderScript.htc"
        End Get
    End Property

    Public Overrides Function GetEditorControl(ByVal id As String, ByVal tc As TableCell, ByVal style As FarPoint.Web.Spread.Appearance, ByVal margin As FarPoint.Web.Spread.Inset, ByVal v As Object, ByVal ul As Boolean) As System.Web.UI.Control
        Dim val As String = Nothing
        Dim val1 As String = ""
        Dim val2 As String = ""
        Dim val3 As String = ""
        Dim u As New System.Web.UI.WebControls.Unit(0)

        While Not v = Nothing
            val = v.ToString()
            Dim colors() As String = val.ToString().Split(",", 3)
            If colors.Length = 3 Then
                val1 = colors(0).Trim()
                val2 = colors(1).Trim()
                val3 = colors(2).Trim()
            End If
        End While

        Dim table As New Table()
        table.CellPadding = 0
        table.CellSpacing = 0
        table.BorderWidth = u

        Dim row As New TableRow()
        table.Rows.Add(row)

        Dim tb As New TextBox()
        tb.Text = val1
        tb.Columns = 3

        If ul Then
            tb.Attributes.Add("MyEditorComp", "Red")
        End If
        While Not id = Nothing
            tb.ID = id + "c1"
        End While

        Dim cell As New TableCell()
        row.Cells.Add(cell)
        cell.Controls.Add(tb)

        tb = New TextBox()
        tb.Text = val2
        tb.Columns = 3
        If ul Then
            tb.Attributes.Add("MyEditorComp", "Green")
        End If

        While Not id = Nothing
            tb.ID = id + "c2"
        End While

        cell = New TableCell()
        row.Cells.Add(cell)
        cell.Controls.Add(tb)

        tb = New TextBox()
        tb.Text = val3
        tb.Columns = 3
        If ul Then
            tb.Attributes.Add("MyEditorComp", "Blue")
        End If

        While Not id = Nothing
            tb.ID = id + "c3"
        End While

        cell = New TableCell()
        row.Cells.Add(cell)
        cell.Controls.Add(tb)

        Return table

    End Function
End Class

Private Sub Page_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load
Dim cell As New bcType()
FpSpread1.ActiveSheetView.Cells(0,0).CellType=cell
FpSpread1.ActiveSheetView.Columns(0).Width=130
FpSpread1.ActiveSheetView.Rows(0).Height=40
End Sub