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