Public Property SelectionRenderer As ISelectionRenderer

Dim instance As FpSpread
Dim value As ISelectionRenderer
 
instance.SelectionRenderer = value
 
value = instance.SelectionRenderer

public ISelectionRenderer SelectionRenderer {get; set;}

public class SelectionRenderer : FarPoint.Win.Spread.ISelectionRenderer
{
     public void PaintSelection(Graphics g, int x, int y, int width, int height)
     {
          SolidBrush selectionBrush = new SolidBrush(Color.FromArgb(100, SystemColors.ControlDark));
          g.FillRectangle(selectionBrush, x, y, width, height);
          selectionBrush.Dispose();
     }
}

FarPoint.Win.Spread.FpSpread fpSpread1 = new FarPoint.Win.Spread.FpSpread();
FarPoint.Win.Spread.SheetView shv = new FarPoint.Win.Spread.SheetView();
SelectionRenderer sr = new SelectionRenderer();
fpSpread1.Location = new Point(10, 10);
fpSpread1.Height = 200;
fpSpread1.Width = 400;
Controls.Add(fpSpread1);
fpSpread1.Sheets.Add(shv);
fpSpread1.SelectionRenderer = sr;
fpSpread1.ActiveSheet.AddSelection(0, 0, 2, 2);

Public Class SelectionRenderer
Implements FarPoint.Win.Spread.ISelectionRenderer

Public Sub PaintSelection(ByVal g As Graphics, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height
As Integer) Implements FarPoint.Win.Spread.ISelectionRenderer.PaintSelection
     Dim selectionBrush As New SolidBrush(Color.FromArgb(100, SystemColors.ControlDark))
     g.FillRectangle(selectionBrush, x, y, width, height)
     selectionBrush.Dispose()
     End Sub
End Class

Dim fpSpread1 As New FarPoint.Win.Spread.FpSpread()
Dim shv As New FarPoint.Win.Spread.SheetView()
Dim sr As New SelectionRenderer()
fpSpread1.Location = New Point(10, 10)
fpSpread1.Height = 200
fpSpread1.Width = 400
Controls.Add(fpSpread1)
fpSpread1.Sheets.Add(shv)
fpSpread1.SelectionRenderer = sr
fpSpread1.ActiveSheet.AddSelection(0, 0, 2, 2)