FpSpread1.Sheets(0).RowCount = 10
FpSpread1.Sheets(0).ColumnCount = 10
FpSpread1.Sheets(0).SetClip(0, 0, 1, 5, "1" + Chr(9) + "2" + Chr(9) + "3" + Chr(9) + "4" + Chr(9) + "5")
FpSpread1.Sheets(0).SetClip(1, 0, 1, 5, "5" + Chr(9) + "4" + Chr(9) + "3" + Chr(9) + "2" + Chr(9) + "1")
FpSpread1.Sheets(0).SetClip(2, 0, 1, 5, "1" + Chr(9) + "2" + Chr(9) + "3" + Chr(9) + "2" + Chr(9) + "1")
Dim es As New FarPoint.Web.Spread.ExcelSparkline(0, 6, FpSpread1.Sheets(0), New FarPoint.Web.Spread.Model.CellRange(0, 0, 1, 5))
Dim es1 As New FarPoint.Web.Spread.ExcelSparkline(1, 6, FpSpread1.Sheets(0), New FarPoint.Web.Spread.Model.CellRange(1, 0, 1, 5))
Dim es2 As New FarPoint.Web.Spread.ExcelSparkline(2, 6, FpSpread1.Sheets(0), New FarPoint.Web.Spread.Model.CellRange(2, 0, 1, 5))
Dim esg As New FarPoint.Web.Spread.ExcelSparklineGroup(New FarPoint.Web.Spread.ExcelSparklineSetting(), FarPoint.Web.Spread.SparklineType.Column)
esg.Add(es)
esg.Add(es1)
esg.Add(es2)
FpSpread1.Sheets(0).SparklineContainer.Add(esg)
Dim ea As FarPoint.Web.Spread.ExcelSparklineGroup = DirectCast(FpSpread1.ActiveSheet.SparklineContainer(0), FarPoint.Web.Spread.ExcelSparklineGroup)
ListBox1.Items.Add(ea.IsReadOnly.ToString)
ListBox1.Items.Add(ea.Renderer.ToString())
ListBox1.Items.Add(ea.ReferenceError.ToString())
ListBox1.Items.Add(ea.IsSwitchable.ToString())