System.Drawing.Point[] pts = {new System.Drawing.Point(25, 0),
new System.Drawing.Point(0, 50),
new System.Drawing.Point(20, 50),
new System.Drawing.Point((int)2.5, 100),
new System.Drawing.Point(40, 40),
new System.Drawing.Point(20, 40),
new System.Drawing.Point(40, 0),
new System.Drawing.Point(25, 0)};
System.Drawing.Drawing2D.GraphicsPath gpath = new System.Drawing.Drawing2D.GraphicsPath();
gpath.AddPolygon(pts);
FarPoint.Win.Spread.DrawingSpace.PSObject pso = new FarPoint.Win.Spread.DrawingSpace.CustomShape();
pso.BackColor = Color.Black;
pso.AlphaBlendBackColor = 90;
pso.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical;
pso.CanRotate = true;
pso.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth;
pso.Shape = gpath;
pso.SetBounds(250, 250, 120, 120);
fpSpread1.ActiveSheet.AddShape(pso, true);
FarPoint.Win.Elements elem;
elem = pso.ContainedObjects;
MessageBox.Show(elem.Count.ToString());
Dim pts As System.Drawing.Point() = {New System.Drawing.Point(25, 0), _
New System.Drawing.Point(0, 50), _
New System.Drawing.Point(20, 50), _
New System.Drawing.Point(2.5, 100), _
New System.Drawing.Point(40, 40), _
New System.Drawing.Point(20, 40), _
New System.Drawing.Point(40, 0), _
New System.Drawing.Point(25, 0)}
Dim gpath As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath
gpath.AddPolygon(pts)
Dim pso As New FarPoint.Win.Spread.DrawingSpace.CustomShape
pso.BackColor = Color.Black
pso.AlphaBlendBackColor = 90
pso.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical
pso.CanRotate = True
pso.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth
pso.Shape = gpath
pso.SetBounds(250, 250, 120, 120)
FpSpread1.ActiveSheet.AddShape(pso, True)
Dim elem As FarPoint.Win.Elements
elem = pso.ContainedObjects
MsgBox(elem.Count.ToString())