Dim si AsNew FarPoint.Win.Spread.StyleInfo
Dim dlg As DialogResult
si.Formatter = New FarPoint.Win.Spread.CellType.CheckBoxCellType
FpSpread1.ActiveSheet.DefaultStyle = si
dlg = MessageBox.Show("Reset the formatter?")
If dlg = DialogResult.OK Then
si.ResetFormatter()
FpSpread1.ActiveSheet.DefaultStyle = si
EndIf