FpSpread1.Sheets(0).RowCount = 10
FpSpread1.Sheets(0).ColumnCount = 10
For i As Integer = 0 To 2
For j As Integer = 0 To 2
FpSpread1.Sheets(0).Cells(i, j).Value = j
Next
Next
Dim scr As New FarPoint.Web.Spread.Chart.SheetCellRange(FpSpread1.Sheets(0), 0, 0, 3, 3)
Dim cr As New FarPoint.Web.Spread.Model.CellRange(3, 0, 1, 3)
FpSpread1.Sheets(0).AddSquareSparkline(scr, cr, FarPoint.Web.Spread.SparklineType.Column, New FarPoint.Web.Spread.ExcelSparklineSetting(), False)
Dim esg As FarPoint.Web.Spread.ExcelSparklineGroup = DirectCast(FpSpread1.Sheets(0).SparklineContainer(0), FarPoint.Web.Spread.ExcelSparklineGroup)
ListBox1.Items.Add(esg.IsSwitchable())
esg.SwitchRowColumn()