Dim dt As New DataTable("Testing")
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
dataModel.SetModelDataColumn(0, 1)
dataModel.SetModelDataColumn(1, 0)