Dim dt As New DataTable("Testing")
Dim b As Boolean
dt.Columns.Add("Number")
dt.Columns.Add("Letter")
dt.Rows.Add(New Object() {"1", "One"})
dt.Rows.Add(New Object() {"2", "Two"})
Dim dataModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel(dt)
FpSpread1.ActiveSheet.Models.Data = dataModel
b = dataModel.IsEditable(0, 0)
ListBox1.Items.Add(b.ToString())