FarPoint.Win.Spread.Model.DefaultSheetDataModel dataModel = (FarPoint.Win.Spread.Model.DefaultSheetDataModel)fpSpread1.Sheets[0].Models.Data;
fpSpread1.Sheets[0].Cells[1, 1].Formula = "C1+D1";
fpSpread1.Sheets[0].Cells[0, 3].Value = 2;
dataModel.GoalSeek(0, 2, dataModel, 1, 1, 32);
Dim dataModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel(5, 5)
fpSpread1.ActiveSheet.Models.Data = dataModel
fpSpread1.Sheets(0).Cells(1, 1).Formula = "C1+D1"
fpSpread1.Sheets(0).Cells(0, 3).Value = 2
dataModel.GoalSeek(0, 2, dataModel, 1, 1, 32)