Public Function Clone() As Object

Dim instance As ExcelSparklineSetting
Dim value As Object
 
value = instance.Clone()

public object Clone()

FarPoint.Web.Spread.ExcelSparklineSetting eSetting = new FarPoint.Web.Spread.ExcelSparklineSetting();
eSetting.ShowMarkers = true;
eSetting.AxisColor = Color.Cyan;
eSetting.DisplayEmptyCellsAs = FarPoint.Web.Spread.Chart.EmptyValueStyle.Gaps;
eSetting.DisplayHidden = true;
eSetting.DisplayXAxis = true;
eSetting.FirstMarkerColor = Color.AliceBlue;
eSetting.Formula = "Sheet1!$A$4:$E$4";
eSetting.HighMarkerColor = Color.Honeydew;
eSetting.LastMarkerColor = Color.Lavender;
eSetting.LineWeight = 2;
eSetting.LowMarkerColor = Color.LawnGreen;
eSetting.ManualMax = 3;
eSetting.ManualMin = 1;
eSetting.MarkersColor = Color.Magenta;
eSetting.MaxAxisType = FarPoint.Web.Spread.SparklineAxisMinMax.Custom;
eSetting.MinAxisType = FarPoint.Web.Spread.SparklineAxisMinMax.Individual;
eSetting.NegativeColor = Color.NavajoWhite;
eSetting.RightToLeft = true;
eSetting.SeriesColor = Color.SeaGreen;
eSetting.ShowFirst = true;
eSetting.ShowHigh = true;
eSetting.ShowLast = true;
eSetting.ShowLow = true;
eSetting.ShowNegative = true;
            
FarPoint.Web.Spread.ExcelSparklineSetting ess = eSetting;
FarPoint.Web.Spread.ExcelSparklineSetting ess1 = (FarPoint.Web.Spread.ExcelSparklineSetting)ess.Clone();

Dim eSetting As New FarPoint.Web.Spread.ExcelSparklineSetting()
eSetting.ShowMarkers = True
eSetting.AxisColor = Color.Cyan
eSetting.DisplayEmptyCellsAs = FarPoint.Web.Spread.Chart.EmptyValueStyle.Gaps
eSetting.DisplayHidden = True
eSetting.DisplayXAxis = True
eSetting.FirstMarkerColor = Color.AliceBlue
eSetting.Formula = "Sheet1!$A$4:$E$4"
eSetting.HighMarkerColor = Color.Honeydew
eSetting.LastMarkerColor = Color.Lavender
eSetting.LineWeight = 2
eSetting.LowMarkerColor = Color.LawnGreen
eSetting.ManualMax = 3
eSetting.ManualMin = 1
eSetting.MarkersColor = Color.Magenta
eSetting.MaxAxisType = FarPoint.Web.Spread.SparklineAxisMinMax.[Custom]
eSetting.MinAxisType = FarPoint.Web.Spread.SparklineAxisMinMax.Individual
eSetting.NegativeColor = Color.NavajoWhite
eSetting.RightToLeft = True
eSetting.SeriesColor = Color.SeaGreen
eSetting.ShowFirst = True
eSetting.ShowHigh = True
eSetting.ShowLast = True
eSetting.ShowLow = True
eSetting.ShowNegative = True

Dim ess As FarPoint.Web.Spread.ExcelSparklineSetting = eSetting
Dim ess1 As FarPoint.Web.Spread.ExcelSparklineSetting = DirectCast(ess.Clone(), FarPoint.Web.Spread.ExcelSparklineSetting)