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)