FarPoint.Win.Spread.DrawingSpace.PSGradient g = new FarPoint.Win.Spread.DrawingSpace.PSGradient();
g.Name = "custom";
g.Style = FarPoint.Win.Spread.DrawingSpace.GradientStyle.RadialIntoCenter;
g.Sections[0].Color = Color.Navy;
g.Sections[0].AlphaBlend = 128;
g.Sections[1].Color = Color.Magenta;
g.Sections[1].AlphaBlend = 255;
FarPoint.Win.Spread.DrawingSpace.ArrowShape arrow = new FarPoint.Win.Spread.DrawingSpace.ArrowShape(fpSpread1);
arrow.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth;
arrow.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical;
arrow.Anchor = 20;
arrow.SetBounds(15, 15, 50, 50);
arrow.Gradient = g;
fpSpread1.ActiveSheet.AddShape(arrow);
DialogResult dlg;
dlg = MessageBox.Show("Do you want to reset the gradient style??", "ResetGradient", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
g.ResetStyle()
}
Dim g As New FarPoint.Win.Spread.DrawingSpace.PSGradient
g.Name = "custom"
g.Style = FarPoint.Win.Spread.DrawingSpace.GradientStyle.RadialIntoCenter
g.Sections(0).Color = Color.Navy
g.Sections(0).AlphaBlend = 128
g.Sections(1).Color = Color.Magenta
g.Sections(1).AlphaBlend = 255
Dim arrow As New FarPoint.Win.Spread.DrawingSpace.ArrowShape(FpSpread1)
arrow.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth
arrow.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical
arrow.Anchor = 20
arrow.SetBounds(15, 15, 50, 50)
arrow.Gradient = g
FpSpread1.ActiveSheet.AddShape(arrow)
Dim dlg As DialogResult
dlg = MessageBox.Show("Do you want to reset the gradient style??", "ResetGradient", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
g.ResetStyle()
End If