FarPoint.Win.Spread.DrawingSpace.FivePointStarShape fps = new FarPoint.Win.Spread.DrawingSpace.FivePointStarShape();
fps.Parent = fpSpread1;
fps.BackColor = Color.Red;
fps.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth;
fps.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical;
fps.Anchor = 40;
fps.SetBounds(25, 25, 50, 50);
fpSpread1.ActiveSheet.AddShape(fps);
Dim fps As New FarPoint.Win.Spread.DrawingSpace.FivePointStarShape
fps.Parent = FpSpread1
fps.BackColor = Color.Red
fps.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth
fps.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical
fps.Anchor = 40
fps.SetBounds(25, 25, 50, 50)
FpSpread1.ActiveSheet.AddShape(fps)