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.Win.Spread.Chart.SheetCellRange(FpSpread1.Sheets(0), 0, 0, 3, 3)
Dim cr As New FarPoint.Win.Spread.Model.CellRange(3, 0, 1, 3)
FpSpread1.Sheets(0).AddSquareSparkline(scr, cr, FarPoint.Win.Spread.SparklineType.Column, New FarPoint.Win.Spread.ExcelSparklineSetting(), False)
Dim esg As FarPoint.Win.Spread.ExcelSparklineGroup = DirectCast(FpSpread1.Sheets(0).SparklineContainer(0), FarPoint.Win.Spread.ExcelSparklineGroup)
ListBox1.Items.Add(esg.IsSwitchable())
esg.SwitchRowColumn()