fpSpread1.Sheets.Count = 2;
fpSpread1.Sheets[0].Cells[0, 0].BackColor = Color.Crimson;
FarPoint.Win.Spread.InputMap im;
im = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused);
im.Put(new FarPoint.Win.Spread.Keystroke(Keys.C, Keys.Control), FarPoint.Win.Spread.SpreadActions.ClipboardCopyActiveSheet);
FarPoint.Win.Spread.InputMap paste;
paste = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused);
paste.Put(new FarPoint.Win.Spread.Keystroke(Keys.F, Keys.Control), FarPoint.Win.Spread.SpreadActions.ClipboardPasteSheet);
fpSpread1.Sheets.Count = 2
fpSpread1.Sheets(0).Cells(0, 0).BackColor = Color.Crimson
Dim imcopy As FarPoint.Win.Spread.InputMap
imcopy = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused)
imcopy.Put(New FarPoint.Win.Spread.Keystroke(Keys.C, Keys.Control), FarPoint.Win.Spread.SpreadActions.ClipboardCopyActiveSheet)
Dim paste As FarPoint.Win.Spread.InputMap
paste = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused)
paste.Put(New FarPoint.Win.Spread.Keystroke(Keys.F, Keys.Control), FarPoint.Win.Spread.SpreadActions.ClipboardPasteSheet)