Public MustOverride Sub PerformAction( _
   ByVal sender As Object _
) 

Dim instance As Action
Dim sender As Object
 
instance.PerformAction(sender)

public abstract void PerformAction( 
   object sender
)

public class ColorAction : FarPoint.Win.Spread.Action
{
       public override void PerformAction(object sender)
       {
              if (sender is FarPoint.Win.Spread.SpreadView)
              {
                     FarPoint.Win.Spread.SpreadView spread = (FarPoint.Win.Spread.SpreadView)sender;
                     FarPoint.Win.Spread.SheetView sheet = spread.Sheets[spread.ActiveSheetIndex];
                     sheet.Cells[sheet.ActiveRowIndex, sheet.ActiveColumnIndex].BackColor = Color.Red;
              }
       }
}

FarPoint.Win.Spread.InputMap im = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused);
FarPoint.Win.Spread.ActionMap am = fpSpread1.GetActionMap();
im.Put(new FarPoint.Win.Spread.Keystroke(Keys.OemMinus, Keys.None), "ColorAction");
am.Put("ColorAction", new ColorAction());

Public Class ColorAction
Inherits FarPoint.Win.Spread.Action

Public Overrides Sub PerformAction(ByVal sender As Object)
If TypeOf sender Is FarPoint.Win.Spread.SpreadView Then
Dim spread As FarPoint.Win.Spread.SpreadView = CType(sender, FarPoint.Win.Spread.SpreadView)
Dim sheet As FarPoint.Win.Spread.SheetView = spread.Sheets(spread.ActiveSheetIndex)
sheet.Cells(sheet.ActiveRowIndex, sheet.ActiveColumnIndex).BackColor = Color.Red
End If
End Sub
End Class

Dim im As FarPoint.Win.Spread.InputMap = FpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused)
Dim am As FarPoint.Win.Spread.ActionMap = FpSpread1.GetActionMap()
im.Put(New FarPoint.Win.Spread.Keystroke(Keys.OemMinus, Keys.None), "ColorAction")
am.Put("ColorAction", New ColorAction)