Private Sub Page_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load
If(IsPostBack)Then Return
Dim cr As FarPoint.Web.Spread.Model.CellRange
Dim b1 As Boolean
Dim ien As System.Collections.IEnumerator
FpSpread1.ActiveSheetView.ColumnCount=10
FpSpread1.ActiveSheetView.RowCount=10
Dim model As FarPoint.Web.Spread.Model.DefaultSheetSpanModel=FpSpread1.ActiveSheetView.SpanModel
model.Add(0,0,2,1)
model.Add(0,2,3,2)
ien=model.GetEnumerator()
b1=ien.MoveNext()
While(b1)
cr=CType(ien.Current,FarPoint.Web.Spread.Model.CellRange)
ListBox1.Items.Add(cr.ToString())
b1=ien.MoveNext
End While
End Sub