FarPoint.Win.Spread.DrawingSpace.RectangleShape rs = new FarPoint.Win.Spread.DrawingSpace.RectangleShape();
rs.BackColor = Color.Red;
rs.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth;
rs.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical;
rs.Anchor = 20;
rs.SetBounds(15, 15, 50, 50);
fpSpread1.ActiveSheet.AddShape(rs, true);
Dim rs As New FarPoint.Win.Spread.DrawingSpace.RectangleShape()
rs.BackColor = Color.Red
rs.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth
rs.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical
rs.Anchor = 20
rs.SetBounds(15, 15, 50, 50)
FpSpread1.ActiveSheet.AddShape(rs)