FarPoint.Win.Spread.DrawingSpace.FourWayArrowShape sh = new FarPoint.Win.Spread.DrawingSpace.FourWayArrowShape();
sh.Name = "Arrow";
fpSpread1.ActiveSheet.AddShape(sh);
FarPoint.Win.Spread.DrawingSpace.PSShape ps;
ps = fpSpread1.ActiveSheet.GetShape("Arrow");
ps.AlphaBlendShadowColor = 150;
ps.BackColor = Color.Red;
ps.CanRenderText = true;
ps.DynamicMove = true;
ps.DynamicSize = true;
ps.ShadowColor = Color.Orange;
ps.ShadowDirection = FarPoint.Win.Spread.DrawingSpace.ShadowDirection.TopLeft;
ps.ShadowOffset = 5;
ps.ShadowOffsetX = 10;
ps.ShadowOffsetY = 10;
Dim sh As New FarPoint.Win.Spread.DrawingSpace.FourWayArrowShape
sh.Name = "Arrow"
FpSpread1.ActiveSheet.AddShape(sh)
Dim ps As FarPoint.Win.Spread.DrawingSpace.PSShape
ps = FpSpread1.ActiveSheet.GetShape("Arrow")
ps.AlphaBlendShadowColor = 150
ps.BackColor = Color.Red
ps.CanRenderText = True
ps.DynamicMove = True
ps.DynamicSize = True
ps.ShadowColor = Color.Orange
ps.ShadowDirection = DrawingSpace.ShadowDirection.TopLeft
ps.ShadowOffset = 5
ps.ShadowOffsetX = 10
ps.ShadowOffsetY = 10