Friend WithEvents model As FarPoint.Win.Spread.Model.BaseSheetStyleModel
model = FpSpread1.ActiveSheet.Models.Style
Dim h As FarPoint.Win.Spread.Model.SheetStyleModelEventHandler = AddressOf modelStyleModelChanged
AddHandler model.Changed, h
Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sInfo As New FarPoint.Win.Spread.StyleInfo
sInfo.BackColor = Color.Teal
model.AltRowCount = 2
model.SetDirectAltRowInfo(0, sInfo)
End Sub
Private Sub modelStyleModelChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.Model.SheetStyleModelEventArgs)
TextBox1.Text = e.ColumnCount.ToString()
End Sub