FarPoint.Win.Spread.CellType.SliderCellType slider = new FarPoint.Win.Spread.CellType.SliderCellType();
slider.KnobColor = Color.Purple;
fpSpread1.ActiveSheet.Cells[0, 0].CellType = slider;
fpSpread1.ActiveSheet.Cells[0, 0].VisualStyles = FarPoint.Win.VisualStyles.Off;
FarPoint.Win.Spread.CellType.SliderCellType slider1 = new FarPoint.Win.Spread.CellType.SliderCellType(slider);
fpSpread1.ActiveSheet.Cells[0, 1].CellType = slider1;
fpSpread1.ActiveSheet.Cells[0, 1].VisualStyles = FarPoint.Win.VisualStyles.Off;
Dim slider As New FarPoint.Win.Spread.CellType.SliderCellType()
slider.KnobColor = Color.Purple
fpSpread1.ActiveSheet.Cells(0, 0).CellType = slider
fpSpread1.ActiveSheet.Cells(0, 0).VisualStyles = FarPoint.Win.VisualStyles.Off
Dim slider1 As New FarPoint.Win.Spread.CellType.SliderCellType(slider)
fpSpread1.ActiveSheet.Cells(0, 1).CellType = slider1
fpSpread1.ActiveSheet.Cells(0, 1).VisualStyles = FarPoint.Win.VisualStyles.Off