public class eb : FarPoint.Win.Spread.CellType.EditBaseCellType
{

public eb()
{
}

public new FarPoint.Win.SuperEdit.AcceptsArrowKeys AcceptsArrowKeys
{
   get
   {
      return base.AcceptsArrowKeys;
   }
   set
   {
      base.AcceptsArrowKeys = FarPoint.Win.SuperEdit.AcceptsArrowKeys.None;
   }
}
public new FarPoint.Win.Picture BackgroundImage
{
   get
   {
      return base.BackgroundImage;
   }
   set
   {
      base.BackgroundImage = new FarPoint.Win.Picture(Image.FromFile(Application.StartupPath + "\\Trffc14.ico"));
   }
}
}

eb ed = new eb();
ed.BackgroundImage = null;
ed.AcceptsArrowKeys = FarPoint.Win.SuperEdit.AcceptsArrowKeys.None;
FarPoint.Win.Spread.CellType.EditBaseCellType editor = new FarPoint.Win.Spread.CellType.EditBaseCellType(ed);
fpSpread1.ActiveSheet.Cells[0, 0].CellType = editor;
label1.Text = "The first cell is based on a subclassed EditBaseCellType.  Type something in the first cell and try "+
"to use the arrow keys.  They won't navigate in the cell.";

Public Class eb
Inherits FarPoint.Win.Spread.CellType.EditBaseCellType

Public Sub eb()

End Sub

Public Shadows Property AcceptsArrowKeys() As FarPoint.Win.SuperEdit.AcceptsArrowKeys
   Get
   Return MyBase.AcceptsArrowKeys
   End Get
   Set(ByVal Value As FarPoint.Win.SuperEdit.AcceptsArrowKeys)
   MyBase.AcceptsArrowKeys = FarPoint.Win.SuperEdit.AcceptsArrowKeys.None
   End Set
End Property

Public Shadows Property BackgroundImage() As FarPoint.Win.Picture
   Get
   Return MyBase.BackgroundImage
   End Get
   Set(ByVal Value As FarPoint.Win.Picture)
   MyBase.BackgroundImage = New FarPoint.Win.Picture(Image.FromFile(Application.StartupPath & "\Trffc14.ico"))
   End Set
End Property

End Class

Dim ed As New eb()
ed.BackgroundImage = Nothing
ed.AcceptsArrowKeys = Nothing
Dim editor As New FarPoint.Win.Spread.CellType.EditBaseCellType(ed)
FpSpread1.ActiveSheet.Cells(0, 0).CellType = editor