Private Sub Page_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load
If(Me.IsPostBack)Then Return
Dim dm As New FarPoint.Web.Spread.Model.DefaultSheetDataModel(8,8)
FpSpread1.ActiveSheetView.DataModel=dm
Dim i As Integer
For i=0 To 3
FpSpread1.ActiveSheetView.SetValue(i,0,i)
FpSpread1.ActiveSheetView.SetValue(i,1,i)
FpSpread1.ActiveSheetView.SetValue(i,2,i)
Next
dm.SetFormula(5,0,"SUM(A3:A4)")
dm.SetFormula(5,1,"SUM(B1:B2)")
dm.SetFormula(5,2,"SUM(C1:C3)")
ListBox1.Items.Add(dm.GetFormula(5,0).ToString())
ListBox1.Items.Add(dm.MaximumIterations.ToString())
ListBox1.Items.Add(dm.ReferenceStyle.ToString())
End Sub