FarPoint.Win.Spread.InputMap im;
im = fpSpread1.GetRootWorkbook.GetInputMapWhenShapeHasFocus();
FarPoint.Win.Spread.Keystroke k = new FarPoint.Win.Spread.Keystroke(Keys.Down, Keys.None);
im.Put(k, FarPoint.Win.Spread.SpreadActions.MoveShapeDown);
fpSpread1.GetRootWorkbook.SetInputMapWhenShapeHasFocus(im);
FarPoint.Win.Spread.DrawingSpace.ArrowShape arrow = new FarPoint.Win.Spread.DrawingSpace.ArrowShape();
arrow.Parent = fpSpread1;
arrow.SetBounds(10, 10, 30, 30);
fpSpread1.ActiveSheet.AddShape(arrow);
Dim im As FarPoint.Win.Spread.InputMap
im = fpSpread1.GetRootWorkbook.GetInputMapWhenShapeHasFocus()
Dim k As New FarPoint.Win.Spread.Keystroke(Keys.Down, Keys.None)
im.Put(k, FarPoint.Win.Spread.SpreadActions.MoveShapeDown)
fpSpread1.GetRootWorkbook.SetInputMapWhenShapeHasFocus(im)
Dim arrow As New FarPoint.Win.Spread.DrawingSpace.ArrowShape
arrow.Parent = fpSpread1
arrow.SetBounds(10, 10, 30, 30)
fpSpread1.ActiveSheet.AddShape(arrow)