Private Function GetStackColumnData() As DataTable Dim mydata As New DataTable() ' Define the columns and their names mydata.Columns.Add("Series Label", GetType(String)) mydata.Columns.Add("Segment A", GetType(Integer)) mydata.Columns.Add("Segment B", GetType(Integer)) mydata.Columns.Add("Segment C", GetType(Integer)) mydata.Columns.Add("Segment D", GetType(Integer)) ' Add the rows of data mydata.Rows.Add(New [Object]() {"Stack A", 1, 4, 10, 4}) mydata.Rows.Add(New [Object]() {"Stack B", 3, 6, 4, 5}) mydata.Rows.Add(New [Object]() {"Stack C", 5, 8, 6, 7}) mydata.Rows.Add(New [Object]() {"Stack D", 7, 10, 7, 7}) Return mydata End Function