Dim si AsNew FarPoint.Win.Spread.StyleInfo
Dim dlg As DialogResult
si.Font = New Font("Comic Sans MS", 12)
FpSpread1.ActiveSheet.DefaultStyle = si
dlg = MessageBox.Show("Reset the font?")
If dlg = DialogResult.OK Then
si.ResetFont()
FpSpread1.ActiveSheet.DefaultStyle = si
EndIf