Public Overrides Function GetEditorControl( _
   ByVal id As String, _
   ByVal parent As TableCell, _
   ByVal style As Appearance, _
   ByVal margin As Inset, _
   ByVal value As Object, _
   ByVal upperLevel As Boolean _
) As Control

Dim instance As ButtonCellType
Dim id As String
Dim parent As TableCell
Dim style As Appearance
Dim margin As Inset
Dim value As Object
Dim upperLevel As Boolean
Dim value As Control
 
value = instance.GetEditorControl(id, parent, style, margin, value, upperLevel)

public override Control GetEditorControl( 
   string id,
   TableCell parent,
   Appearance style,
   Inset margin,
   object value,
   bool upperLevel
)

[Serializable()]
class btnType:FarPoint.Web.Spread.ButtonCellType
{
public override ControlGetEditorControl(string id,TableCell parent,FarPoint.Web.Spread.Appearance style,FarPoint.Web.Spread.Inse tmargin,object v,bool ul)
{
return Base.GetEditorControl(id,parent,style,margin,v,ul);
}

public override ControlPaintCell(string id,TableCell parent,FarPoint.Web.Spread.Appearance style,FarPoint.Web.Spread.Inset margin,object v,bool ul)
{
return Base.PaintCell(id,parent,style,margin,v,ul);
}
}

private void Page_Load(object sender,System.EventArgs e)
{
btnType mybtn=new btnType();
FpSpread1.ActiveSheetView.Cells[0,0].CellType=mybtn;
}

<Serializable()>
Public ClassbtnType
Inherits FarPoint.Web.Spread.ButtonCellType

Public Overrides Function GetEditorControl(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
Return MyBase.GetEditorControl(id,parent,style,margin,val,ul)
End Function

Public Overrides FunctionPaintCell(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
Return MyBase.PaintCell(id,parent,style,margin,val,ul)
End Function

End Class

Private Sub Page_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load
Dim mybtn As New btnType()
FpSpread1.ActiveSheetView.Cells(0,0).CellType=mybtn
End Sub