FpSpread1.ActiveSheetView.RowCount = 30;
FpSpread1.ActiveSheetView.ColumnCount = 10;
FpSpread1.ActiveSheetView.Cells[0, 1].Text = "Test Score";
FpSpread1.ActiveSheetView.SetClipValue(1, 0, 13, 1, "Class1\r\nClass1\r\nClass2\r\nClass2\r\nClass3\r\nClass2\r\nClass3\r\nClass2\r\nClass3\r\nClass2\r\nClass2\r\nClass3");
FpSpread1.ActiveSheetView.SetClipValue(1, 1, 13, 1, "20\r\n35\r\n40\r\n55\r\n80\r\n60\r\n61\r\n85\r\n60\r\n60\r\n64\r\n75");
FpSpread1.ActiveSheetView.AddChart(new FarPoint.Web.Spread.Model.CellRange(0, 0, 13, 2), typeof(FarPoint.Web.Chart.ParetoSeries), 400, 300, 150, 0);
FarPoint.Web.Chart.ParetoSeries s = (FarPoint.Web.Chart.ParetoSeries)FpSpread1.ActiveSheetView.Charts[0].Model.PlotAreas[0].Series[0];
s.BinOption.BinSize = 29;
FpSpread1.ActiveSheetView.RowCount = 30
FpSpread1.ActiveSheetView.PageSize = 30
FpSpread1.ActiveSheetView.ColumnCount = 10
FpSpread1.ActiveSheetView.Cells(0, 1).Text = "Test Score"
FpSpread1.ActiveSheetView.SetClipValue(1, 0, 13, 1, "Class1" & vbCr & vbLf & "Class1" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3")
FpSpread1.ActiveSheetView.SetClipValue(1, 1, 13, 1, "20" & vbCr & vbLf & "35" & vbCr & vbLf & "40" & vbCr & vbLf & "55" & vbCr & vbLf & "80" & vbCr & vbLf & "60" & vbCr & vbLf & "61" & vbCr & vbLf & "85" & vbCr & vbLf & "60" & vbCr & vbLf & "60" & vbCr & vbLf & "64" & vbCr & vbLf & "75")
FpSpread1.ActiveSheetView.AddChart(New FarPoint.Web.Spread.Model.CellRange(0, 0, 13, 2), GetType(FarPoint.Web.Chart.ParetoSeries), 400, 300, 150, 0)
Dim s As FarPoint.Web.Chart.ParetoSeries = FpSpread1.ActiveSheetView.Charts(0).Model.PlotAreas(0).Series(0)
s.BinOption.BinSize = 29