Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load 'グラフィックを作成します 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(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.Shape = gpath '各属性を設定します pso.SetBounds(120, 10, 120, 120) pso.BackColor = Color.Red pso.AlphaBlendBackColor = 90 pso.ShadowColor = Color.Blue pso.AlphaBlendShadowColor = 90 pso.ShadowDirection = FarPoint.Win.Spread.DrawingSpace.ShadowDirection.Right pso.ShadowOffset = 5 FpSpread1.ActiveSheet.AddShape(pso)