Dim ds As New DataSet()
Dim emp As New DataTable("Employees")
Dim div As New DataTable("Division")
emp.Columns.Add("LastName")
emp.Columns.Add("FirstName")
emp.Rows.Add(New Object() {"Jones", "Marianne"})
emp.Rows.Add(New Object() {"Fieldes", "Anna"})
div.Columns.Add("Section")
div.Columns.Add("Specialty")
div.Rows.Add(New Object() {"Finance", "Taxes"})
div.Rows.Add(New Object() {"Mergers", "Legal"})
ds.Tables.AddRange(New DataTable() {emp, div})
Dim iModel As FarPoint.Win.Spread.Model.IDataSourceSupport
Dim dataModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel()
iModel = FpSpread1.ActiveSheet.Models.Data
iModel.DataSource = ds
dataModel.Parent = iModel
FpSpread2.DataModel = dataModel.Parent